CftClub.ru
Клуб специалистов ЦФТ-Банк

Получение в ИБСО почтового адреса из AD. Как?

 
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Интеграция с внешними подсистемами
Предыдущая тема :: Следующая тема  
Автор Сообщение
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
Показать сообщения:   
Ответить на тему    Клуб специалистов ЦФТ-Банк (IBSO) -> Интеграция с внешними подсистемами Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Рейтинг@Mail.ru