[Nand]

Что то типа:
'printer_mount.vbs
Dim objNetwork, objArgs
Dim strPrintSrv, strPrintName
Set objArgs = WScript.Arguments.Named
Set objNetwork = CreateObject("Wscript.Network")
strPrintSrv = objArgs.Item("PrintSrv") ' ip || имя принт-сервера
strPrintName = objArgs.Item("Printer")'имя принтера
objNetwork.AddWindowsPrinterConnection "\\" & strPrintSrv & "\" & strPrintName

Запускать:
Set objWSH = CreateObject("WScript.Shell")
call objWSH.Run("%COMSPEC% /c wscript " & strScriptPath & "printer_mount.vbs /PrintSrv:XXXXXXX /Printer:YYYYYY"_
, Hide_Window, Wait_on_return)