Проверка принадлежности компьютера к домену Windows в Delphi без сетевых запросов

Delphi , Интернет и Сети , Сеть

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

Описание задачи

Задача состоит в том, чтобы написать функцию isPcInDomain: Boolean;, которая будет определять, принадлежит ли компьютер к домену, не обращаясь при этом к сети. Это необходимо для использования в приложениях, написанных на Delphi, работающих под управлением Windows 7, и для которых не интересен сам домен, а интересует только факт принадлежности к нему.

Решение задачи

Для решения задачи можно использовать функцию GetJoinInfo, которая возвращает информацию о текущем состоянии присоединения компьютера к домену. Пример реализации на Object Pascal:

program CheckDomainMembership;
{$APPTYPE CONSOLE}
uses
  Windows, SysUtils;

const
  NET_API_FUNCTION = function(result: Cardinal; lastError: PChar): HResult; stdcall;
  netapi32 = 'netapi32.dll';

type
  TNetSetupJoinStatus = (NetSetupUnknownStatus, NetSetupUnjoined, NetSetupWorkgroupName, NetSetupDomainName);

function NetApiBufferFree(Buffer: Pointer): DWORD; stdcall; external netapi32;
function NetGetJoinInformation(var lpServer: PWideChar; out lpNameBuffer: PWideChar; out BufferType: TNetSetupJoinStatus): DWORD; stdcall; external netapi32 name 'NetGetJoinInformationW';
function NetApiCheck(RetValue: DWORD): Boolean;
begin
  Result := RetValue = ERROR_SUCCESS;
end;

function GetJoinInfo(var JoinStatus: TNetSetupJoinStatus): PChar;
var
  P: PChar;
begin
  if not NetApiCheck(NetGetJoinInformation(nil, P, JoinStatus)) then
    NetApiBufferFree(P);
  Result := P;
end;

function IsPcInDomain: Boolean;
var
  Info: TNetSetupJoinStatus;
begin
  GetJoinInfo(Info);
  IsPcInDomain := Info = NetSetupDomainName;
end;

procedure Main;
var
  DomainStatus: TNetSetupJoinStatus;
  DomainName: PChar;
begin
  DomainName := GetJoinInfo(DomainStatus);
  try
    if Assigned(DomainName) then
    begin
      if DomainStatus = NetSetupDomainName then
      begin
        Writeln('Компьютер принадлежит домену: ', DomainName);
      end
      else
      begin
        Writeln('Компьютер не принадлежит домену. Он в рабочей группе.');
      end;
    end
    else
    begin
      Writeln('Ошибка при получении информации о домене.');
    end;
  finally
    NetApiBufferFree(DomainName);
  end;
end;

begin
  Main;
end.

Объяснение кода

В коде представлена функция IsPcInDomain, которая использует функцию NetGetJoinInformation для получения информации о текущем состоянии присоединения компьютера к домену. Функция NetGetJoinInformation возвращает буфер с информацией, который затем анализируется для определения принадлежности к домену. В случае успешного выполнения, функция IsPcInDomain возвращает True, если компьютер является членом домена, и False в противном случае.

Заключение

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

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

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

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

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

:: Главная :: Сеть ::