Solved

printer server migration from server 200

Posted on 2008-10-21
4
301 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

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Preface Having the need * to contact many different companies with different infrastructures * do remote maintenance in their network required us to implement a more flexible routing solution. As RAS, PPTP, L2TP and VPN Client connections are no…
ADCs have gained traction within the last decade, largely due to increased demand for legacy load balancing appliances to handle more advanced application delivery requirements and improve application performance.
This tutorial demonstrates a quick way of adding group price to multiple Magento products.
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

747 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

12 Experts available now in Live!

Get 1:1 Help Now