ADS - Fullname

[MarLe]

Hallo,

Hab ein ADS Beispiel ADS-Info heruntergeladen (Ich glaub von dieser Anfrage)
http://www.delphipraxis.net/internal...ct.php?t=95077

Bräuchte jetzt noch eine Funktion um über ADS den Fullname zu bekommen.
Meine Funktion schmiert mir aber mit einer Exception ab!?!

Delphi-Quellcode:

function TForm2.GetUserFullname(Domain, Username: String): string;
var
  usr: IADsUser;
  s: string;
begin
  result := 'Unknown';
  ADsGetObject('WinNT://' + Domain + '/' + Username, IADsUser, usr);
  assert(usr <> nil);
  s := usr.FullName;
  result := s;   // hier ist die Welt noch in Ordnung
end;             // -> Exceptions "access violation"

Gruss
MarLe