Moving Clients to new Print Server

  • Thread starter Thread starter Zach
  • Start date Start date
Z

Zach

Hello out there,

I have an issue I would appreciate any assistance with.

We are preparing to move all our print queues to a new
Win2000 Server (no problems there), but I am wondering if
there is an easy way make the change as transparent as
possible for our users, I'd like to keep them from having
to reinstall their printers if at all possible. I did'nt
think this is this something the Print Migrator tool can
help with, but I could be wrong...Or is there another
method to try?

Thanks in advance,

Zach
 
Zach,

This script is awesome. Have used to to move over tons of
users via AD.

Just save the below text as a vbs file.

--script text below--

Option Explicit
Dim from_sv, to_sv, PrinterPath, PrinterName,
DefaultPrinterName, DefaultPrinter
Dim DefaultPrinterServer, SetDefault, key
Dim spoint, Loop_Counter
Dim WshNet, WshShell
Dim WS_Printers
DefaultPrinterName = ""
spoint = 0
SetDefault = 0
set WshShell = CreateObject("WScript.shell")

from_sv = "\\printservername" 'This should be the name of
the old server.
to_sv = "\\printservername" 'This should be the name of
your new server.

'Just incase their are no printers and therefor no defauld
printer set
' this will prevent the script form erroring out.
On Error Resume Next
key = "HKCU\Software\Microsoft\Windows
NT\CurrentVersion\Windows\Device"
DefaultPrinter = LCase(WshShell.RegRead (key))
If Err.Number <> 0 Then
DefaultPrinterName = ""
else
'If the registry read was successful then parse out the
printer name so we can
' compare it with each printer later and reset the correct
default printer
' if one of them matches this one read from the registry.
spoint = instr(3,DefaultPrinter,"\")+1
DefaultPrinterServer = left(DefaultPrinter,spoint-2)
if DefaultPrinterServer = from_sv then
DefaultPrinterName = mid(DefaultPrinter,spoint,len
(DefaultPrinter)-spoint+1)
end if
end if
Set WshNet = CreateObject("WScript.Network")
Set WS_Printers = WshNet.EnumPrinterConnections
'You have to step by 2 because only the even numbers will
be the print queue's
' server and share name. The odd numbers are the printer
names.
For Loop_Counter = 0 To WS_Printers.Count - 1 Step 2
'Remember the + 1 is to get the full path ie..
\\your_server\your_printer.
PrinterPath = lcase(WS_Printers(Loop_Counter + 1))
'We only want to work with the network printers that are
mapped to the original
' server, so we check for "\\Your_server".
if LEFT(PrinterPath,len(from_sv)) = from_sv then
'Now we need to parse the PrinterPath to get rhe Printer
Name.
spoint = instr(3,PrinterPath,"\")+1
PrinterName = mid(PrinterPath,spoint,len(PrinterPath)-
spoint+1)
'Now remove the old printer connection.
WshNet.RemovePrinterConnection from_sv+"\"+PrinterName
'and then create the new connection.
WshNet.AddWindowsPrinterConnection to_sv+"\"+PrinterName
'If this printer matches the default printer that we got
from the registry then
' set it to be the default printer.
if DefaultPrinterName = PrinterName then
WshNet.SetDefaultPrinter to_sv+"\"+PrinterName
end if
end if
Next
Set WS_Printers = Nothing
Set WshNet = Nothing
Set WshShell = Nothing

--script text above--
 
Back
Top