rem ** Next line must not be deleted **
Set WshNetwork = CreateObject("WScript.Network")
rem ** This will delete existing printers **
On Error Resume Next
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 1 to oPrinters.Count - 1 Step 2
WshNetwork.RemovePrinterConnection oPrinters.Item(i)
Next
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\YOURSERVER\PRINTER"
WshNetwork.AddWindowsPrinterConnection "\\YOURSERVER\PRINTER"
WshNetwork.AddWindowsPrinterConnection "\\YOURSERVER\PRINTER"
rem ** Setup default printer **
WshNetwork.SetDefaultPrinter "\\YOURSERVER\PRINTER"