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