Работа С Active Directory В Delphi

Active Directory (AD) - это служба каталогов и управления правами доступа, предоставляемая Microsoft. AD может использоваться для аутентификации и авторизации пользователей и компьютеров в сети Windows. Delphi предоставляет поддержку Active Directory через интерфейс ADSI (Active Directory Service Interface).

Для работы с Active Directory в Delphi необходимо подключить модуль ADSIIntf и создать экземпляр объекта DirectoryEntry, представляющего узел Active Directory. Ниже приведен пример кода для получения списка пользователей в определенной группе:

var
  DirEntry: IADs;
  GroupUsers: IADsMembers;
  GroupUser: IUnknown;
  EnumGroupUser: IEnumVariant;
  GroupUserVariant: OleVariant;
  i: Integer;
begin
  DirEntry := GetObject('LDAP://cn=GroupName,ou=Groups,dc=example,dc=com');
  GroupUsers := DirEntry.Members;
  EnumGroupUser := GroupUsers._NewEnum as IEnumVariant;
  while EnumGroupUser.Next(1, GroupUserVariant, i) = S_OK do
  begin
    GroupUser := IUnknown(GroupUserVariant) as IADs;
    ShowMessage(GroupUser.Name);
  end;
end;

В этом примере GetObject используется для получения объекта DirectoryEntry для группы Active Directory с именем "GroupName". Затем получается коллекция пользователей группы через свойство Members объекта DirectoryEntry. В цикле while перечисляются пользователи группы через EnumGroupUser и получают имя каждого пользователя через свойство Name объекта IADs.