LDAP mit ADSI: alle Properties auslesen geht nicht?

[Phoenix]

Hi,

ich habe ein Problem aus dem LDAP bestimmte Werte auszulesen.

Im ersten Screenshot sieht man die Angaben im LDAP. Der Screenshot stammt aus dem Softerra LDAP Browser (cooles Tool übrigens).

Ich selber benutze folgenden Code, um die Detailinformationen zu einem Knoten im LDAP auszulesen:

Delphi-Quellcode:

uses ActiveX, ActiveDs_TLB, AdsHlp, Variants;

function MyLdapPersonenImport.getNodeInfo(obj: IAds): TMyLdapTreeNodeItem;
var
  properties: IAdsPropertyList;
  i,j: integer;
  prop: IAdsPropertyEntry;
  props: Array of IInterface;
  myProp: IAdsPropertyValue2;
  datatype: Integer;
  valueOle: OleVariant;
  value: String;
begin
   // create and initialize result Item
   result := TMyLdapTreeNodeItem.Create();
   result.Caption := obj.Name;

   result.Info.Clear;
   result.Info.Add(obj.Name);
   result.Info.Add(obj.Class_);

   obj.GetInfo();

   // get property list:
   if obj.QueryInterface(IAdsPropertyList, properties) = 0 then
   begin
         // read other properties:
      result.Info.Add('');
      result.Info.Add('Properties:');

      // position on first property
      properties.Reset;

      // enumerate properties and add them to the info text of the result:
      for i := 0 to properties.PropertyCount - 1 do
      begin
         if IUnknown(properties.Item(i)).QueryInterface(IAdsPropertyEntry, prop) = 0 then
         begin
            props := prop.Values;

            // a property can have multiple values, so enumerate through all of them:
            for j := 0 to Length(props) - 1 do
            begin
               if props[j].QueryInterface(IAdsPropertyValue2, myProp) = 0 then
               begin
                  datatype := ADSTYPE_UNKNOWN;
                  valueOle := myProp.GetObjectProperty(datatype);
                  value := VarToStr(valueOle);
                  result.Info.Add('   ' + prop.Name + '(' + IntToStr(datatype) + '): ' + value);
               end;
            end;
         end;
      end;
   end;
end;

TMyLdapTreeNodeItem ist ein ganz dummes Objekt, das nur ein paar Properties wie eben die Caption hat.
Das Property Info (wo hier Informationen mit result.Info.Add('wuppdi'); hinzugefügt werden) ist eine simple TStringList und deren Inhalt wird in MyLdapScreen rechts unten angezeigt.

Wie man auf MyLdapScreen.JPG erkennen kann, liest dieser Code jedoch nur die Properties aus dem LDAP, die im Softerra Browser als 'Textattribut' gekennzeichnet sind. Die 'Betriebsattribute', von denen ich zumindest mal structuralObjectClass benötige, werden hier in der PropertyList leider nicht aufgeführt.

Wie kann ich denn jetzt auch diese 'Betriebsattribute' auslesen? Das MSDN schweigt sich dazu leider aus, und auf der Agnisoft-Seite (von denen stammt die Unit AdsHlp) findet sich dazu leider auch nichts.

Edit Nachtrag: Ein valueOle := obj.Get('structuralObjectClass'); klappt übrigens auch nicht. Das Property wird anscheinend nicht gefunden. Ich habe die Vermutung, dass ich an diese Dinger irgendwie anders rangehen muss, habe aber leider keinen Ansatzpunkt wonach ich suchen muss.