Подключение принтеров

Через скрипт подключаем принтера, и в зависимости от группы в AD устанавливаем принтер по умолчанию. Альтернатива решению GPO.


code (VBS)

'======================================================================='
' '
' Подключение принтеров по группам в AD v.3 '
' '
' (22.11.2010 ) '
' '
'======================================================================='

Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
Set WshNetwork = CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection "\\prserver\PR_01_HP1815" ' подключение принтеров
WshNetwork.AddWindowsPrinterConnection "\\prserver\PR_02_HP2020"
WshNetwork.AddWindowsPrinterConnection "\\prserver\PR_03_HP2021"
WshNetwork.AddWindowsPrinterConnection "\\prserver\PR_04_HP2300"

printervibran = 0
'в зависимости от того, в какой группе пользователь - подключаем принтер по умолчанию.
q = proverka("Имя группы1","\\prserver\PR_01_HP1815")
q = proverka("Имя группы2","\\prserver\PR_02_HP2020")
q = proverka("Имя группы3","\\prserver\PR_03_HP2021")
q = proverka("Имя группы4","\\prserver\PR_04_HP2300")


function proverka(printergroup,printerpath)
If printervibran = 0 Then
Set objGroup = GetObject("LDAP://cn="&printergroup&",ou=Groups,ou=имяOU,dc=домен,dc=local")
If (objGroup.IsMember(objUser.AdsPath) = True) Then
WshNetwork.SetDefaultPrinter printerpath
printervibran = 1
end if
end if
proverka = 0
end function


On Error GoTo 0