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

function
 GetNTDomainName: string
;
var

  hReg: TRegistry;
begin

  hReg := TRegistry.Create;
  hReg.RootKey := HKEY_LOCAL_MACHINE;
  hReg.OpenKey('SOFTWAREMicrosoftWindows NTCurrentVersionWinlogon', false);
  Result := hReg.ReadString('DefaultDomainName');
  hReg.CloseKey;
  hReg.Destroy;
end
;

Другое по теме:

• Состояние подключения к сети
• Как подключать сетевые диски
• Как подключить и отключить сетевые диски