Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 18.09.2012, 13:38
lestatgi lestatgi вне форума
Прохожий
 
Регистрация: 07.06.2010
Сообщения: 32
Репутация: 10
По умолчанию active directory

По скажите как можно посмотреть пользователей в active directory.
на подобии NetUserEnum
Ответить с цитированием
  #2  
Старый 18.09.2012, 14:29
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от lestatgi
По скажите как можно посмотреть пользователей в active directory.
на подобии NetUserEnum
С Active Direcory не получится работать так же легко, как с NetUserEnum. Сложности начинаются уже с того, что в Active Direcory иерархическая структура (т.е. в виде дерева).
Ответить с цитированием
  #3  
Старый 18.09.2012, 15:21
lestatgi lestatgi вне форума
Прохожий
 
Регистрация: 07.06.2010
Сообщения: 32
Репутация: 10
По умолчанию

Цитата:
Сообщение от poli-smen
С Active Direcory не получится работать так же легко, как с NetUserEnum. Сложности начинаются уже с того, что в Active Direcory иерархическая структура (т.е. в виде дерева).
ну хотя бы где почитать про это?
Ответить с цитированием
  #4  
Старый 18.09.2012, 15:48
Аватар для Lost_Fish
Lost_Fish Lost_Fish вне форума
Начинающий
 
Регистрация: 21.07.2011
Адрес: Новосибирск
Сообщения: 103
Версия Delphi: Delphi 7,XE2
Репутация: выкл
По умолчанию

может поможет
http://forum.ru-board.com/topic.cgi?forum=33&topic=2180
http://stackoverflow.com/questions/3...tive-directory
__________________
Код сырец
Ответить с цитированием
  #5  
Старый 18.09.2012, 16:27
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Active Directory Service Interfaces Reference
+
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #6  
Старый 18.09.2012, 16:39
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Сделал минимальный проект для поиска пользователей в Active Direcory через запросы к провайдеру LDAP.
Вложения
Тип файла: 7z FindADUsers (2012-09-18-1).7z (325.4 Кбайт, 215 просмотров)
Ответить с цитированием
Эти 4 пользователя(ей) сказали Спасибо poli-smen за это полезное сообщение:
alkin (21.05.2015), Rodelim (03.03.2017), seelenus (19.01.2013), tsaka (21.03.2017)
  #7  
Старый 24.06.2013, 10:28
8adim 8adim вне форума
Прохожий
 
Регистрация: 24.06.2013
Сообщения: 2
Версия Delphi: Delphi XE2
Репутация: 10
По умолчанию

Цитата:
Сообщение от poli-smen
Сделал минимальный проект для поиска пользователей в Active Direcory через запросы к провайдеру LDAP.

Посмотрел пример. Это примерно то, что мне надо. Но вот столкнулся с непреодолимой проблемой: мне нужно гораздо больше атрибутов. И некоторые из них имеют какой-то загадочный тип - что то вроде OLEWideString и Variant Array (например атрибут ObjectClass). Не могу понять, как прямо в SQL преобразовать к чему то нормальному, типа String. Почему-то не работает ни одна из функций - ни SubStr ни SubString ни вообще ничего из знакомого. Что делать?

Последний раз редактировалось 8adim, 24.06.2013 в 10:39.
Ответить с цитированием
  #8  
Старый 24.06.2013, 18:06
8adim 8adim вне форума
Прохожий
 
Регистрация: 24.06.2013
Сообщения: 2
Версия Delphi: Delphi XE2
Репутация: 10
По умолчанию зачитать объекты AD

Мне нужно в Delphi зачитать объекты AD с определенным набором атрибутов. Когда брать простые атрибуты типа Name, Mail, OU, и т.д. проблем никаких - VarToStr - и все ок. Но я столкнулся с серьезной проблемой. Часть атрибутов в запросе более сложных форматов, например Array of Variant (с этим я разобрался) и Dispatch (вот этот никак не могу осилить) как его распарсить в Delphi и получить конкретное стороковое значение.
Работаю через ADOQuery. Запрос простой, выглядит так:

SELECT
objectClass
,objectCategory
,objectGUID
,objectSid
,cn
,ou
,whenCreated
,whenChanged
,Name
,distinguishedName
,ADsPath
,description
,sAMAccountName
,userPrincipalName
,mail
,otherMailbox
,proxyAddresses
,dNSHostName
,operatingSystem
,operatingSystemVersion
,operatingSystemServicePack
,pwdLastSet
,badPwdCount
,badPasswordTime
,localPolicyFlags
,accountExpires
,lastLogoff
,lastLogon
,logonCount
FROM
'LDAP://DC=sidomain,DC=local'
WHERE objectClass='user' or objectClass='computer'


Подскажите, плиз, как получить значение атрибута, например pwdLastSet.
Спасибо.
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 21:00.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025