If NOT @LOGONMODE Break On Else Break Off EndIf Dim $SO $SO=SetOption("Explicit", "ON") $SO=SetOption("NoMacrosInStrings", "ON") $SO=SetOption("NoVarsInStrings", "ON") $SO=SetOption("WrapAtEOL", "ON") Dim $OldServer, $NewServer, $ArrPtrs, $Ptr, $PtrMapState, $NUL $OldServer = "\\cmi-25" $NewServer = "\\nsfcmi-4" $ArrPtrs = Split("Printer1,Printer2,Printer3",",") For Each $Ptr In $ArrPtrs $PtrMapState = $PriMapState("\\" + $OldServer + "\" + $Ptr) If 0 < $PtrMapState $NUL = AddPrinterConnection("\\" + $NewServer + "\" $Ptr) If NOT @ERROR AND 2 = $PtrMapState $NUL = SetDefaultPrinter("\\" + $NewServer + "\" $Ptr) If @ERROR ? "Error setting default Printer Connection " + $Ptr ? "Error " + @ERROR + ": " + @SERROR EndIf Else ? "Error adding Printer Connection " + $Ptr ? "Error " + @ERROR + ": " + @SERROR EndIf If NOT @ERROR $NUL = DelPrinterConnection($Ptr) If @ERROR ? "Error deleting Printer Connection " + $Ptr ? "Error " + @ERROR + ": " + @SERROR EndIf EndIf EndIf Next ;FUNCTION PriMapState ; ;AUTHOR Lonkero (Jooel.Nieminen@gwspikval.com) ; ;ACTION Checks for existent networkprinter connection ; ;VERSION 1.1.1 ; ;CHANGES 1.1.1 - 01. november 2003 ; Fixed buggie descriped in: ; http://www.kixtart.org/board/ultimatebb.php?ubb=get_topic;f=1;t=008079 ; 1.1 - 02. July 2002 ; added support for win9x ; 1.0 - 01. July 2002 ; initial release ; ;SYNTAX PriMapState(PRINTER) ; ;PARAMETERS PRINTER ; to be checked Printer's name ; ;RETURNS 1 if printer connected ; 2 if printer is default ; nothing if not connected ; ;REMARKS code for w9x adapted from BrianTX ; ;DEPENDENCIES none ; ;EXAMPLE ; if not PriMapState('\\server\printer1') ; "printer1 not connected!" ; endif ; ;CODE function PriMapState($_Pri) if @inwin=1 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 else dim $_Root,$_C,$_C2 $_Root="HKLM\System\CurrentControlSet\control\Print\Printers" for $_C=0 to 259 $_C2=enumkey($_Root,$_C) If instr(READVALUE($_Root+"\"+$_C2,"Port"),$_Pri) If instr(READPROFILESTRING("%windir%\win.ini","windows","device"),$_Pri) $PriMapState = 2 Else $PriMapState = 1 Endif Endif if $_C2=259 $_C=$_C2 endif next endif endfunction

Here's what I used recently:

;; KixGenerated: 2009/05/14 12:08:57 ; PrintMigrate - Migrates printers from one server to another ; Glenn Barnas - 2006/04/14 ; ; Enumerates all printers, moving printers mapped on the old server to the new server ; assumes that old and new printer names are the same. The default printer is preserved. ; Only one print server (per pass) can be migrated with this utility ; ; The old and new print servers must be defined below ; ; If the old and new printer names are not the same, or printers are being moved between ; multiple print servers, use PrintMigrate2, which utilizes a lookup table to map the old ; server\printer to new server\printer. PrintMigrate2 utilizes a similar process to ; PrintMigrate, but is slower due to the 1:1 mapping needed. Break On Dim $ Dim $Printer ; printer BaseName Dim $OldPSvr, $NewPSvr ; old/new print server names Dim $LPKey ; Key where printers are defined Dim $DefPtr ; UNC of default printer Dim $Value ; value read from registry Dim $I ; index pointer Dim $Tag ; flag indicating an error in delete/map process $ = SetOption('Explicit', 'On') $ = SetOption('WrapAtEOL', 'On') $ = SetOption('NoVarsInStrings', 'On') $ = SetOption('NoMacrosInStrings', 'On') ;############################################################## ; Define old & new print servers $OldPSvr = '\\oldprintserver' $NewPSvr = '\\newprintserver' ;############################################################## ; define key where printers are defined $LPKey = 'HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts' ; Get current default printer $DefPtr = ReadValue('HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows', 'Device') ; Enumerate the printers defined for this user $I = 0 ; set the index to 0 ; get the first registry value $Value = EnumValue($LPKey, $I) While Not @ERROR If $I = 0 Cls ; Display the default printer If $DefPtr 'Default printer is ' Split($DefPtr, ',')[0] ? ? Else 'Default printer is not defined.' ? ? EndIf ; process until an EOD error EndIf 'Checking ' $Value $Tag = 0 ; clear the error tag If InStr($Value, $OldPSvr) ; If it references the old server $Printer = Join(Split($Value, $OldPSvr), '') ; get the printer name DelPrinterConnection($Value) ; delete the current printer connection If Not @ERROR ; handle error ' - deleted' Else ' Failed to delete printer!' ? $Tag = 1 EndIf If Not $Tag ; add if delete was successful AddPrinterConnection($NewPSvr + $Printer) If Not @ERROR ', added' Else ' Failed to add printer!' ? $Tag = 1 EndIf If Not $Tag If InStr($DefPtr, $Printer) SetDefaultPrinter($NewPSvr + $Printer) If Not @ERROR ', Set as default' Else ' Failed to set as default printer!' ? EndIf EndIf EndIf ? EndIf $I = 0 ; restart the enumeration Else ' - OK' ? $I = $I + 1 ; increase the enumeration pointer EndIf $Value = EnumValue($LPKey, $I) Loop

Just change the "oldprintserver" and "newprintserver" names.

Glenn

; PrintMigrate - Migrates printers from one server to another ; Glenn Barnas - 2006/04/14 ; ; Enumerates all printers, moving printers mapped on the old server to the new server ; assumes that old and new printer names are the same. The default printer is preserved. ; Only one print server (per pass) can be migrated with this utility ; ; The old and new print servers must be defined below ; ; If the old and new printer names are not the same, or printers are being moved between ; multiple print servers, use PrintMigrate2, which utilizes a lookup table to map the old ; server\printer to new server\printer. PrintMigrate2 utilizes a similar process to ; PrintMigrate, but is slower due to the 1:1 mapping needed. Break On Dim $ Dim $OldPServer, $NewPServer ; old/new print server names Dim $LPKey ; Key where printers are defined Dim $DefPtr ; UNC of default printer Dim $Value ; value read from registry Dim $I ; index pointer Dim $Tag ; flag indicating an error in delete/map process $ = SetOption('Explicit', 'On') $ = SetOption('WrapAtEOL', 'On') $ = SetOption('NoVarsInStrings', 'On') $ = SetOption('NoMacrosInStrings', 'On') ;############################################################## ; Define old & new print servers $OldPSvr = '\\cmi-25' $NewPSvr = '\\nsfcmi-4' ;############################################################## ; define key where printers are defined $LPKey = 'HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts' ; Get current default printer $DefPtr = ReadValue('HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows', 'Device') ; Display the default printer If $DefPtr 'Default printer is ' Split($DefPtr, ',')[0] ? ? Else 'Default printer is not defined.' ? ? EndIf ; Enumerate the printers defined for this user $I = 0 ; set the index to 0 ; get the first registry value $Value = EnumValue($LPKey, $I) While Not @ERROR ; process until an EOD error 'Checking ' $Value $Tag = 0 ; clear the error tag If InStr($Value, $OldPSvr) ; If it references the old server $Printer = Join(Split($Value, $OldPSvr), '') ; get the printer name DelPrinterConnection($Value) ; delete the current printer connection If Not @ERROR ; handle error ' - deleted' Else ' Failed to delete printer!' ? $Tag = 1 EndIf If Not $Tag ; add if delete was successful AddPrinterConnection($NewPSvr + $Printer) If Not @ERROR ', added' Else ' Failed to add printer!' ? $Tag = 1 EndIf If Not $Tag If InStr($DefPtr, $Printer) SetDefaultPrinter($NewPSvr + $Printer) If Not @ERROR ', Set as default' Else ' Failed to set as default printer!' ? EndIf EndIf EndIf ? EndIf Else ' - OK' ? EndIf $I = $I + 1 $Value = EnumValue($LPKey, $I) Loop