Use VBS to judge system patches script _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 isn't installed.
' Wscript.Quit
' End If
' End If
WScript.Echo Colupdates.item (i). Title
Next

' WScript.Echo ' This update isn't installed.


How do I turn off 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