Solved

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

Posted on 2009-04-05
3
758 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
Comment Utility
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
Comment Utility
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
Comment Utility
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

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Forefront Threat Management Gateway 2010 or FTMG comes with some very neat troubleshooting tools built-in when trying to identify what is actually happening behind the scenes within the product when traffic is passing through its interfaces. To the …
Common practice undertaken by most system administrators is to document the configurations and final solutions of anything performed by them for their future use and reference. So here I am going to explain how to export ISA Server 2004 Firewall pol…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.

744 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

18 Experts available now in Live!

Get 1:1 Help Now