'-----------------------------------------------
'
'Скрипт подключает сетевые принтера на всех машинах, кроме той, к которой подключен принтер
'рекомендуется запускать cscript "filename" //B
'-----------------------------------------------
'

'Подключение принтеров
'
HPLJ2200 = "\\secretar02\HPLJ2200" 
LocPrint1 = "secretar02" 'Компьютер, к которому подключен HPLJ2200

set nw = WScript.CreateObject("WScript.Network")
compname=nw.Computername
if compname<>UCASE(LocPrint1) then
nw.AddWindowsPrinterConnection(HPLJ2200)
nw.SetDefaultPrinter(HPLJ2200)
end if