VBS-Skript "listhotfixes.vbs" funktioniert nicht

[PC-Freak]

Ähnliche Themen

"Windows-Explorer funktioniert nicht mehr" bei hinzufügen zu Schnellstartleiste

Vista Ultimate in Anzeigesprache funktioniert "Hilfe und Support" nicht!

Msn spinnt "Windows live Messenger funktioniert nicht mehr"

Ich hab im Internet folgendes Skript gefunden, es listet die installierten Updates auf. aber leider funktioniert es nicht.

Code: [Auswählen]

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colQuickFixes = objWMIService.ExecQuery _
("Select * from Win32_QuickFixEngineering")

For Each objQuickFix in colQuickFixes

Wscript.Echo "Computer: " & objQuickFix.CSName
Wscript.Echo "Beschreibung: " & objQuickFix.Description
Wscript.Echo "Hotfix ID: " & objQuickFix.HotFixID
Wscript.Echo "Installationsdatum: " & objQuickFix.InstallDate
Wscript.Echo "Installiert von: " & objQuickFix.InstalledBy
Next

Es kommt die Fehlermeldung im Anhang

[(auto)bot]

Schau doch mal hier: "Windows-Explorer funktioniert nicht mehr" bei hinzufügen zu Schnellstartleiste

[(auto)admin]

Vielleicht findet sich ja eine Antwort in folgenden Themen:

• "Windows-Explorer funktioniert nicht mehr" bei hinzufügen zu Schnellstartleiste
• Vista Ultimate in Anzeigesprache funktioniert "Hilfe und Support" nicht!
• Msn spinnt "Windows live Messenger funktioniert nicht mehr"
• "Auturun" funktioniert nicht mehr
• "Windows-Explorer funktioniert nicht mehr"
• Die Methode "Execute" im Word-VBA "FileSearch"-Objekt funktioniert nicht mehr

[UweHB]

Hi.
So gut kenne ich mich mit Skripten auch nicht aus, aber...

Ist folgende Zeile:

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")

nur durch die Darstellung zerrisen?
Müsste im Skript ja als ganzes gesehen werden.

[PC-Freak]

Habs mal geändert, aber immer noch die gleiche Fehlermeldung.

Code: [Auswählen]

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colQuickFixes = objWMIService.ExecQuery("Select * from Win32_QuickFixEngineering")

For Each objQuickFix in colQuickFixes

Wscript.Echo "Computer: " & objQuickFix.CSName
Wscript.Echo "Beschreibung: " & objQuickFix.Description
Wscript.Echo "Hotfix ID: " & objQuickFix.HotFixID
Wscript.Echo "Installationsdatum: " & objQuickFix.InstallDate
Wscript.Echo "Installiert von: " & objQuickFix.InstalledBy
Next


[Jean Paul]

Man muß in der 2. Zeile einen doppelten Backslash setzen. Das Ganze endet aber in einer Endlosschleife und läßt sich nur mit dem Taskmanager beenden. Was soll der Schmarrn?

Code: [Auswählen]

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colQuickFixes = objWMIService.ExecQuery("Select * from Win32_QuickFixEngineering")

For Each objQuickFix in colQuickFixes

Wscript.Echo "Computer: " & objQuickFix.CSName
Wscript.Echo "Beschreibung: " & objQuickFix.Description
Wscript.Echo "Hotfix ID: " & objQuickFix.HotFixID
Wscript.Echo "Installationsdatum: " & objQuickFix.InstallDate
Wscript.Echo "Installiert von: " & objQuickFix.InstalledBy
Next

Die installierten Hotfixes lassen sich mit dem Konsolenbefehl "wmic qfe list" viel besser auflisten und ggf. in eine Datei umleiten, die dann wie unten angehängt aussieht.

Weitere Wmic-Beispiele:
http://www.astrosys.biz/download/WMIC.pdf

Wmic-Einführung:
http://www.nwtraders.at/Dokumente/Einf%C3%BChrung%20in%20WMIC.aspx