' ============================================================
' GetQuickFixEngineeringReport.vbs
'
' Reports Installed Hotfixes via WMI (Win32_QuickFixEngineering).
'
' Usage: cscript GetQuickFixEngineeringReport.vbs
' ============================================================

Option Explicit

Dim objWMIService, colItems, objItem, strOutput

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT HotFixID, Description, InstalledOn, InstalledBy FROM Win32_QuickFixEngineering")

strOutput = ""
For Each objItem In colItems
    strOutput = strOutput & "HotFixID: " & objItem.HotFixID & vbCrLf
    strOutput = strOutput & "Description: " & objItem.Description & vbCrLf
    strOutput = strOutput & "InstalledOn: " & objItem.InstalledOn & vbCrLf
    strOutput = strOutput & "InstalledBy: " & objItem.InstalledBy & vbCrLf
    strOutput = strOutput & String(40, "-") & vbCrLf
Next

If strOutput = "" Then
    WScript.Echo "No Installed Hotfixes found."
Else
    WScript.Echo strOutput
End If