'Use this script when Public IP addresses change.  Script will read INI file and replace old IP entries
'with new IP addresses.  No other settings changed!
'ForReading = 1
'ForWriting = 2

Set oNet = CreateObject("WScript.NetWork") 
Set oFSO = CreateObject("Scripting.FileSystemObject")

sUserName = oNet.UserName
sTargetFile="C:\Documents and Settings\" & sUserName & "\application data\ICAclient\appsrv.ini"

If Not oFSO.FileExists(sTargetFile) Then
	sTargetFile="C:\Documents and Settings\" & sUserName & ".corp\application data\ICAclient\appsrv.ini"
End If

If Not oFSO.FileExists(sTargetFile) Then
	Wscript.Echo"Error - profile path not found!  Please contact IT departmenet"
	WScript.Quit
End If

Set oFile=oFSO.OpenTextFile(sTargetFile, 1)
sOldText = oFile.ReadAll
oFile.Close
Wscript.Sleep(50)

sNewText = Replace(sOldText, "72.11.66.52", "65.126.57.7")
Set oFile = oFSO.OpenTextFile(sTargetFile, 2)
Wscript.Sleep(50)
oFile.Write sNewText
oFile.Close
Wscript.Sleep(50)

' Second entry...

Set oFile = oFSO.OpenTextFile(sTargetFile, 1)
sOldText2 = oFile.ReadAll
oFile.Close
Wscript.Sleep(50)

sNewText = Replace(sOldText2, "72.11.66.54", "65.126.57.12")
Set oFile = oFSO.OpenTextFile(sTargetFile, 2)
Wscript.Sleep(50)
oFile.Write sNewText
oFile.Close
Wscript.Sleep(50)

Wscript.Echo "Update successful - your remote Citrix connection should now work"
Wscript.Quit