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;