Active Directory mit LDAP auslesen

[Darth_Metaler]

Hi Delphi-User

Ich habe folgendes Problem:

ich möchte mit ASP.NET das Active Directory über LDAP auslesen. Ich bin soweit, dass ich bestimmte Organization Units angezeigt bekomme und dann die Inhalte dieser Organization Units auslesen kann.

Delphi-Quellcode:

// Button zur Anmeldung
procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var
  DE, child: DirectoryEntry;
  Arr: ArrayList;
begin
  DE := DirectoryEntry.Create('LDAP://servername/OU=Test Organisation,DC=...,DC=...,DC=DE', User.Text, Passwort.Text);

  Arr := ArrayList.Create;
  for child in DE.Children do Arr.Add(TObject(child.name));

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

Delphi-Quellcode:

// Button für Inhalte einer OU
procedure TWebForm1.Button2_Click(sender: System.Object; e: System.EventArgs);
var
  DE, dcOU, child: DirectoryEntry;
  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);

  Arr := ArrayList.Create;

  for child in dcOU.Children do Arr.Add(TObject(child.name));

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

Jetzt möchte ich wissen, wie ich mit LDAP rausfinden kann, in welchen Gruppen ein bestimmter User ist, dass er z.B. bei Administrator Admin und User und bei Max nur User zurückgibt. Das soll er unter ASP.NET in einer ASP-ListBox ausgeben.

Bedank mich im voraus schon für eure antworten, ich komm da echt nich mehr weiter

MfG
Pascal