用vbs判断系统补丁的脚本

来自微软脚本专家的可以查看系统中安装了，哪些补丁的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