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

[Jackie1983]

hi,

es gibt einige Beispiel Programme um auf ein AD zu zugreifen.
Wenn ich zum beispiel mit diesem Programm
http://www.delphipraxis.net/internal...t.php?t=120742
auf den Server bzw. AD zugreifen will. Funktioniert es nicht.

Verstehe das LDAP Programmieren nicht und würde es gerne verstehen.....
Wird irgend wo die LDAP erklärt das man es auch versteht, bitte in Deutsch......

wäre echt super wenn mir da einer weiter helfen könnte.....

[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;

[mkinzler]

http://www.agnisoft.com/white_papers..._directory.asp

[Jackie1983]

meine damit das ich Programm nicht local auf dem Server starten muss, sondern von irgend einem Computer im Netz muss ich doch User und pass angeben nur wo?

[mkinzler]

Lese mal die ganze Seite, weiter unten steht, wie man das ganze mit einem anderen Benutzer/Authentifizierungsmethode öffnen kann.

[Jackie1983]

ahhhhh mit ADsOpenObject ok soweit so gut. Muss es jetzt nur die Tage an einem Server mal testen....
Hoffe jetzt das es funktioniert.

thx