Use vbs to determine the system patch script

Set objsession = Createobject ("Microsoft. Update. Session ")
Set objsearcher = objsession. createupdatesearcher
Set objresults = objsearcher. Search ("type = 'soft '")
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 ."

How does one disable the Windows XP Service Pack 2 firewall?

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