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

If colQuickFixes.Count>=1 Then
Wscript.Echo "Installed"
Else
Wscript.Echo "Not Installed"
End IF