脚本判断系统补丁


作者：lcx
来源：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

补充：综合编程 , 安全编程 ,