Vista - Network printer deployment script

Greetings,

I am going to consolidate 5 print server located at physically different
location into one print server.
I can use print migration utility to migrate queues from all 5 machine to
new single machine.
But I know one the old machine are shutdown client will not be able to print
unless we re-create network printer for them pointing to new print server.
For this purpose I am looking for VBScript and any better ideas. There are
1200 users spreading in 5 corner of the city.

I appreciate you time and effort.

regards

--
Rahisuddin Shah
MCSE - MCSA - ITIL

"Rahisuddin Shah" <raisboss@xxxxxx> wrote in message
news:uURGu%23eYJHA.1528@xxxxxxYou can use the 'WScript.Network' object to do this. See sample below.
Just add as many or as few items to the dictionary as you need. The script
would need to be run on each machine for each user. You can add it to your
login script or call it from your login script.

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Set oWNT = CreateObject("WScript.Network")
Set oPrinters = CreateObject("Scripting.Dictionary")
oPrinters.CompareMode = 1 'Case Insensitive

oPrinters.Add "\\oldserver1\printer1", "\\newserver\printer1"
oPrinters.Add "\\oldserver1\printer2", "\\newserver\printer2"
oPrinters.Add "\\oldserver2\printer1", "\\newserver\printer3"

Set oConnections = oWNT.EnumPrinterConnections

For i = 1 to oConnections.Count - 1 Step 2
If oPrinters.Exists(oConnections(i)) Then
oWNT.RemovePrinterConnection oConnections(i), True
oWNT.AddWindowsPrinterConnection oPrinters(oConnections(i))
End If
Next
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~