А вот так, файл должен иметь расширение vbs.


------------------------------------------ addNetPrinter.vbs ---------------------------
Dim net
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection "\\dc\hp1200floor5"
------------------------------------------------------------------------------------------