用vbs判断系统补丁的脚本

1. Set objSession = CreateObject("Microsoft.Update.Session")  
2. Set objSearcher = objSession.CreateUpdateSearcher  
3. Set objResults = objSearcher.Search("Type='Software'")  
4. Set colUpdates = objResults.Updates  
5.  
6. For i = 0 to colUpdates.Count - 1  
7.    ' If colUpdates.Item(i).Title = _  
8.        ' "Security Update for Windows XP (KB899587)" Then  
9.         'If colUpdates.Item(i).IsInstalled <> 0 Then  
10.             'Wscript.Echo "This update is installed."  
11.            ' Wscript.Quit  
12.         'Else  
13.             'Wscript.Echo "This update is not installed."  
14.           ' Wscript.Quit  
15.         'End If  
16.    ' End If  
17.    wscript.echo colUpdates.Item(i).Title  
18. Next  
19.  
20. 'Wscript.Echo "This update is not installed."  

如何关闭WindowsXPServicePack2防火墙?

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