Solved

printer server migration from server 200

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

Accepted Solution

by:
sk_raja_raja earned 125 total points
ID: 22771571
0
 
LVL 4

Expert Comment

by:Mitch1981
ID: 22771574
0
 
LVL 2

Expert Comment

by:porkchopexpress
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.

http://www.microsoft.com/WindowsServer2003/techinfo/overview/printmigrator3.1.mspx

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.
0
 
LVL 5

Expert Comment

by:lecaf
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 = "10.0.0.10"
 

'-------------------------------------------------------------------------------

' 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

Next
 

'-------------------------------------------------------------------------------

' Clean up

'-------------------------------------------------------------------------------

Set colPrinters = Nothing

Set objWMIService = Nothing

Set WshNetwork = Nothing

wscript.quit(0)
 

 

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("\\10.0.0.10\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

0

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: http://www.codetwo.com/backup-for-office-365/ (http://www.codetwo.com/ba…

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