$index = "Server"
$index2 = "Language"
; $index3 = "Analyser"

$string = "%programfiles%\ibs Enterprise client\AswClientWin.INI" 
$string2 = "%programfiles%\ibs Enterprise client\StdAswClientWin.INI" 
$string3 = "%programfiles%\IBSAnalyser60\Users\Local\Acssetup.INI" 

; Correct Ibs to Zeebrugge server 
IF EXIST ("$string") 
  $null = WRITEPROFILESTRING ("$string","$index","Host","CTOZB1") 
  $null = WRITEPROFILESTRING ("$string","$index", "Lms", "ctozb1.zee.be.ne.nyk.local") 
  $null = WRITEPROFILESTRING ("$string2","$index", "Host", "CTOZB1") 
  $null = WRITEPROFILESTRING ("$string2","$index", "Lms", "ctozb1.zee.be.ne.nyk.local") 
  $null = WRITEPROFILESTRING ("$string","$index2","CCSID","1148") 
  $null = WRITEPROFILESTRING ("$string2","$index2", "CCSID", "1148")
;  $null = WRITEPROFILESTRING ("$string3","$index3", "ICO", "$string4")

; Change Analyser ini file 

;Dim $objFSO, $strIni, $objIni, $strTxt, $arrTxt, $strItm, $strItm2, $strIP
;$objFSO = CreateObject("Scripting.FileSystemObject")
;$strIni = "$string3"
;$objIni = $objFSO.OpenTextFile($strIni, 1)
;$strTxt = $objIni.ReadAll
;$objIni.Close
;$strTxt =join(split($strTxt,"ICO="),"ICO=Delaere_Kristof")
;$objIni.Write("$strTxt")
;$objIni.Close

Dim $objFSO, $strIni, $objIni, $strTxt
$objFSO = CreateObject("Scripting.FileSystemObject")
$strIni = "%programfiles%\IBSAnalyser60\Users\Local\Acssetup.INI"
$objIni = $objFSO.OpenTextFile($strIni, 25, 1)
$strTxt = $objIni.ReadAll
$strTxt = Join(Split($strTxt,"ICO="),"ICO=MyDomain")
$objIni.Write($strTxt)
$objIni.Close




ENDIF