?
Solved

printer server migration from server 200

Posted on 2008-10-21
4
Medium Priority
?
319 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:Woody Woodside
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
4 Comments
 
LVL 18

Accepted Solution

by:
sk_raja_raja earned 500 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

Get real performance insights from real users

Key features:
- Total Pages Views and Load times
- Top Pages Viewed and Load Times
- Real Time Site Page Build Performance
- Users’ Browser and Platform Performance
- Geographic User Breakdown
- And more

Question has a verified solution.

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

Recently, I had the need to build a standalone system to run a point-of-sale system. I’m running this on a low-voltage Atom processor, so I wanted a light-weight operating system, but still needed Windows. I chose to use Microsoft Windows Server 200…
On July 14th 2015, Windows Server 2003 will become End of Support, leaving hundreds of thousands of servers around the world that still run this 12 year old operating system vulnerable and potentially out of compliance in many organisations around t…
In this video we outline the Physical Segments view of NetCrunch network monitor. By following this brief how-to video, you will be able to learn how NetCrunch visualizes your network, how granular is the information collected, as well as where to f…
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you! In this Micro Tutorial, you'll learn yo…
Suggested Courses

741 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