用vbs判断系统补丁的脚本

2009-10-9 18:29 983 0

摘要: 　　来自微软脚本专家的可以查看系统中安装了，哪些补丁的vbs脚本　　Set objSession = CreateObject("Microsoft.Update.Session") 　　Set...

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

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除