[PESTS]

Проблема решена!
Использую ActiveDs_TLB

Код:

procedure TForm.Button1Click(Sender: TObject);
var
  Usr: IADsUser;
begin
  Usr := GetObject('WinNT://local.mamont/Администратор,user') as IADsUser;
  showmessage(Usr.Description);
end;