Adgang til AD via ADSI

Hvis du sender et link til komponenten ADSI, så skal jeg prøve at kigge på det

http://www.agnisoft.com/white_papers/active_directory.asp

Jeg har brugt noget af deres kode, som hedder adsicode.zip

adshlp.pas

ADSI hentet og kan man teste ud fra den stump kode du har ovenstående eller behøver jeg mere for at teste?

Godt spørgsmål. Er ikke selv såååå skrap til ADSI endnu, men jeg kan vedhæfte det kode hvor jeg "kalder" formen showmodal.  Ellers ved jeg ikke sådan lige hvad du skal bruge.

procedure TFrmMain.BitBtn3Click(Sender: TObject);
var adOU : IADsContainer;
begin
  with TFrmLDAP.Create(self) do
  try
    CoInitialize(nil);
    ADsGetObject('LDAP://OU=FirmaNavn,DC=ad,DC=firmanavn,DC=org', IADsContainer, adOU);
    adOU.Filter := VarArrayOf(['OrganizationalUnit']);
    OU := adOU;
    showmodal;
  finally
    CoUninitialize;
    free;
  end;
end;


--------------------- new unit ---------------

unit ldapform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ActiveDs_TLB, adshlp, ExtCtrls;

type
  TfrmLDAP = class(TForm)
    BitBtn1: TBitBtn;
    Panel1: TPanel;
    lbCountry: TListBox;
    procedure FormShow(Sender: TObject);
  private
    procedure AddToList(disp: IADs);
  public
    OU : IADsContainer;
  end;

var
  frmLDAP: TfrmLDAP;

implementation

{$R *.dfm}

procedure TfrmLDAP.AddToList(disp: IADs);
var adOU : IADsOU;
begin
  ADsGetObject(Disp.ADsPath, IADsOU, adOU);
  if {(adOU.Name <> '') and }(adOU.Description <> '') then
    lbCountry.Items.Add(adOU.Description);
end;

procedure TfrmLDAP.FormShow(Sender: TObject);
begin
  if OU <> nil then
    AdsEnumerateObjects(OU, AddToList);
end;

end.

OK får formentlig kigget på det i løbet af weekenden

Har du fået set på det?

spil2vind har du fået set på det?

Eller er der andre der har kunne give et input?

Point nu = 100

Har fået løst problemet.