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