Получение в ИБСО почтового адреса из AD. Как?
|
| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Underliner
Участник
Вступление в Клуб: 03.07.2007
|
 Ср Июн 13, 2012 18:02 Получение в ИБСО почтового адреса из AD. Как? |
 |
Полезность: Нет оценки
|
| Хотелось бы в ИБСО поиметь почтовые адреса из Active Directory. Как бы это организовать? |
|
 |
hornet
Участник со стажем
Вступление в Клуб: 24.07.2008
|
| Чт Июн 14, 2012 06:16 |
|
Полезность: 1
|
Через клиент скрипт как то так:
| Код: | Set objRs = CreateObject("ADODB.Recordset")
strConn = "Provider=ADsDSOObject;Encrypt Password=False;Integrated Security=SSPI;Data Source=adsdatasource;Mode=Read;Bind Flags=0;ADSI Flag=-2147483648"
strComm = "SELECT samaccountname, adspath, mail FROM 'LDAP://DC=Домен,DC=local' WHERE objectCategory = 'Person' AND objectClass= 'user' AND name = блбла
adOpenForwardOnly = 0
adLockReadOnly = 1
adCmdText = 1
objRs.Open strComm, strConn, adOpenForwardOnly, adLockReadOnly, adCmdText
if not (objRs.EOF and objRs.BOF) then
objRs.MoveFirst
Do while not objRs.EOF
...
objRs.Fields.Item("mail")
...
objRs.Movenext
loop
end if
objRs.Close
objRs = null
|
|
|
|
|
|
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
|
|
О проекте
Поиск
Отзывы
Регистрация
Вход
