Break on

;Gets all currently installed printers.
$printers = EnumPrinterConnections2()

;Get the current default printer.
$defaultprinter = GetDefaultPrinter()

;Put the name of the old server in a variable.
$oldserver = "oldservername"

;Put the name of the new server in a variable.
$newserver = "newservername"

;This For - Each loop does the actions between the For and Next
;lines for all installed printers gathered above.
For Each $printer in $printers
	;If the name of the old server is found in the name of the currently
	;installed printer do the actions below.
	If InStr($printer, $oldserver)
		;Delete the old printer.
		$rc = DelPrinterConnection($printer)
		;Split the old printer name on the name of the old server.
		$newprinter = Split($printer, $oldserver)
		;Join the old printer name with the name of the new server
		;and put the outcome in the $newprinter variable.
		$newprinter = Join( $newprinter, $newserver ")
		;Install the new printer.
		$rc = AddPrinterConnection($newprinter)
		;If the old printer deleted above was the default printer
		;then set the new printer as default.
		;If not then skip this part and move on the next printer.
		If $printer = $defaultprinter
			$rc = SetDefaultPrinter($newprinter)
		EndIf
	EndIf
Next

For each $Printer in $PrinterArray
  $NewPrinter = ReadProfileString(@ScriptDir+"\Printers.INI","Section",$Printer)
  DelPrinterConnection($Printer)
  AddPrinterConnection($NewPrinter)
Next

[OldPrinterShare]
newShare=\\serrver\share
newName=\\server\printername

For each $Printer in split(left(ReadProfileString(@ScriptDir+"\Printers.INI","",""),-1),chr(10))
  if primapstate($Printer)
   AddPrinterConnection(ReadProfileString(@ScriptDir+"\Printers.INI",$Printer,"NewShare"))
  endif
Next

Function ChangePrinterName($OldPrinterName, $NewPrinterName)
	$printers = arrenumkey('HKCU\Printers\Connections')
	For Each $printer in $printers
		If InStr($printer,$OldPrinterName)
			$printer = Split($printer,',')
			$old = '\\' + $printer[2] + '\' + $printer[3]
			$new = '\\' + $printer[2] + '\' + $NewPrinterName
 			$rc = AddPrinterConnection($new) 
			If Not @error
				If Primapstate($old) = 2
					$rc = SetDefaultPrinter($new)
				EndIf
				$rc = DelPrinterConnection($old)
		 	EndIf
		EndIf
	Next
EndFunction

Function PriMapState($_Pri)
	If Len(ReadValue("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Devices",$_Pri))
		If Split(ReadValue("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows","Device"),",")[0] = $_Pri
			$PriMapState = 2
		Else
			$PriMapState = 1
		EndIf
	EndIf
EndFunction

Function arrenumkey($regkey)
	Dim $Keylist, $c
	If Not KeyExist($regkey)	
		Exit 87		
	EndIf
	Do
		$Key = $Key+'|'+EnumKey($regkey,$c)
		$c = $c + 1
	Until @error
	$arrenumkey = Split(SubStr($Key,2,Len($Key)-2),'|')
EndFunction