unitUnit2;

interface

uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,ActiveDs_TLB,ActiveX,ComObj,ComCtrls,StdCtrls;

type
TForm2=class(TForm)
GroupBox1:TGroupBox;
lvGroup:TListView;
GroupBox2:TGroupBox;
lvUser:TListView;
Button1:TButton;
procedureButton1Click(Sender:TObject);
private
{Privatedeclarations}
functionGetObject(constName:String):IDispatch;
procedureEnumerateUsers(Container:IAdsContainer);
procedureAddGroupToListView(AGroup:IADsGroup);
procedureAddUserToListView(AUser:IAdsUser);
public
{Publicdeclarations}
end;

var
Form2:TForm2;

implementation

{$R*.dfm}

{TForm2}

procedureTForm2.AddGroupToListView(AGroup:IADsGroup);
begin
lvGroup.Items.Add.Caption:=AGroup.Name;
end;

procedureTForm2.AddUserToListView(AUser:IAdsUser);
begin
withlvUser.Items.Adddobegin
Caption:=AUser.FullName;
SubItems.Add(VarToStr(AUser.Get('sAMAccountName')));
end;
end;

procedureTForm2.EnumerateUsers(Container:IAdsContainer);
var
ADsObj:IADs;
Value:LongWord;
Enum:IEnumVariant;
ADsTempOjb:OleVariant;
begin
Enum:=(Container._NewEnum)asIEnumVariant;
while(Enum.Next(1,ADsTempOjb,Value)=S_OK)dobegin
ADsObj:=IUnknown(ADsTempOjb)asIADs;
try
ifSameText(ADsObj.Class_,'Group')thenbegin
AddGroupToListView(ADsObjasIADsGroup);
EnumerateUsers(ADsObjasIAdsContainer);
end
elseifSameText(ADsObj.Class_,'User')then
AddUserToListView(ADsObjasIADsUser);
except
end;
end;
end;

functionTForm2.GetObject(constName:String):IDispatch;
var
Eaten:Integer;
Moniker:IMoniker;
BindContext:IBindCtx;
begin
OleCheck(CreateBindCtx(0,BindContext));
OleCheck(MkParseDisplayName(BindContext,PWideChar(WideString(Name)),Eaten,Moniker));
OleCheck(Moniker.BindToObject(BindContext,Nil,IDispatch,Result));
end;

procedureTForm2.Button1Click(Sender:TObject);
var
Container:IADsContainer;
begin
Container:=GetObject('LDAP://OU=Suzhou,OU=root,DC=ap,DC=emersonclimate,DC=org')asIADsContainer;
lvGroup.Items.BeginUpdate;
lvUser.Items.BeginUpdate;
try
Button1.Enabled:=False;
EnumerateUsers(Container);
Button1.Enabled:=True;
finally
lvGroup.Items.EndUpdate;
lvUser.Items.EndUpdate;
end;
Container._Release;
end;

end.

 

http://cmao.iteye.com/blog/2246028