Script to judge system patches using vbs

 

Set objSession = CreateObject("")
Set objSearcher = 
Set objResults = ("Type='Software'")
Set colUpdates = 

For i = 0 to  - 1
   ' If (i).Title = _
       ' "Security Update for Windows XP (KB899587)" Then
        'If (i).IsInstalled <> 0 Then
            ' "This update is installed."
           ' 
        'Else
            ' "This update is not installed."
          ' 
        'End If
   ' End If
    (i).Title
Next

' "This update is not installed."


How to turn off the Windows XP Service Pack 2 Firewall?

Set objFirewall = CreateObject("")Set objPolicy = 
 = FALSESet objFirewall = CreateObject("")Set objPolicy = 
 = FALSE