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

[cherry]

hey marabu

vielen dank. Die Grundidee versteh ich nun aber kA wie man das macht..
du wirst jetzt wahrscheinlich lachen.. aber habs mal so versucht...

Delphi-Quellcode:

library ADSI;

{ enemyleft[at]gmail.com - 05.10.2007 }

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

var
  trUser: TTreeView;
  helper: TObject;
  dn : IADs;

type
  THelper = class(TObject)
    procedure AddToTree;
  private
  public
  end;

{$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 THelper.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, THelper.AddToTree);
end;

exports
  OpenWinNT,
  GetWinNT;

begin

end.

Fehler -> disp.Name ist dann nicht deklariert?!?!?