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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 13.03.2007, 16:28   #1
SJMS
 
Регистрация: 18.01.2007
Сообщений: 9
Репутация: 17

icq: 287113768
Лампочка Как получить список пользователей из Active Directory

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

Отвечаю:

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

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

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

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

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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


23:53.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru