code:

---

Break ON CLS
$Printername="HPLJ4000N"
$IniFile="D:\Kixtart\test.axt"
$oldstr4=@ADDRESS
$newstr4="%userdomain%"
$tmpfile="%temp%\tmpfile.$$$"
If Exist($IniFile)
Del $tmpfile
$nul=Open(1,$Inifile)
$nul=Open(2,$tmpfile,5)
$line=ReadLine(1)
While @ERROR=0
	If InStr($line,$oldstr4)			
		$line=SubStr($line,1,InStr($line,$oldstr4)-1)+$newstr4+SubStr($line,InStr($line,$oldstr4)+Len($oldstr4),Len($line))	
	EndIf
	$nul=WriteLine(2,$line+Chr(13)+Chr(10))	
	$line=ReadLine(1)
Loop
$nul=Close(1)
$nul=Close(2)
Del $Inifile
Copy $tmpfile $Inifile
Del $tmpfile

---