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