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