Новый участник
Сообщения: 2
Благодарности: 0
|
Профиль
|
Отправить PM
| Цитировать
Нашел на просторах Интернета и попытался приспособить вот такой код:
(Проверяю на себе. Вхожу в группу "Administrators", домен "linom")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oSysInfo = WScript.CreateObject("ADSystemInfo")
sUserDN = oSysInfo.UserName
MsgBox sUserDN
Set oUser = GetObject("LDAP://" & sUserDN)
Set oGroup = GetObject ("LDAP://CN=Administrators,DC=linom,DC=ru")
If oGroup.IsMember("LDAP://" & sUserDN) then
MsgBox "Входит в группу"
Else
MsgBox "Не входит в группу"
End If
Возвращает такую ошибку:
Строка: 6
Символ: 1
Ошибка: Сервер возвратил ссылку
Код: 8007202B
Источник: (null)
Подскажите что нужно исправить в строке:
Set oGroup = GetObject ("LDAP://CN=Administrators,DC=linom,DC=ru")
|
Отправлено: 13:27, 12-03-2013
| #2
|