Проверка статуса администраторского аккаунта в Windows: использование API для определения активности

Delphi , ОС и Железо , Windows

Вопрос, заданный пользователем, заключается в необходимости программно проверить, активен ли аккаунт Администратора в операционной системе Windows. Это можно сделать, используя функции API Windows, что позволяет избежать неопределенностей, связанных с выполнением команд через командную строку.

Описание проблемы

Для включения или выключения аккаунта Администратора в Windows используется команда net user Administrator /active:yes для активации и net user Administrator /active:no для деактивации. Однако пользователь хотел бы знать, возможно ли программно проверить статус аккаунта без выполнения этих команд.

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

Для решения этой задачи можно использовать функцию NetUserGetInfo() из библиотеки Windows API. Эта функция позволяет получить информацию о пользователе, включая статус аккаунта. В частности, флаг UF_ACCOUNTDISABLE в структуре USER_INFO_1 указывает, активирован аккаунт или нет.

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

Пример кода на языке Object Pascal (Delphi) демонстрирует, как проверить статус аккаунта Администратора:

program Project1;
{$APPTYPE CONSOLE}
uses
  Windows,
  SysUtils;
type
  TUserInfo1 = record
    usri1_name: PWideChar;
    usri1_password: PWideChar;
    usri1_password_age: Cardinal;
    usri1_priv: Cardinal;
    usri1_home_dir: PWideChar;
    usri1_comment: PWideChar;
    usri1_flags: Cardinal;
    usri1_script_path: PWideChar;
  end;
  PUserInfo1 = ^TUserInfo1;
function NetUserGetInfo(servername: PWideChar; username: PWideChar; level: Cardinal; var bufptr: PUserInfo1): Cardinal; stdcall; external 'netapi32.dll' name 'NetUserGetInfo';
function IsAdminLoginEnabled: Boolean;
const
  UF_ACCOUNTDISABLE = $0002;
  username = 'Administrator';
var
  ui1: PUserInfo1;
begin
  Result := False;
  if NetUserGetInfo(nil, username, 1, ui1) = 0 then
    Result := (ui1.usri1_flags and UF_ACCOUNTDISABLE) <> UF_ACCOUNTDISABLE;
end;
begin
  Writeln(IsAdminLoginEnabled);
  Readln;
end.

Этот код определяет функцию IsAdminLoginEnabled, которая возвращает True, если аккаунт Администратора активен, и False, если он деактивирован. Функция использует флаг UF_ACCOUNTDISABLE в структуре USER_INFO_1, полученной через функцию NetUserGetInfo().

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

В качестве альтернативы, можно использовать другие методы API для управления аккаунтом Администратора, например, через SID (Security Identifier), что может быть более надежным, так как не зависит от локализованных имен аккаунтов или переименований.

Заключение

Использование API для проверки статуса аккаунта Администратора является надежным и безопасным способом, так как позволяет избежать ошибок, связанных с выполнением команд в командной строке, и обеспечивает более точное управление учетными записями в операционной системе Windows.

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

Пользователь задал вопрос о том, как программно проверить статус аккаунта Администратора в операционной системе Windows, используя функции Windows API для определения его активности.

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

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

:: Главная :: Windows ::