判断补丁更新否和关闭防火墙VBS脚本

2009-9-7 09:16 1093 0

摘要: Set objSession = CreateObject("Microsoft.Update.Session") Set objSearcher = objSession.CreateUpdateS...

关键词： Wscript colUpdates objFirewall Update objPolicy Set CreateObject installed Echo FirewallEnabled

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

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