AD zugriff mit ActiveDs_TLB und adshlp - www.agnisoft.com

[cherry]

Hi

Will auf unser AD zugreiffen... auf www.agnisoft.com habe ich einige Beispiele gedownloaded und die englische Einführung hebe ich durchgelesen. Bin also grad dran eine dll zu erstellen die mir alle user des AD in eine TreeView schreiben soll...

Es erscheint dieser Fehler beim Kompilieren...

[Pascal Fehler] ADSI.dpr(47): E2250 Es gibt keine überladene Version von 'ADsEnumerateObjects', die man mit diesen Argumenten aufrufen kann ...von diesem Code:

Delphi-Quellcode:

library ADSI;

{ enemyleft[at]gmail.com - 05.10.2007 }

uses
  SysUtils,
  Classes,
  ActiveDs_TLB,
  adshlp,
  Variants,
  ComCtrls;

var
  trUser: TTreeView;

{$R *.res}

// open winnt (ActiveDirectory) with other username and password
function OpenWinNT(domain, username, password: String): TTreeView; stdcall;
var
  dom: IADsContainer;
begin
  ADsOpenObject('WinNT://' + domain, username, password, 1, IADsContainer, dom);
  result := trUser;
end;

// open winnt (ActiveDirectory) with current user
function GetWinNT(domain: String): TTreeView; stdcall;
var
  dom: IADsContainer;
begin
  ADsGetObject('WinNT://' + domain, IADsContainer, dom);
  result := trUser;
end;

// adds the user to the chosen list
procedure AddToTree(disp: IADs);
begin
  trUser.Items.Add(nil, disp.Name);
end;

// set some properties for open winnt
procedure OpenProperties(dom: IADsContainer);
begin
  dom.Filter := VarArrayOf(['user']);
  ADsEnumerateObjects(dom, AddToTree);
end;

exports
  OpenWinNT,
  GetWinNT;

begin

end.

Ich denke wenn du die von mir, resp. die von Agnisoft.com verwendete Methode nicht kennst, kannst du mir auch nicht helfen.
Die Dateien: ActiveDs_TLB.pas und adshlp.pas habe ich von agnisoft...

hilf mir