Not sure if you’ve every had an issue where you have to move printers from one print server to another… I have had this come up a couple times…<\/p>\n
Here’s a little vbs that can be executed from a logon script, that will look at a mapped printer’s connection (which server it is on), remove it, and then map it to another system.<\/p>\n
Keep in mind, all the printers on NEWSERVER must have the same share names as the OLDSERVER.<\/p>\n
Basically this script enumerates each printer, looks for the server it is mapped from, deletes the printer, and then adds the new printer, which happens to be the same printer, but mapped on a different server.<\/p>\n
Here is the code:<\/p>\n
On Error Resume Next
\nDim strComputer
\nDim objWMIService
\nDim colItems
\nDim WshNetwork<\/p>\nSet WshNetwork = WScript.CreateObject(“WScript.Network”)<\/p>\n
strComputer = “.”
\nSet objWMIService = GetObject(“winmgmts:\\” & strComputer & “rootcimv2”)
\nSet colItems = objWMIService.ExecQuery(“Select * from Win32_Printer”,,48)
\nFor Each objItem in colItems
\nIf objItem.ServerName = “\\OLDSERVER” then
\nWshNetwork.RemovePrinterConnection objItem.ServerName & “” & objItem.ShareName, true, true
\nWshNetwork.AddWindowsPrinterConnection “\\NEWSERVER” & objItem.Sharename
\nEnd If
\nNext<\/p><\/blockquote>\n