$oldName = "mybadserver"
$newName = "myfreshserver"
for each $section in readprofilestring("my\file","","")
 for each $value in readprofilestring("my\file",$section,"")
  $splittedValue=split(readprofilestring("my\file",$section,$value),$oldName)
  if 0<ubound($splittedValue)
   $nul = writeprofilestring("my\file",$section,join($splittedValue,$newName))
  endif
 next
next

;**** Last Modified on 20-08-2003 at 11:52:44 AM by Co****


Break on
If @producttype = 'Windows XP Professional'

Dim $printers, $printer, $rc

$printers=arrayenumkey('HKCU\Printers\Connections')

For Each $printer In $printers
If InStr($printer,'prtsrv01')
$printer=Split($printer,',')
$old='\\'+$printer[2]+'\'+$printer[3]
$new="\\prtsrv02\" + $printer[3]
? '-I- Connection found: '+$old
$rc=DelPrinterConnection($old)
If @error
? '-E- Error deleting connection to '+$old+' (EC='+@error+')'
Else
? '-I- Succesfully deleted connection to '+$old
EndIf

$rc=AddPrinterConnection($new) 
If @ERROR
? '-E- Error connecting to '+$new+' (EC='+@error+')'
Else
? '-I- Succesfully added connection to '+$new
EndIf
EndIf

;Exit

;FUNCTION
;
;NAME ArrayEnumKey
;
;ACTION Creates an array of names of the subkeys contained in a registry key or subkey
;
;AUTHOR Jens Meyer (sealeopard@usa.net)
;
;VERSION 1.2 (added error codes)
; 1.1
;
;DATE CREATED 2001/12/05
;
;DATE MODIFIED 2003/05/17
;
;KIXTART 4.12+
;
;SYNTAX ARRAYENUMKEY($subkey)
;
;PARAMETERS SUBKEY
; Required string containing the key or subkey for which the subkeys will be enumerated
;
;RETURNS Array containing the subkeys
;
;REMARKS none
;
;DEPENDENCIES none
;
;EXAMPLE $retcode=arrayenumkey('HKEY_USERS')
;
;KIXTART BBS http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000064
;
Function arrayenumkey($regsubkey)
Dim $retcode, $subkeycounter, $currentsubkey, $subkeyarray

If NOT KeyExist($regsubkey)
Exit 87
EndIf

$subkeycounter=0
Do
$currentsubkey=EnumKey($regsubkey,$subkeycounter)
If NOT @ERROR
ReDim preserve $subkeyarray[$subkeycounter]
$subkeyarray[$subkeycounter]=$currentsubkey
$subkeycounter=$subkeycounter+1
EndIf
Until @ERROR

$arrayenumkey=$subkeyarray
Exit 0
EndFunction  

$oldName = "abcnt04"
$newName = "abcnt32"
for each $section in readprofilestring("C:\blah1.ini","","")
 for each $value in readprofilestring("C:\blah1.ini",$section,"")
  $splittedValue=split(readprofilestring("C:\oasis1.ini",$section,$value),$oldName)
  if 0<ubound($splittedValue)
   $nul = writeprofilestring("C:\blah1.ini",$section,join($splittedValue,$newName))
  endif

Quote:

---

they do fine.
read all the values with and...
well, try this:
Code:

---

$oldName = "mybadserver"
$newName = "myfreshserver"
for each $section in readprofilestring("my\file","","")
 for each $value in readprofilestring("my\file",$section,"")
  $splittedValue=split(readprofilestring("my\file",$section,$value),$oldName)
  if 0<ubound($splittedValue)
   $nul = writeprofilestring("my\file",$section,join($splittedValue,$newName))
  endif
 next
next

---

vóila

---

for each $section in readprofilestring("my\file","","")

next

$oldName = "mybadserver"
$newName = "myfreshserver"
for each $section in split(left(readprofilestring("my\file","",""),-1),chr(10))
 for each $value in split(left(readprofilestring("my\file",$section,""),-1),chr(10))
  $splittedValue=split(readprofilestring("my\file",$section,$value),$oldName)
  if 0<ubound($splittedValue)
   $nul = writeprofilestring("my\file",$section,join($splittedValue,$newName))
  endif
 next
next

$oldServer = 'server1'
$newServer = 'server2'

$inifile = '.\test.ini'
;get an array of the sections
$sections = split(ReadProfileString($inifile,'',''),CHR(10))
redim preserve $sections[ubound($sections)-1] ;trim the array by one


for each $section in $sections
	;get an array of the keys in a section
	$keys = split(ReadProfileString($inifile,$section,''),CHR(10))
	redim preserve $keys[ubound($keys)-1] ;trim the array by 1

	for each $key in $keys
		$data = ReadProfileString($inifile,$section,$key)

		;if the data of a key has the old server int it, replace it with the new server name
		If InSTR($data,$oldserver)
			$data = join(split($data,$oldserver),$newserver)

			;save data back to the ini file
			$ = WriteProfileString($inifile,$section,$key,$data)
		EndIf
	next
next