addPrinter.vbs

On Error Resume Next
 
Set WshNet = CreateObject("WScript.Network")
 
WshNet.AddWindowsPrinterConnection "\\SERVERNAME\PrinterName"
WshNet.SetDefaultPrinter "\\SERVERNAME\PrinterName"
 
Set WshNet = Nothing