anti xp firewall vbs script

[escalation666]

'******************************************************************************

'FwDisable.vbs

'Author: Peter Costantini, The Microsoft Scripting Guys

'Date: 9/2/04

'Version: 1.0

'Disables Windows Firewall, which is enabled by default on XP SP2.

'******************************************************************************

On Error Resume Next

'Create the firewall manager object.

Set objFwMgr = CreateObject("HNetCfg.FwMgr")

If Err <> 0 Then

WScript.Echo "Unable to connect to Windows Firewall."

WScript.Quit

End If

'Get the current profile for the local firewall policy.

Set objProfile = objFwMgr.LocalPolicy.CurrentProfile

'Is firewall enabled?

If objProfile.FirewallEnabled = True Then

'Disable it.

objProfile.FirewallEnabled = False

End If