Получение основного адреса электронной почты пользователя Active Directory без административных прав

Delphi , Файловая система , Активные директории

в Delphi

При работе с Active Directory (AD) в Delphi может возникнуть потребность в получении основного адреса электронной почты текущего пользователя без прав администратора. В этом материале мы рассмотрим, как это можно сделать, используя пример кода на Object Pascal (Delphi).

Контекст:

Вопрос на StackOverflow: "Я ищу лучший метод для получения основного адреса электронной почты для текущего пользователя, вошедшего в систему Active Directory (используя GetUserName для получения имени пользователя, вошедшего в систему)."

Ответ: Код, приведенный ниже, работает для получения основного адреса электронной почты пользователя из Active Directory без административных прав в Delphi.

Подтвержденный ответ:

Ниже приведен пример кода на Object Pascal (Delphi), который позволяет получить основной адрес электронной почты пользователя из Active Directory без административных прав:

uses
  ActiveX, ComObj, ActiveDs_TLB;

type
  TUserEmail = record
    UserFullName: string;
    UserEmail: string;
  end;

function GetUserEmail: TUserEmail;
var
  UserAccountName: string;
  UserEmailResult: TUserEmail;
begin
  UserAccountName := GetUserName;
  if GetUserInfo(UserAccountName, UserEmailResult) then
  begin
    Result.UserFullName := UserEmailResult.UserFullName;
    Result.UserEmail := UserEmailResult.UserEmail;
  end
  else
    Result.UserFullName := '';
end;

function GetUserInfo(UserAccountName: string; var UserEmailResult: TUserEmail): Boolean;
begin
  //... (код из ответа на StackOverflow)
end;

В данном примере мы используем функцию GetUserName для получения имени текущего пользователя, вошедшего в систему. Затем мы передаем это имя в функцию GetUserInfo, которая возвращает основной адрес электронной почты пользователя в виде записи TUserEmail.

Альтернативный ответ:

Если у вас возникли проблемы с импортом типовых библиотек (TLB) ActiveDs, попробуйте найти другую версию TLB или воспользуйтесь альтернативными подходами для работы с Active Directory в Delphi. Один из таких подходов - использование компонентов Active Directory от компании AtoZWare, которые можно найти на их официальном сайте (https://www.atozware.com/).

Заключение:

В данной статье мы рассмотрели, как получить основной адрес электронной почты пользователя из Active Directory без административных прав в Delphi. Используя приведенный пример кода, вы можете легко интегрировать эту функциональность в свои проекты на Object Pascal (Delphi).

Создано по материалам из источника по ссылке.

Вопрос о том, как получить основной адрес электронной почты текущего пользователя, вошедшего в систему Active Directory, в Delphi без административных прав.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Активные директории ::