$Index = 0
$PrintGroups = ""
$PrintName = ""
$HQServer = "\\NOPRTHQ02\"
$HCServer = "\\NOPRTHC02\"
$Server = ""
$Index = 0
$Index2 = 0
$ValueName = ""
$ValueName2 = ""
$Install = "YES"

;====================================
;	REMOVE PRINTERS NOT REGISTERED
;====================================

$Index = 0
:Loop1
$ValueName = ENUMVALUE("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts", $Index)
If @ERROR = 0
	$ValueName2 = Right ($ValueName, Len ($ValueName) - InStrRev($ValueName, "\"))
	If NOT InGroup ("SD\PRT_" + $ValueName2)
; 		Kommentert ut For NFRA pilot
; 		DelPrinterConnection($ValueName)
; 		? "Printer deleted: " + $ValueName
	EndIf
    $Index = $Index + 1
    Goto Loop1
EndIf

;====================================
;	ADD PRINTERS NOT ALREADY ADDED
;====================================

$Index = 0
Do
	$Group = EnumGroup($Index)
	If Mid($Group,4,4) = "PRT_"
		$PrintGroups = $PrintGroups + ", " + $Group
		$PrintName = Right($Group, Len($Group)-7)
		if Mid($PrintName,4,1) = "_"
			$Server = $HCServer
		else
			$Server = $HQServer
		EndIf
		;   Check Registry - finn alle installerte skriverobjekter
		$Index2 = 0
		:Loop2
		$ValueName = ENUMVALUE("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts", $Index2)
		If @ERROR = 0
			$ValueName2 = Right ($ValueName, Len ($ValueName) - InStrRev($ValueName, "\"))
			If $ValueName2 = $PrintName
				? "Printer already exist: " + $PrintName
				$Install = "NO"
			EndIf
		    $Index2 = $Index2 + 1
		    Goto Loop2
		EndIf
		If $Install = "YES"
			ADDPRINTERCONNECTION($Server + $PrintName)
			? "Printer added: " + $Server + $PrintName
		EndIf
		$Install = "YES"
	EndIf
	$Index = $Index + 1
Until Len($Group) = 0


;---------------;
; function: MID ;
;---------------;

Function MID($midstring,$midstart,optional $midend)
;SYNTAX mid($midstring,$midstart,optional $midend)
;
;PARAMETERS $Midstring         - String of characters to search
;           $Midstart          - Character Index number to start with.  
;                                Base 1 or -1:  Positve Number = Left, Negative Number = Right
;           $Midend (optional) - Number of Characters to include from $midstart
;
;
;Example
;
;  $string='Hello this is a test'
;
;?  Mid($string,7,4)   ;returns 'this'
;?  Mid($string,7)     ;returns 'this is a test'
;?  Mid($string,-6)    ;returns 'Hello this is a'
;?  Mid($string,-8,2)  ;returns 'is'

  If $midend<0
    $midend=abs($midend)
  Else 
    If $midend>Len($midstring)-abs($Midstart) OR $midend=""
      $midend=0
    EndIf
  EndIf
  Select
    Case $midstart<0
      $midstart=abs($midstart)
      If $midend=0 
        $mid=Left(Right($midstring,Len($midstring)),(Len($midstring)-$midstart)+1)
      Else
        $mid=Left(Right($midstring,($midstart+$midend)-1),$midend)
      EndIf
    Case $midstart>0
      If $midend=0
        $mid= Right(Left($midstring,Len($midstring)),(Len($midstring)-$midstart)+1)
      Else
        $mid=Right(Left($midstring,($midstart+$midend)-1),$midend)
      EndIf
  EndSelect
EndFunction

Break on

$printers = EnumPrinterConnections2()
$defaultprinter = GetDefaultPrinter()
$oldserver = "oldservername"
$newserver = "newservername"

For Each $printer in $printers
	If InStr($printer, $oldserver)
		$rc = DelPrinterConnection($printer)
		$newprinter = Split($printer, $oldserver)
		$newprinter = Join($newprinter, $newserver")
		$rc = AddPrinterConnection($newprinter)
		If $printer = $defaultprinter
			$rc = SetDefaultPrinter($newprinter)
		EndIf
	EndIf
Next


;=========================================================
;===== DOT NOT MODIFY ANYTHING BELOW THIS LINE ===========
;===== THIS ARE UDF"S AND THEY COME READY MADE ===========
;=========================================================
;FUNCTION         GetDefaultPrinter()
;
;AUTHOR           Jochen Polster
;
;VERSION          1.0
;
;VERSION HISTORY  1.0 2004/04/28 Initial release
;
;ACTION           Retrieves the current default Printer
;
;SYNTAX           GetDefaultPrinter()
;
;PARAMETERS       none
;
;REMARKS          won't work with 9x OS
;
;RETURNS          The current Users default Printer
;
;DEPENDENCIES     None !
;
;EXAMPLES         $default = GetDefaultPrinter

Function GetDefaultPrinter()
	$GetDefaultPrinter = Join(Split(ReadValue("HKU\" + @sid + "\Software\Microsoft\Windows NT\CurrentVersion\Windows", "Device"), ',', 1), '')
EndFunction

	

;Function		EnumPrinterConnections2() - Enumerates all connected printers 
;   
;Author			NTDOC 
;   
;Contributors		Bryce 
;   
;Action			Enumerates all of the installed / connected printers into an array  
;   
;Syntax			EnumPrinterConnections2()  
;   
;Version		1.0  
;   
;Date			2005-Apr-20   
;   
;Date Revised		xxxx-xxx-xx   
;   
;Revision Reason	  
;   
;Parameters		None 
;   
;Remarks		Based on the EnumPrinterConnections() UDF 
;			http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Number=83545 
;			Which I believe was probably derived from here at Microsoft 
;              EnumPrinterConnections Method 
;			Minor modifications due to invalid array dim and array starts 
;			with a blank which can cause issues when trying to display or 
;			write to a log file.  This method should work a little better. 
;			 
;			Tested on 2000/XP/2003  
;   
;Returns		An array of all the installed / connected printers 
;   
;Dependencies		KiXtart v4.x, WSH 5.6  
;			Written and tested with KiXtart v4.23 
; 
;Example		NOTE! This example uses the QS UDF to sort the list 
;			http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Number=82876 
; 
;			Dim $PrinterData, $PrinterMap, $Pi 
;			$PrinterData = QS(EnumPrinterConnections2()) 
;			If Ubound($PrinterData) <> -1 
;			  For $Pi = 0 To Ubound($PrinterData) 
;			    $PrinterMap = Split($PrinterData[$Pi],",",-1) 
;			    $PrinterMap[0]+CHR(9)+$PrinterMap[1] ? 
;			  Next 
;			Else 
;			  ? 'No printer mappings found.' 
;			EndIf 
; 
;Source  
 

Function EnumPrinterConnections2()
	Dim $WshNetwork, $oPrinters, $i, $PrintArray[0]
	$EnumPrinterConnections2 = ""
	$WshNetwork = CreateObject("WScript.Network")
	If Not @ERROR
		$oPrinters = $WshNetwork.EnumPrinterConnections
		For $i = 0 to $oPrinters.Count - 1 Step 2
			$PrintArray[UBound($PrintArray)] = $oPrinters.Item($i + 1) + ',' + $oPrinters.Item($i)
			ReDim Preserve $PrintArray[UBound($PrintArray) + 1]
		Next
		If UBound($PrintArray) > 0
			ReDim Preserve $PrintArray[UBound($PrintArray) - 1]
		Else
			$PrintArray = 0
		EndIf
	Else
		$EnumPrinterConnections2 = @ERROR
		Exit $EnumPrinterConnections2
	EndIf
	$EnumPrinterConnections2 = $PrintArray
EndFunction

$printers = EnumPrinterConnections2()
$defaultprinter = GetDefaultPrinter()
$newserver = "novmprthp01"
$altserver = "novmprtdiv01"

For Each $printer in $printers
;	Handle only network printers
	If Left ($printer, 2) = '\\'
		$oldserver = Substr($printer, 3, 9)
		$printer = Substr ($printer, 1, InStr($printer, ',') - 1 )
;		Handle only printers on the old printservers		
		If ($oldserver = "NOPRTHQ02" OR $oldserver = "NOPRTHC02" OR $oldserver = "NOPRTHC03")
			$rc = DelPrinterConnection($printer)
			$newprinter = Split($printer, $oldserver)
			$newprinter = Join($newprinter, $newserver)
;			A quirk in the use of the Split + Join funtions above may return a backslash too many
			If Substr($newprinter, 3, 1) = '\'
				$newprinter = Substr($newprinter, 2, LEN($newprinter)-1)
			EndIf
 			$rc = AddPrinterConnection($newprinter)
			If $rc > 0
				$newprinter = '\\' + $altserver + '\' + Substr($newprinter, InStrRev($newprinter, '\')+1, LEN($newprinter)-1)
				$rc = AddPrinterConnection($newprinter)
			EndIf
			If $printer = $defaultprinter 				                        $rc = SetDefaultPrinter($newprinter)
			EndIf
		EndIf
	EndIf
Next

Exit