Werte aus dem AD auslesen mit LDAP. Check es nicht.........

[Jackie1983]

Habe jetzt ein einfaches Beispiel gefunden.
Ist das so richtig?
Wo kann ich den Benutzername und das Passwort angeben?

Delphi-Quellcode:

function GetObject(const Name : String): IDispatch;
var
  Moniker : IMoniker;
  Eaten : Integer;
  BindContext : IBindCtx;
  Dispatch : IDispatch;
begin
  OleCheck(CreateBindCtx(0, BindContext));
  OleCheck(MkParseDisplayName(BindContext, PWideChar(WideString(Name)), Eaten, Moniker));
  OleCheck(Moniker.BindToObject(BindContext, NIL, IDispatch, Dispatch));
  Result := Dispatch;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  aDomain : IAdsContainer;
  aUsers  : IEnumVariant;
  aUser   : IADsUser;
  V       : OleVariant;
  w       : DWord;
  VA      : Variant;
begin
  Memo1.Clear;
  aDomain := GetObject('WinNT://' + EditDomain.Text) as IAdsContainer;
  VA := VarArrayCreate([ 0, 0 ], varVariant);
  VA[0] := 'user';
  aDomain.Filter := VA;
  aUsers := (aDomain._NewEnum) as IEnumVariant;
  while aUsers.Next(1, V, w) = S_OK do
  begin
    aUser := IDispatch(V) as IAdsUser;
    Memo1.Lines.Add(aUser.Name);
  end;
end;