用vbs判断系统补丁的脚本

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."

如何关闭 Windows XP Service Pack 2 防火墙？

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