printer server migration from server 200

Posted on 2008-10-21
Last Modified: 2012-08-13
Any suggestions on migrating printers shared from a server running server 2000 to a new server w/server 2003?
Question by:whwoodside
LVL 18

Accepted Solution

sk_raja_raja earned 125 total points
ID: 22771571

Expert Comment

ID: 22771574

Expert Comment

ID: 22771610
It's a matter of installing the drivers and creating the queues and ports.  This utility should do the queue/port work for you.

If you need something more granular, I have written some vbs stuff that allows you to export the printer config to a .csv, modify anything you want, then import it on another server.  Let me know if the MS utility helps.

Expert Comment

ID: 22772074
and this is for the clients to find the new printers


m   a   r   c

' Script:   	  printmg.vbs
' Ver:		  2.0
' Author: 	  Lecaf
' Support:	  None
' Licence: 	  Free to use at your own risk
' Description:    Migrates printer from one server to an other 
'		  keeps the default printer
'		  deletes not migrated printers
' Compatibility:  WSH 5.6
' Parameters:     none
' Modify:         Server name in 'constants section'
'		  Translation array near the end		
'on error resume next 
' Constants
Const NETWORK = 22
strComputer = "."
strServer = ""
' Object Creation
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
' Main
Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer")
For Each objPrinter in colPrinters
	If objPrinter.Attributes And NETWORK Then
		If LCase(objPrinter.ServerName) = "\\" & LCase(strServer) Then
			sOldPrinter = objPrinter.Name
			sNewPrinter = TranslatePrinter(sOldPrinter)
			If sNewPrinter <> "nada" Then 'if it got translated
				WshNetwork.AddWindowsPrinterConnection sNewPrinter 
				If objPrinter.Default Then 'if it was the deafault one restore it
					WshNetwork.SetDefaultPrinter sNewPrinter 
				End If
			End If
			WshNetwork.RemovePrinterConnection sOldPrinter 
		End If
	End If
' Clean up
Set colPrinters = Nothing
Set objWMIService = Nothing
Set WshNetwork = Nothing
Function TranslatePrinter(ByVAl OldPrinter)
' Description:  Converts a old printer to new Printer according to translation table
' Returns: a printer url or "nada"
Select Case lcase(OldPrinter)
'modify from here
case lcase("\\\AGFA-AccuSet v52.3")		TranslatePrinter="\\telemach\AGFA-AccuSet v52.3"
case lcase("\\prfs005\DJ840C4eF")			TranslatePrinter="\\prfs006\CITI-c"
case lcase("\\prfs005\Fax4eme" )			TranslatePrinter="\\prfs006\CITI-FAX"
case lcase("\\prfs005\Faxination")   	 		TranslatePrinter="\\prfs006\TRIM-FAX"
case lcase("\\prfs005\hp LaserJet 1320 PCL5e" )		TranslatePrinter="\\prfs006\TRIM-2"
case lcase("\\prfs005\HPLaserJet1200" )			TranslatePrinter="\\prfs006\TRIM-3"
case lcase("\\prfs005\hpLJ6p" )				TranslatePrinter="\\prfs006\TRIM-1"
case lcase("\\prfs005\openspls4th" )			TranslatePrinter="\\prfs006\CITI-BW"
' End of modify
Case Else TranslatePrinter= "nada"
End select
End function

Open in new window


Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Organizations create, modify, and maintain huge amounts of data to help their businesses earn money and generally function.  Typically every network user within an organization has a bit of disk space to store in process items and personal files.   …
by Batuhan Cetin Within the dynamic life of an IT administrator, we hold many information in our minds like user names, passwords, IDs, phone numbers, incomes, service tags, bills and the order from our wives to buy milk when coming back to home.…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

831 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question