Код:
Set WshNetwork = WScript.CreateObject("WScript.Network")
PrinterPath = "\\printserv\DefaultPrinter"
PrinterDriver = "Lexmark Optra S 1650"
WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver
Это можно сделать приведенным выше VBS скриптом. (взял его из Helpa по vbs,а под определенные нужды, можно поправить по желанию).