Disable ISA Client Firewall

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Disable ISA Client Firewall

Logged in as: Guest

arrSession:exec spGetSession 2,16,51346

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Disable ISA Client Firewall
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Disable ISA Client Firewall - 8/30/2007 3:45:47 AM

jeferson.propheta

Posts: 9
Score: 0
Joined: 8/27/2007
Status: offline

'***************************************************************************************************
'Disable ISA Client Firewall - Blue Coat Migration
'write by Jeferson Propheta
'
'Last Update 06/20/2007
'***************************************************************************************************

'On Error Resume Next

Set objShell = CreateObject("WScript.Shell")

strRunFile   = objShell.ExpandEnvironmentStrings("%SystemDrive%") & ("\FWCONF.txt")

If NOT objAready.FileExists(strRunFile) Then
     objShell.Run "%ComSpec% /C set computername >" & strRunFile,0 ,True
     objShell.RegWrite   "HKLM\SOFTWARE\Microsoft\Firewall Client\Disable","00000001","REG_DWORD"
     objShell.RegWrite   "HKLM\SOFTWARE\Microsoft\Firewall Client\HideIcon","00000000","REG_DWORD"
     objShell.RegWrite   "HKLM\SOFTWARE\Microsoft\Firewall Client\EnableIcon","00000001","REG_DWORD"
     objShell.RegWrite   "HKLM\SOFTWARE\Microsoft\Firewall Client\EnableAutoDetect","00000000","REG_DWORD"

End If

Wscript.Quit

'On Error Resume Next

Set objShell = CreateObject("WScript.Shell")

strRunFile   = objShell.ExpandEnvironmentStrings("%SystemDrive%") & ("\FWCONF.txt")

If NOT objAready.FileExists(strRunFile) Then
     objShell.Run "%ComSpec% /C set computername >" & strRunFile,0 ,True
     objShell.RegWrite   "HKLM\SOFTWARE\Microsoft\Firewall Client\Disable","00000001","REG_DWORD"
     objShell.RegWrite   "HKLM\SOFTWARE\Microsoft\Firewall Client\HideIcon","00000000","REG_DWORD"
     objShell.RegWrite   "HKLM\SOFTWARE\Microsoft\Firewall Client\EnableIcon","00000001","REG_DWORD"
     objShell.RegWrite   "HKLM\SOFTWARE\Microsoft\Firewall Client\EnableAutoDetect","00000000","REG_DWORD"

End If

Wscript.Quit

< Message edited by jeferson.propheta -- 8/30/2007 4:08:17 AM >

_____________________________

Wscript.Echo("Just4 Fun")