[Paulao]

Perdon, este yo se hacer:

Código Delphi [-]
function TForm1.GetNetUserName: string;
Var
  NetUserNameLength: DWord;
Begin
  NetUserNameLength:=50;
  SetLength(Result, NetUserNameLength);
  GetUserName(pChar(Result),NetUserNameLength);
  SetLength(Result, StrLen(pChar(Result)));
End;

Yo necesito es una rutina que traiga una lista de los usuarios en el Active Directory, esto es lo quiero.