用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

最后

以上就是年轻大门为你收集整理的用vbs判断系统补丁的脚本的全部内容，希望文章能够帮你解决用vbs判断系统补丁的脚本所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。