Cannot migrate users print queues to new print server

Question

I am needing to move the print queues on users computers to a new print server that I have set up by I am not able to do so. I have over 200 users at the office. I am thinking it is a problem getting to run it on the clients, but not sure where it is failing...
To start... I have moved the print queues from Server 2003 to Server 2008 R2. The machines are both 64 bit. I was able to export the drivers and the print queues to the new server using the print migrate tool. The names of the printers are the same on both...
The names of the print servers are different. I added a print queue to a test client and was able to print to it without a problem mapped to the new server, so that's not the problem.
What I can't do is use the script (see below) to remap the clients to the new server. I have tried and configured the script as a user log on script, configured a group policy and placed my test user in the OU. Rebooted the machine, logged
on with the test account but the print queues stay the same. I have even tried to run the script locally but still no joy... it runs but the queues stay the same. I used RSOP and see that the script is being applied... I am running Windows 7 Professional.
I really need to get this resolved as the server is being decommissioned within the month.
Option Explicit
Dim from_sv, to_sv, PrinterPath, PrinterName, DefaultPrinterName, DefaultPrinter
Dim DefaultPrinterServer, SetDefault, key
Dim spoint, Loop_Counter, scomma
Dim WshNet, WshShell
Dim WS_Printers
DefaultPrinterName = ""
spoint = 0
scomma = 0
SetDefault = 0
set WshShell = CreateObject("WScript.shell")
from_sv = "\\srvprint_1" 'This should be the name of the old server.
to_sv = "\\srvprint_2" '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 lcase(DefaultPrinterServer) = from_sv then
        DefaultPrinterName = mid(DefaultPrinter,spoint,len(DefaultPrinter)-spoint+1)
        scomma = instr(DefaultPrinterName,",")
        DefaultPrinterName = left(DefaultPrinterName,scomma -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 lcase(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.
        'Do not create c6100
        if lcase(PrinterName) <> "c6100" then
            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
    end if
Next
Set WS_Printers = Nothing
Set WshNet = Nothing
Set WshShell = Nothing

Answer 1

Hi,
àI added a print
queue to a test client and was able to print to it without a problem mapped to the new server, so that's not the problem.
àWhat I can't
do is use the script (see below) to remap the clients to the new server.
Based on your description, I understand that you have moved print queues to new print server via print migrate
tool successfully. However, when use this script (Remap Printer Connections) to re-map Printer Connections, the script seems to not be ran as expected. Meanwhile,
I noticed that you had ran the script locally. Did you find any error when ran this script?
On current situation, this issue seems to be more related to this Remap Printer Connections script. I suggest
that you would post it in
Official Scripting Guys Forum. I believe we will get a better assistance there.
If anything I misunderstand or any update, please don’t hesitate to let me know.
Best regards,
Justin Gu