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?