927 Benutzer online
25. November 2024, 15:13:25

Windows Community



Zum Thema VBS-Skript "listhotfixes.vbs" funktioniert nicht - Ich hab im Internet folgendes Skript gefunden, es listet die installierten Updates auf. aber leider funktioniert es nicht.Code: [Auswählen]strComputer = ".... im Bereich Windows Vista Forum
Autor Thema:

VBS-Skript "listhotfixes.vbs" funktioniert nicht

 (Antworten: 3, Gelesen 6254 mal)

  • Windows 3.1
  • Beiträge: 81
VBS-Skript "listhotfixes.vbs" funktioniert nicht
« am: 10. Februar 2008, 19:24:58 »
Ich hab im Internet folgendes Skript gefunden, es listet die installierten Updates auf. aber leider funktioniert es nicht.

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

  • Windows Me
  • Beiträge: 1004
« Antwort #1 am: 10. Februar 2008, 19:34:30 »
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.

  • Windows 3.1
  • Beiträge: 81
« Antwort #2 am: 10. Februar 2008, 19:51:14 »
Habs mal geändert, aber immer noch die gleiche Fehlermeldung.

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

  • Windows Me
  • Beiträge: 1301
  • König der Herzen
« Antwort #3 am: 10. Februar 2008, 20:57:47 »
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?

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
« Letzte Änderung: 10. Februar 2008, 21:30:26 von Jean Paul »

vista windows update 64bit profile installation keine for installiert visual
2007 installieren geht anzeigen set drucker hotfix win langsam alle