Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 13.03.2007, 16:28   #1
SJMS
 
Регистрация: 18.01.2007
Сообщений: 9
Лампочка Как получить список пользователей из Active Directory

Как получить список пользователей из Active Directory c последующим выводом в ComboBox.. Нужны имена пользователей!
SJMS вне форума Ответить с цитированием
Старый 03.11.2008, 14:49   #2
luckyfuck
 
Регистрация: 17.10.2008
Сообщений: 9
По умолчанию

Отвечаю:

Можно организовать выборку с использованием ADOQuery по objectClass user. Если ещё актуально, то в личку плиз за примером.

Последний раз редактировалось luckyfuck; 03.11.2008 в 14:56.
luckyfuck вне форума Ответить с цитированием
Старый 29.11.2010, 10:08   #3
rurnit
Новичок
Джуниор
 
Регистрация: 29.11.2010
Сообщений: 2
По умолчанию кхех

Цитата:
Сообщение от luckyfuck Посмотреть сообщение
Отвечаю:

Можно организовать выборку с использованием ADOQuery по objectClass user. Если ещё актуально, то в личку плиз за примером.
в личку... а че здесь то не судьба выложить???
как будто блин америку открыл
rurnit вне форума Ответить с цитированием
Старый 29.11.2010, 10:32   #4
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

1)Кладем на форму компонент TADOConnection и назначаем в качестве провайдера OLE DB Provider for Microsoft Directory Services. При необходимости можно также указать имя пользователя и пароль.
2) Кладем на форму TADOQuery и в SQL задаем следующий запрос:
Код:
select distinguished Name, Name from 'LDAP:\rootDSE' where objectClass='user' or objectClass='group'
Более подробно смотрим в MSDN, статья ADSI Provider (ADO)

Этим запросом получаем список подразделений
Код:
select Name 
from 'LDAP://DC=s42, DC=local' where objectCategory='organizationalUnit'
Этим - список юзеров
Код:
select userPrincipalName, Name, sAMAccountName from 'LDAP://DC=s42, DC=local' where objectCategory='person'
Этим - юзеров из подразделения
Код:
Select Name, userPrincipalName from 'LDAP:\OU=MyUnit, DC=s42,DC=local' where objectCategory='person'
(Выжимка из материалов другого форума)
mihali4 вне форума Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программное добавление пользователя в Active Directory smilova Работа с сетью в Delphi 6 19.04.2010 01:12
Помощь с Active Directory banzai Windows 1 16.07.2008 21:44
Как вытащить из XP список пользователей UnD)eaD)Snake Win Api 10 29.04.2008 20:38
сделать в боте список зарегистрированных пользователей Kukkk Компоненты Delphi 2 06.10.2007 18:01