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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

by Batuhan Cetin In this article I will be guiding through the process of removing a failed DC metadata from Active Directory (hereafter, AD) using the ntdsutil tool in a Windows Server 2003 environment. These steps are not necessary in a Win…
Setting up a Microsoft WSUS update system is free relatively speaking if you have hard disk space and processor capacity.   However, WSUS can be a blessing and a curse. For example, there is nothing worse than approving updates and they just have…
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
In this video I am going to show you how to back up and restore Office 365 mailboxes using CodeTwo Backup for Office 365. Learn more about the tool used in this video here: (…

920 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

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now