'*********************************************** '*bY r05e '*显示HOT-FIXES '*********************************************** Dim oIE, doc1 Set oIE = WScript.CreateObject("InternetExplorer.Application") oIE.Navigate "about:blank" oIE.Visible = 1 oIE.ToolBar = 0 oIE.StatusBar = 0 oIE.Width=750 oIE.Height=500 Do While (oIE.Busy): Loop Set doc1 = oIE.Document doc1.open doc1.writeln "显示系统的Hot-Fixes" doc1.writeln "
HOT-FIXES
"
   

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colQuickFixes = objWMIService.ExecQuery _
    ("Select * from Win32_QuickFixEngineering")
For Each objQuickFix in colQuickFixes
    doc1.writeln "Computer: " & objQuickFix.CSName
    doc1.writeln "Description: " & objQuickFix.Description
    doc1.writeln "Hot Fix ID: " & objQuickFix.HotFixID
    doc1.writeln "Installation Date: " & objQuickFix.InstallDate
    doc1.writeln "Installed By: " & objQuickFix.InstalledBy
Next

doc1.writeln "
" doc1.close set oIE=nothing set objWMIService=nothing Set colQuickFixes=nothing