Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

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

Отвечаю:

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

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

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

Можно организовать выборку с использованием ADOQuery по objectClass user. Если ещё актуально, то в личку плиз за примером.
в личку... а че здесь то не судьба выложить???
как будто блин америку открыл
rurnit вне форума Ответить с цитированием
Старый 29.11.2010, 09: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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программное добавление пользователя в 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