Active Directory Accessing by Delphi7

السلام عليكم ورحمة الله وبركاتة .....

زملائي وإخوتي ، أرجو منكم المساعدة في كيفية جعل تطبيق في دلفي يقوم بوظائف (Active Directory) من تكوين مستخدمين ومجموعات داخله ....

الكود التالي يوضح هذة العملية ولكن واجهتني مشكلة في جعل Active Directory ينشئ Acountأو New User وهي في الإجراء SetInfo .... :rolleyes:

uses ActiveX, // used for the COM Moniker stuff...

ActiveDs_TLB, // the created type library

ComObj; // used for OleCheck and other COM functions

implementation

procedure TForm1.BtnCreateUserClick(Sender: TObject);

var

Usr: IADsUser;

Comp: IADsContainer;

begin

try

Comp := GetObject('WinNT://[computername],computer') as

IADsContainer;

Usr := Comp.Create('user', '[accountname]') as IADsUser;

Usr.SetInfo;

except

on E: EOleException do begin

ShowMessage(E.Message);

end;