Active Directory Probleme

[Rabenrecht]

Ich spiele gerade etwas mit Active Directory und dem Zugriff darauf von Delphi aus rum. Dazu verwende ich adshlp

Leider renne ich in ein paar Problemchen.

1. Ich scheine den LDAP-Pfad nicht richtig zu bestimmen.

Delphi-Quellcode:

function getADGruppenObjectGUIDs: TList;
var
  Ergebnis :IAdsContainer;
begin

  //ich habe nun folgende Varianten ausprobiert:

  ADsGetObject('LDAP://myDom.de', IAdsContainer, Ergebnis);

  ADsGetObject('LDAP://DC=myDom,DC=de', IAdsContainer, Ergebnis);
  
  ADsGetObject('LDAP://myServer/DC=myDom,DC=de', IAdsContainer, Ergebnis);

  ADsGetObject('LDAP://myServer.myDom.de/DC=myDom,DC=de', IAdsContainer, Ergebnis);


  Ergebnis.Filter := VarArrayOf(['group']);

  ADsEnumerateObjects(Ergebnis,MyCallBackFunc);

  Result := List;
end;

procedure MyCallBackFunc(Intf: IADs);
begin
  List.Add(Intf.Get('objectguid'));
end;

Mit keiner der Varianten wird die CallbackFunction je aufgerufen. Hier zur Referenz ADsEnumerateObjects aus adshlp:

Delphi-Quellcode:

procedure ADsEnumerateObjects(Container : IADsContainer; Func : TADsEnumCallback);
var
    e : IEnumVARIANT;
    varArr : OleVariant;
    lNumElements : ULong;
    obj : IADs;
    hr : integer;
begin
  hr := ADsBuildEnumerator(Container,e);
  while(Succeeded(Hr)) do
  begin
    hr := ADsEnumerateNext(e,1,
                    varArr ,lNumElements);

    if (lNumElements=0) then
      break;

    IDispatch(varArr).QueryInterface(IADs, obj);
    if obj<>nil then
    begin
      Func(obj);
    end;
    varArr := NULL;
 end;
end;

Egal, welche Variante ich versuche, lNumElements ist immer 0.

Ich nehme an, dass dies an einem falsch konfigurierten Pfad liegt. Servername und Domain sind aber korrekt.

Verwende ich stattdessen:
ADsGetObject('WinNT://myDom.de', IAdsContainer, Ergebnis); geht es.

Aaaaaber....


2. Intf.Get('objectguid') erzeugt Fehler "Die Verzeichniseigenschaft wurden nicht im Cache gefunden"
Mit anderen Eigenschaften geht es aber problemlos. Gut, habe nicht alle durchgetestet, aber zumindest Intf.Get('description') gibt korrekt die Beschreibungen der AD-Gruppen zurück.

Woran könnte es liegen?

[Rabenrecht]

Nachtrag zu Punkt 2: Das liegt daran, dass über WinNT nicht alle AD-Eigenschaften abrufbar sind, so wohl auch ObjectGUID.

Noch ein Grund mehr, Problem 1 zu lösen...

[p80286]

Vielleicht hilft Dir das weiter.

Gruß
K-H

[Rabenrecht]

Die Seite ist informativ, hat mir aber leider nicht weitergeholfen.

Auf einzelne Objekte kann ich mit LDAP auch zugreifen. Es ist also keine Frage des Connection Strings.

Wenn ich aber beim ADsGetObject IAdsContainer anstatt IADs spezifiziere, erhalte ich mit ADsEnumerateNext keine Rückgabe.

Aber: ADsEnumerateNext gibt als HRESULT 0 (=S_OK) zurück. In diesem Fall dürfte lNumElements eigentlich gar nicht kleiner als die angegebene Anzahl zu fetchender Elemente (in meinem Fall also 1) sein.

Was ist da los?

[Alter Mann]

Hier ein Beispiel eines alten Programms:

Delphi-Quellcode:

    FDomain     : String;
    FDomainName : String;
    LRoot       : TTreeNode;

type
  PNodeData = ^TNodeData;
  TNodeData = class(TObject)
  private
    FName     : String;
    FClassName: String;
    FFullPath : String;
    procedure SetName(Value : String);
  public
    property Name : String read FName write SetName;
    property CName : String read FClassName write FClassName;
    property FullPath : String read FFullPath;
  end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  FDomainName := '';
  CoInitialize(nil);
  GetLDAPDomain;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  CoUninitialize;
end;

procedure TMainForm.GetLDAPDomain;
var
  NSContainer   : IADsContainer;
  Enum          : IEnumVariant;
  hr            : integer;
  varArr        : OleVariant;
  lNumElements  : ULONG;
  item          : IADs;
  s             : String;
  RN            : TTreeNode;
begin
  tvLDAP.Items.Clear;
  NSContainer := nil;
  ADsGetObject( 'LDAP:', IADsContainer, NSContainer);
  Enum        := nil;
  RN          := tvLDAP.Items.Add(nil, 'Active Directory');
  RN.ImageIndex := 0;
  hr := ADsBuildEnumerator(NSContainer,Enum);
  while SUCCEEDED(hr) do
  begin
    hr := ADsEnumerateNext(Enum, 1, varArr, lNumElements);
    if (lNumElements<=0) then Break;
    IDispatch(varArr).QueryInterface(IADs, item);
    s := item.ADsPath;
    LRoot := tvLDAP.Items.AddChild(RN, s);
    LRoot.Data := TNodeData.Create;
    TNodeData(LRoot.Data).Name := Item.ADsPath;
    TNodeData(LRoot.Data).CName := Item.Class_;
    LRoot.ImageIndex := 1;
    LRoot.SelectedIndex := 1;
  end;
end;

Probiere es mal, wenn es läuft dann hast du CoInitialize(nil); vergessen.

[Rabenrecht]

Danke für den Codeausschnitt

Es funktioniert, wenn ich wie in deinem Fall schreibe:

ADsGetObject( 'LDAP:', IADsContainer, NSContainer) Angabe eines Filters hat jedoch nicht die gewünschte Wirkung. Zudem sollte ich die die Auswahl schon auf eine Domain einschränken. Dann aber ist lNumElements wieder 0.

Vielleicht versuche ich den IADsContainer in einer Weise zu verwenden, wofür er nicht gedacht ist? Geht es nur so, wie in deinem Beispiel, also einen Connection String ohne Angabe einer Domain?

Aber wie verwendet man dann den Filter korrekt?

So geht's jedenfalls nicht:

Delphi-Quellcode:

NSContainer := nil;
   ADsGetObject( 'LDAP:', IADsContainer, NSContainer);
   NSContainer.Filter := VarArrayOf(['group']);
   Enum := nil;
   hr := ADsBuildEnumerator(NSContainer,Enum);
   while SUCCEEDED(hr) do
   begin
     hr := ADsEnumerateNext(Enum, 1, varArr, lNumElements);
     if (lNumElements<=0) then Break;
     IDispatch(varArr).QueryInterface(IADs, item);
     LadeGruppenDaten(item);
   end;