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