Как узнать имя домена Windows NT или 2000

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

Автор: http://www.sources.ru

function GetNTDomainName: string;
var
  hReg: TRegistry;
begin
  hReg := TRegistry.Create;
  hReg.RootKey := HKEY_LOCAL_MACHINE;
  hReg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon', false);
  Result := hReg.ReadString('DefaultDomainName');
  hReg.CloseKey;
  hReg.Destroy;
end;

Функция GetNTDomainName в Delphi:

function GetNTDomainName: string;
var
  Reg: TRegistry;
begin
  Result := '';

  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon') then
      Result := Reg.ReadString('DefaultDomainName');
  finally
    Reg.Free;
  end;
end;

В этом коде мы создаем объект TRegistry, используемый для взаимодействия с реестром Windows. Затем мы устанавливаем корневой ключ в HKEY_LOCAL_MACHINE и открываем подключение к ключу SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon. В этом ключе содержится информация о текущей конфигурации Windows.

Затем мы читаем строковое значение из этого ключа, называемое DefaultDomainName, которое содержит имя по умолчанию для системы. Читанное значение хранится в переменной Result и возвращается функцией.

Наконец, мы правильно закрываем и уничтожаем объект реестра, чтобы освободить ресурсы.

Рассказано о способе обнаружения имени домена в операционной системе Windows NT или 2000 с помощью функции GetNTDomainName.

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

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

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