Active Directory Probleme

[Alter Mann]

Hallo,

ist schon sehr lange her

Delphi-Quellcode:

interface
...
type
  TADsGroupEntry = class
    Name  : String;
    Group : IAdsGroup;
  end;
...
implementation
...
   NSContainer := nil;
   ADsGetObject( 'LDAP:', IADsContainer, NSContainer);
   NSContainer.Filter := VarArrayOf(['group']);
   ADsEnumerateObjects(NSContainer, AddToList);  // AddToList ist ein Callback
...

procedure   TADSGroup.AddToList(disp : IADs);
var
  GE : TADSGroupEntry;
  Ret: HRESULT;
begin
  Ret     := 0;
  GE      := TADSGroupEntry.Create;
  GE.Name := disp.Name;
  try
    Ret := AdsGetObject(disp.ADsPath, IADsGroup, GE.Group);
  except
    if Ret <> 0 then Exception.Create('AddToList');
  end;
  FGroupList.Add(GE);
end;