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