Цитата R3pl1CID:
|
Задача функции, получить парамер и запустить пакетник...
|
Стало быть, функция должна вызываться на каждое вхождение пользователя в ту или иную группу.
Пример одного из возможных вариантов:
Код:
Dim objItem, strDomain, strUser
Const strOU = "OU=TargetOU,"
strDomain = GetObject("LDAP://RootDSE").Get("DefaultNamingContext")
strUser = CreateObject("ADSystemInfo").UserName
For Each objItem In GetObject("LDAP://" & strOU & strDomain)
If StrComp(objItem.Class, "group", vbTextCompare) = 0 Then
If objItem.IsMember("LDAP://" & strUser) Then
Call GpRunObject(objItem.cn)
End If
End If
Next
WScript.Quit 0
Удалите оператор
WScript.Quit из кода функции. Этого требует алгоритм решения задачи.
