Setting Up Shared Printers with Logon Script
I still have some Windows 2003 Servers running on some networks and whenever I need to setup shared printers I use the following VBScript as a Logon Script.
'------------------------------------------- ' Printer Install '------------------------------------------- 'Variables declaration Dim net Dim mainOfficePrinter Dim FAXPrinter 'Creating WScript.Network Object Set net = CreateObject("WScript.Network") mainOfficePrinter = "\\server\printer" FAXPrinter = "\\server\fax" 'Adding FAX and main Printer net.AddWindowsPrinterConnection FAXPrinter net.AddWindowsPrinterConnection mainOfficePrinter 'Enymerating Printer Connections Set printersEnum = net.EnumPrinterConnections 'Deleting non existent printers For i = 0 to printersEnum.Count-1 Step 2 If printersEnum.Item(i + 1) = "\\server\oldprinter" Then net.RemovePrinterConnection printersEnum.Item(i + 1), true, true End If If printersEnum.Item(i + 1) = "\\oldserver\printer" Then net.RemovePrinterConnection printersEnum.Item(i + 1), true, true End If If printersEnum.Item(i + 1) = "\\oldserver\oldprinter" Then net.RemovePrinterConnection printersEnum.Item(i + 1), true, true End If Next 'Setting default Printer net.SetDefaultPrinter(mainOfficePrinter)