Подключить сетевой принтер как локальный...

[DarckSol]

Добрый день... Столкнулся с необходимостью подключить сетевой принтер как локальный... Выполнить это стоит массово... Подскажите, как это можно сделать..

За ранее, спасибо!

[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)