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