用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