Программное добавление пользователя в Active Directory

[smilova]

Здраво, уважаемые программеры!
Решила зарегистрироваться на Вашем форуме вот по какой причине: мне необходимо программным путем добавлять новых пользователей в каталог AD (создавать учетные записи пользователей с указанием ФИО пользователя и имени домена). DelphiWorld повествует о создании эккаунта в Windows, используя ADSI, но...хотелось бы услышать более подробные и внятные наставления!
Буду ОООЧЕНЬ Вам благодарна :-)

[SkyM@n]

а через PHP подойдет?

[Padovan]

Уважаемые знатаки! Что никто не покажет где можно почитать про эту тему поподробнее. Или примерчики ... . Тема то полезная. Написание такой программы будет лешать меня как минимум 30 мин. скучной работы.
Може есть чо и на Delphi, CBuilder?

[Квэнди]

 uses ActiveX, // используется для COM Moniker stuff...
 ActiveDs_TLB, // созданная библиотека типов
 ComObj;       // используется для OleCheck и других функций COM
 
 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;
   end;
 end;
 
 procedure TForm1.BtnSetPasswordClick(Sender: TObject);
 var
   Usr: IADsUser;
 begin
   try
     Usr := GetObject('WinNT://[computername]/[accountname],user') as IADsUser;
     Usr.SetPassword('thenewpassword');
   except
     on E: EOleException do
     begin
       ShowMessage(E.message);
     end;
   end;
 end;
 
 // GetObject использует вызов VB GetObject
 // Данный код (GetObject) был найден в Usenet.
 
 // GetObject позволяет связаться с существующим ADSI сервисом
 // используя 'ADSIPath' (например WinNT://.... или
 // IIS://localhost).
 
 function TForm1.GetObject(const name: string): IDispatch;
 var
   Moniker: IMoniker;
   Eaten: integer;
   BindContext: IBindCtx;
   Dispatch: IDispatch;
 begin
   OleCheck(CreateBindCtx(0, BindContext));
   OleCheck(MkParseDisplayName(BindContext, PWideChar(WideString(name)), Eaten, Moniker));
   OleCheck(Moniker.BindToObject(BindContext, nil, IDispatch, Dispatch));
 
   Result := Dispatch;
 end;
 
 end.

(c)www.cracklab.ru

[SkyM@n]

Автору видимо уже этот топик не актуален.
ЗЫ. Padovan: Для кого-то сложно, для кого-то - нет. А в сети полно такого.

[Padovan]

Спасибо Квэнди. Пример дельный.

[labvictx]

Квэнди. Плиз помоги с примером, как реализовать:
чтоб при запуске прога просканировала самостоятельно сеть и вывела инфу о всех компах находящихся на данный момент в сети, след. инфу в сети все компы и вывести из в TMemo в виде: IP-компа, сетевое имя ПК, сетевое имя (логин) работающего на данном ПК пользователя и его полное имя «ФИО». на Delphi.

Очень прошу Вас помочь. Весь инет облазил, все везде вдоль и да около. а конкретных примеров нет.

С уважением, Виктор.