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?