Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Новый участник


Сообщения: 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