Printer Migration for Clients and Windows 2003 Server

Migrating Printers from One server to the other can be a harmless process and here’s how! First download “Windows Print Migrator 3.1″ usually found here if not google it Open the printer migrator on your Old server ( The one you wish to transfer the printers from ) and Select the Action Menu then Backup This will backup all your printers drivers , shares and names etc to a cab file Open the printer migrator on your new server , and Action Menu then Restore. This now replicates the printer setup you had on your old server. All that needs to happen now is the clients need to readd the printers using the new server. This can be automated with this script saved as a .vbs and entered under a group policy for the OU Click on the more to see the code! ‘——————–8<———————- ‘ put in the server names here (keep the quotes!) MovePrinters “oldserver”, “netservername” ‘ ********************************************* ‘ Move printers to new server ‘ ********************************************* Sub MovePrinters(OldServer, NewServer) ‘ Loops through all network printers and moves all printers ‘ on “OldServer” to the same printername on “NewServer”. dim WshNetwork, oPrinters, i, PrinterPath, DefaultPrinter, PrinterList ‘ Check that WSH version is new enough: If CDbl(Replace(wscript.version,”.”,”,”)) < CDbl(5.6) Then MsgBox “Automatic printer migration is not available for” & _ ” this computer.” & vbCrLf & _ “Please migrate printers manually.” & vbCrLf & _ “The new printer server name is “”" & NewServer & “”"”, _ vbOKOnly + vbCritical, “Windows Scripting Host is too old” wscript.quit 1 End If Set WshNetwork = WScript.CreateObject(“WScript.Network”) Set PrinterList = CreateObject(“Scripting.Dictionary”) ‘ Get the default printer before we start deleting: DefaultPrinter = GetDefaultPrinter ‘ Get a list of printers to work with: ‘ (We cannot modify the collection while looping through it) Set oPrinters = WshNetwork.EnumPrinterConnections For i = 1 to oPrinters.Count Step 2 PrinterList.Add oPrinters.Item(i), “x” Next ‘ i ‘ Loop through the printer list and migrate mathching ones: For Each PrinterPath In PrinterList.Keys If StrComp(ServerName(PrinterPath), OldServer, 1) = 0 Then WshNetwork.RemovePrinterConnection PrinterPath, True, True On Error Resume next WshNetwork.AddWindowsPrinterConnection “\\” & NewServer & “\” & _ ShareName(PrinterPath) ‘If Err.Number = -2147023095 Then ‘ MsgBox “The printer “”" & ShareName(PrinterPath) & _ ‘ “”" does not exist on server “”" & NewServer & “”".” & vbCrLf & _ ‘ “The printer has been removed.”, vbOKonly + vbExclamation, _ ‘ “Missing printer” ‘End If On Error goto 0 End If Next ‘Set the default printer: If ServerName(DefaultPrinter) = OldServer Then On Error Resume Next WshNetwork.SetDefaultPrinter “\\” & NewServer & “\” & _ ShareName(DefaultPrinter) ‘If Err.Number = -2147352567 Then ‘MsgBox “Your default printer did not exist, and has been deleted.”, _ ‘ vbOKonly + vbInformation, “Invalid default printer” ‘End If On Error goto 0 End If End Sub ‘ MovePrinters Function GetDefaultPrinter() ‘ Returns the UNC path to the current default printer Dim oShell, sRegVal, sDefault Set oShell = CreateObject(“WScript.Shell”) sRegVal = _ “HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device” sDefault = “” On Error Resume Next sDefault = oShell.RegRead(sRegVal) sDefault = Left(sDefault ,InStr(sDefault, “,”) – 1) On Error Goto 0 GetDefaultPrinter = sDefault End Function Function ServerName(sPrinterPath) Dim aPrinterPath ServerName = “” If Left(sPrinterPath, 2) = “\\” Then aPrinterPath = Split(sPrinterPath, “\”) ServerName = aPrinterPath(2) End If End Function Function ShareName(sPrinterPath) Dim aPrinterPath ShareName = “” If Left(sPrinterPath, 2) = “\\” Then aPrinterPath = Split(sPrinterPath, “\”) ShareName = aPrinterPath(3) End If End Function ‘——————–8<———————-

Tags: Printer Clients Migration, Printer Migration, Printer Server Migration