 |
|
Модераторы: Snowy, Poseidon, MetalFan |
 
|
|
Active Directory, Работа с Active Directory из Delphi 7 
| AlexGAV |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 28.8.2006 Репутация: нет Всего: нет |
Подскажите как из Delphi зная логин пользователя получить из Active Directory полную информацию о пользователи. Вчастности необходимо узнать только ФИО. Если нетрудно помогите кусочком кода.
|
|||
|
||||
Загрузка ...
| Snowy |
|
|||
 Эксперт  Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 53 Всего: 484 |
Домена нет, так что кодом не помогу.
Вариантов несколько. 1. Самый простой - вызвать "NET USER /DOMAIN UserName", считать его вывод и распарсить. 2. Подключение к AD по LDAP и отправка LDAP запросов. (Примеров у меня нет) 3. Используя ADSI. Примеров тоже нет - смотреть справку в MSDN. Заголовки тут: http://sources.codenet.ru/file/969/adsi.zip |
|||
|
||||
| AlexGAV |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 28.8.2006 Репутация: нет Всего: нет |
Можно поподробней про первый способ.
|
|||
|
||||
| Snowy |
|
|||
|
Эксперт Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 53 Всего: 484 |
Берёшь вот эту функцию: http://vingrad.ru/DELPHI-DLP-000823
И запускаешь в ней 'net user /domain ' + UserName гже UserName - имя пользователя. Результат функции запиши в TStringList.Text А дальше смотри сам, как и что использовать. |
|||
|
||||
| AlexGAV |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 28.8.2006 Репутация: нет Всего: нет |
Чето не получается прога пишет "Could not execute command line!"
И помоему командой net можно только увидеть название машины и логин. а мне нужно полное ФИО. Я впервые пишу приложение работающее в сети по этому прошу прощение за тупые вопросы. Нельзя ли плиз рабочий кусок кода. Чтобы получить полное ФИО пользователя. |
|||
|
||||
| Snowy |
|
|||
|
Эксперт Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 53 Всего: 484 |
А, ну да. Полностью строка должна быть такой:
'cmd /c net user /domain UserName' |
|||
|
||||
|
|
| Правила форума "Delphi: Сети" | |
|
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делится вскрытыми компонентами
Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Сети | Следующая тема » |
[ Время генерации скрипта: 0.0448 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |