Active Directory mit LDAP auslesen

[Darth_Metaler]

danke, war schon ein sehr guter ansatz

nur... unter Delphi ist die Syntax der Funktion
function Invoke(methodName: string; args: array of TObject): TObject; und wenn ich die Funktion so aufrufe:
groups := dcCN.Invoke('groups', []); bekomme ich nichts zurück... weiß jemand was ich für args angeben muss

danke im voraus

MfG
Pascal

[[edit]]

hier die Umsetzung:

Delphi-Quellcode:

procedure TWebForm1.Button3_Click(sender: System.Object; e: System.EventArgs);
var
  DE, dcOU, dcCN, groupEntry: DirectoryEntry;
  group, groups: TObject;
  Arr : ArrayList;
begin
  DE := DirectoryEntry.Create('LDAP://servername/OU=Test Organisation,DC=...,DC=...,DC=DE', User.Text, Passwort.Text);

  dcOU := DE.Children.Find(OUList.SelectedValue); // z.B. OU=USERS

  dcCN := dcOU.Children.Find(ListBox1.SelectedValue); // z.B. CN=Max Mustermann (mitglied der TestGruppe)

  Arr := ArrayList.Create;

  if(dcCN.SchemaClassName = 'user') then begin
    groups := dcCN.Invoke('groups', []);
    for group in IEnumerable(groups) do begin
      groupEntry := DirectoryEntry.Create(group);
      Arr.Add(groupEntry.Name);
    end;
  end;

  ListBox2.DataSource := Arr;
  ListBox2.DataBind;
end;