判断Windows系统补丁

Set objSession = CreateObject("Microsoft.Update.Session")
Set objSearcher = objSession.CreateUpdateSearcher
Set objResults = objSearcher.Search("Type='Software'")
Set colUpdates = objResults.Updates

For i = 0 to colUpdates.Count - 1
 ' If colUpdates.Item(i).Title = _
 ' "Security Update for Windows XP (KB899587)" Then
 'If colUpdates.Item(i).IsInstalled <> 0 Then
 'Wscript.Echo "This update is installed."
 ' Wscript.Quit
 'Else
 'Wscript.Echo "This update is not installed."
 ' Wscript.Quit
 'End If
 ' End If
 wscript.echo colUpdates.Item(i).Title
Next

'Wscript.Echo "This update is not installed."

Set objFirewall = CreateObject("HNetCfg.FwMgr")Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = FALSESet objFirewall = CreateObject("HNetCfg.FwMgr")Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = FALSE