Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: подключение по com к Active Directory через LDAP запрос.  (Прочитано 11803 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Radistka
Помогающий

ru
Offline Offline
Пол: Женский

« : 21-05-2015 08:24 » new

Код:
АДОКоннектор.Open("Provider=ADsDSOObject;User Id="+Т.Логин + ";Password="+Т.Пароль+";");
ВыборкаАДО = АДОКоннектор.Execute(ТекстЗапросаПолучить("SELECT AdsPath,objectGUID FROM 'LDAP://pcontroller.internal.XXXX.ru/CN=Users,DC=internal,DC=XXXX,DC=ru'
 WHERE   objectCategory = 'person'  and objectClass = 'user'  ORDER BY sn"));
Пока НЕ ВыборкаАДО.EOF() Цикл
        ПутьОбъекта = ВыборкаАДО.Fields("AdsPath").Value;
        ОбъектАД = ПолучитьCOMОбъект(ПутьОбъекта);      //вот тут у меня вываливается, пишет что не может получить объект

Подключаюсь, запрос выполняется, количество записей показывает а вот получить их не могу. Здесь была моя ладья...
подозреваю что с логином и паролем неверно работаю, так как есть ещё несколько АДшек к которым цепляюсь без указание логин-пароля и там всё нормально проходит.


Добавлено через 3 часа, 54 минуты и 39 секунд:
Код:
Root_AD = ПолучитьCOMОбъект("LDAP:");
ОбъектАД = Root_AD.OpenDSObject(ПутьОбъекта,Т.Логин,Т.Пароль,100);


Решение найдено
« Последнее редактирование: 21-05-2015 12:18 от Radistka » Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines