Как получить отображаемое имя пользователя в Windows вне доменной среды

Delphi , Синтаксис , Справочник по API-функциям

Вопрос получения отображаемого имени пользователя в операционных системах семейства Windows может быть непростой задачей, особенно если речь идет о системах, не входящих в доменную сеть. Функция GetUserNameEx, которая должна возвращать расширенный формат отображаемого имени (DisplayName), работает корректно только в случае, если компьютер является частью домена. В противном случае, на системах, работающих в рабочей группе, функция возвращает ошибку ERROR_NONE_MAPPED.

Решение проблемы

Для решения данной проблемы можно использовать следующий подход:

1. Попытаться использовать функцию GetUserNameEx с параметром 3, который соответствует формату отображаемого имени. Если функция возвращает ошибку, перейти к следующему шагу.
2. Использовать комбинацию функций GetUserNameEx с параметром 2 (формат имени пользователя) и NetUserGetInfo, которая позволяет получить информацию о пользователе из локальной базы данных пользователей (SAM).

Ниже приведен пример кода на Object Pascal (Delphi), который реализует данный подход:

type
  EProcError = class(Exception);
  TGetUserNameExWProc = function(FormatType: Integer; Buffer: PWideChar; var BufSize: Integer): DWORD; stdcall;
  // ... другие типы и процедуры ...

function MyGetUserNameEx(aFormat: Integer): string;
var
  sz, sz2, ret: Integer;
begin
  // ... код для получения отображаемого имени пользователя ...
end;

function MyNetUserGetInfo: string;
const
  netapi32 = 'netapi32.dll';
type
  TNetUserGetInfo = function(servername, username: LPCWSTR; level: DWORD; var bufptr: PByte): DWORD; stdcall;
  // ... другие типы и константы ...

  USER_INFO_10 = record
    usri10_name: PWideChar;
    usri10_comment: PWideChar;
    usri10_usr_comment: PWideChar;
    usri10_full_name: PWideChar;
  end;
  P_USER_INFO_10 = ^USER_INFO_10;
var
  _NetUserGetInfo, _NetApiBufferFree: TNetUserGetInfo; TNetApiBufferFree;
  ret: DWORD;
  servername, username: string;
  level: Cardinal;
  info: P_USER_INFO_10;
  pbuf: PByte;
  pwuser: PWideChar;
  n: Integer;
begin
  // ... код для получения полного имени пользователя из SAM ...
end;

Важные замечания

• При использовании функции NetUserGetInfo необходимо знать имя пользователя и имя сервера.
• В случае, если система не входит в домен, для получения IP-адреса контроллера домена можно использовать класс DirectoryContext и DomainController из пространства имен System.DirectoryServices.ActiveDirectory.

Альтернативные подходы

Существуют и другие способы получения отображаемого имени пользователя, например, использование запросов WMI (Windows Management Instrumentation) или других API.

Заключение

Получение отображаемого имени пользователя в Windows может быть задачей, требующей дополнительных усилий, особенно если компьютер не является частью доменной сети. Однако, с помощью предложенных методов и примеров кода, разработчики могут успешно реализовать необходимую функциональность в своих приложениях на Delphi и Pascal.

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

по получению отображаемого имени пользователя в Windows вне доменной среды.

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

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

:: Главная :: Справочник по API-функциям ::