Solved

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

Posted on 2009-04-05
3
772 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Assymetric routing asa 4 41
iptables ubuntu BLOCK all 2 80
What's a good Free Firewall Program for Mac OS? 7 44
How to access multiple local hosts from phone on network 5 73
There are several problems reported according slow link speeds or poor performance in TMG 2010, UAG 2010 or ISA 2006. I want to collect here some of the common issues together to give a brief overview what can be the reason. Nevertheless, not all of…
This article offers some helpful and general tips for safe browsing and online shopping. It offers simple and manageable procedures that help to ensure the safety of one's personal information and the security of any devices.
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
As a trusted technology advisor to your customers you are likely getting the daily question of, ‘should I put this in the cloud?’ As customer demands for cloud services increases, companies will see a shift from traditional buying patterns to new…

861 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

Need Help in Real-Time?

Connect with top rated Experts

23 Experts available now in Live!

Get 1:1 Help Now