用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