ADS - Fullname

[marabu]

Hallo,

ihr bringt mich alle ziemlich in Verwirrung. Ich würde es mal so versuchen:

Delphi-Quellcode:

function GetUserFullname(Domain, Username: string): string;
var
  usr: IADsUser;
  ws: WideString;
begin
  ws := 'WinNT://' + Domain + '/' + Username;
  if ADsGetObject(PWideChar(ws), IID_IADsUser, usr) = S_OK
    then Result := usr.FullName
    else Result := 'Unknown';
end;

Getippt und nicht getestet.

Grüße vom marabu