Автоматическая установка сетевого принтера

Материал из RSU WiKi

Довольно часто перед системным администратором встаёт задача подключения сетевого принтера на все компьютеры домена. Данную задачу можно решить как в лоб (бегать и устанавливать на каждую машину под администратором), так и заставив ОС подхватывать принтер автоматически. Для второго способа можно воспользоваться следующим WSH-скриптом:

Option Explicit
Dim WSHNetwork, Computer, Path, strComputerDN, objSysInfo, objComputer, sPrintPath
Set WSHNetwork = CreateObject("WScript.Network")
On Error Resume Next
Path = WSHNetwork.ComputerName
Set objSysInfo = CreateObject("ADSystemInfo")
strComputerDN = objSysInfo.ComputerName
Set objComputer = GetObject("LDAP://" & strComputerDN)

sPrintPath = "\\имя_компьютера\имя_принтера"


WSHNetwork.AddWindowsPrinterConnection sPrintPath
WSHNetwork.SetDefaultPrinter sPrintPath

Данный текстовый фрагмент скопируйте в текстовый файл, задайте ему расширение vbs и включите в параметр автозагрузки (любым методом - от вложения в папку Автозагрузка, до включения скрипта в качестве сценария запуска Windows). \\имя_компьютера\имя_принтера замените на UIN Вашего принтера. Например: \\Ourcomputer\HPLaserJ.

Пример подключения скрипта во время загрузки при помощи samba-сервера можно посмотреть в статье Автоматическая настройка прокси