Solved

How to use script to manually select ISA server by firewall client

Posted on 2009-04-05
3
799 Views
Last Modified: 2012-05-06
We had a Microsoft ISA 2006 server. After install firewall client by login script, we want to use script to change firewall client  to manually select ISA server.
How can i do this?
Many thanks.
0
Comment
Question by:dickchan
  • 2
3 Comments
 
LVL 14

Expert Comment

by:Raj-GT
ID: 24075341
The Firewall Client stores the configuration information on an .ini file under C:\Documents and Settings\username\Application Data\Microsoft\Firewall Client 2004.

You can use scripting or group policy preferences to edit common.ini file. The values are quite self explanatory...

ServerName -
Disbaled - Disables Firewall Client
Autodetection - 1 to enable and 0 to disable.

Hope this helps.
0
 

Author Comment

by:dickchan
ID: 24094258
Do you mind show me some example about how script to change ini file content?
I am a newbie. Many thanks.
0
 
LVL 14

Accepted Solution

by:
Raj-GT earned 500 total points
ID: 24095440
You can use the attached script, which was from here - http://blogs.technet.com/pfe-ireland/archive/2008/05/08/scripting-how-to-edit-an-ini-file-from-a-script.aspx

Save the script as modini.vbs and call it from your log-on batch file like this

cscript //nologo modini.vbs "%appdata%\Microsoft\Firewall Client 2004\common.ini" "Autodetection" "0"
cscript //nologo modini.vbs "%appdata%\Microsoft\Firewall Client 2004\common.ini" "ServerName" "ISASERVERNAME"
cscript //nologo modini.vbs "%appdata%\Microsoft\Firewall Client 2004\common.ini" "TrayIconVisualState" "0"

The last line will hide the Firewall Client icon from the taskbar.

Hope this helps.
'Example: modini.vbs c:\folder\my.ini "Parameter" "new value"
 
Const ForReading = 1
Const ForWriting = 2
 
strINIFile = WScript.Arguments.Item(0)
strParam = WScript.Arguments.Item(1)
strValue = WScript.Arguments.Item(2)
 
If WScript.Arguments.Count <> 3 Then WScript.Quit
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(strINIFile, ForReading)
 
Do Until objTextFile.AtEndOfStream
    strNextLine = objTextFile.Readline
 
    intLineFinder = InStr(strNextLine, strParam)
    If intLineFinder <> 0 Then
        strNextLine = strParam & "=" & strValue
    End If
 
    strNewFile = strNewFile & strNextLine & vbCrLf
Loop
 
objTextFile.Close
 
Set objTextFile = objFSO.OpenTextFile(strINIFile, ForWriting)
 
objTextFile.WriteLine strNewFile
objTextFile.Close

Open in new window

0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

There are three types of ISA client that can be configured - these can be individual clients or multiples of a client on each PC or server SecureNAT. A SecureNAT client for ISA server is a client machine, work station or server, that has its defa…
Do you have a windows based Checkpoint SmartCenter for centralized Checkpoint management?  Have you ever backed up the firewall policy residing on the SmartCenter?  If you have then you know the hassles of connecting to the server, doing an upgrade_…
Two types of users will appreciate AOMEI Backupper Pro: 1 - Those with PCIe drives (and haven't found cloning software that works on them). 2 - Those who want a fast clone of their boot drive (no re-boots needed) and it can clone your drive wh…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…

828 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question