I have been onto a site recently, and had issues with the Group Policy Preferences not applying to the printers. I found out that this was due to the time it takes the printer to respond to the request to be “mapped” and made default.<\/p>\n
I spent a few hours and hacked around some code and came up with this little masterpiece to allow multiple room printers to be added to the relevant OU based PC<\/p>\n
‘—————Delete all Printers————————————————–
\nDim wshNetwork, sPrintPath, clPrinters, i
\nSet wshNetwork = CreateObject(“WScript.Network”)<\/p>\n
‘Remove Existing Printers
\nSet clPrinters = wshNetwork.EnumPrinterConnections
\nOn Error Resume Next
\nFor i = 0 to clPrinters.Count – 1 Step 2
\nwshNetwork.RemovePrinterConnection clPrinters.Item(i+1), true
\nNext
\nOn Error Goto 0<\/p>\n
‘—- For citrix script, un-comment following two lines:<\/p>\n
‘Set Sh = CreateObject(“WScript.Shell”)
\n‘sys = Sh.ExpandEnvironmentStrings(“%CLIENTNAME%”) ‘sys= the returned workstation name (Citrix only)<\/p>\n
‘—- For normal Windows machines un-comment the following line<\/p>\n
sys = wshNetwork.ComputerName ‘sys = computer name (standard domain workstations – not citrix)<\/p>\n
‘—- Note, you can’t have both of these uncommented!!!<\/p>\n
‘User = CreateObject(“WScript.Network”).Username ‘ This returns the logged on username to variable: User<\/p>\n
‘—————————————————————————————————————<\/p>\n
CName = UCase(sys) ‘Get name from network object (Uppercase)
\nSet oNet = CreateObject(“WScript.Network”)
\n‘
\n‘ -=( Add printer and set a default based on computer name (CName) )=-
\n‘<\/p>\n
‘ Test for Left(CName,NumberofChars)<\/p>\n
‘ WEST BLOCK SCRIPTS<\/p>\n
if Left(CName,3) = “W21” Then<\/p>\n
oNet.AddWindowsPrinterConnection “\\print-serverw21-mono”
\noNet.AddWindowsPrinterConnection “\\print-serverw21-colour”
\noNet.SetDefaultPrinter “\\print-serverw21-mono”<\/p>\n
Elseif Left(CName,3) = “W22” Then<\/p>\n
oNet.AddWindowsPrinterConnection “\\print-serverw22-Mono”
\noNet.AddWindowsPrinterConnection “\\print-serverw22-Colour”
\noNet.SetDefaultPrinter “\\print-serverw22-mono”<\/p>\n
etc etc<\/p>\n
end IF<\/p>\n","protected":false},"excerpt":{"rendered":"
I have been onto a site recently, and had issues with the Group Policy Preferences not applying to the printers. I found out that this was due to the time it takes the printer to respond to the request to be “mapped” and made default. I spent a few hours and hacked around some code … <\/p>\n