Кто-нить умеет из Дельфей создавать пользователя в Active Directory?
Я написал такую вещь, но она вылетает с ошибкой:
Project1.exe raised exception class EAccessViolation with message "Access violation at address 00453E08 in module Project1.exe" Process stopped. Use step or Run to continue.
Текст кода такой(на форме одна кнопке "Create" логин в тексте проги "user1"):
--------------------
procedure TForm1.Button1Click(Sender: TObject);
var
Container : IADsContainer;
NewObject : IADs;
User : IADsUser;
hr : HREsult;
begin
try
hr := ADsGetObject('WinNT://localhost',IADsContainer,Container);
if Failed(hr) then exit;
NewObject := Container.Create('user', 'user1') as IADs;
User.SetInfo;
except
on E: EOleException do
begin
ShowMessage(E.message);
end;
end;
end;
----------------
Может у кого есть уже рабочая прога для создания юзера из дельфи, дайте исходник, а то я чота совсем запутался уже.
Спасибо.
Delphi + ADSI
Модераторы: Trinity admin`s, Free-lance moderator`s
- ip_demon
- member
- Сообщения: 32
- Зарегистрирован: 23 фев 2003, 11:28
- Откуда: Moscow
- Контактная информация:
Delphi + ADSI
Йода вам это все припомнит, Дмитрий
- Stranger03
- Сотрудник Тринити
- Сообщения: 12979
- Зарегистрирован: 14 ноя 2003, 16:25
- Откуда: СПб, Екатеринбург
- Контактная информация:
Re: Delphi + ADSI
Вам наверное стоит поискать форумы программистов. Здесь в основном системщики обитают. Хотя, может кто что и посоветует.ip_demon писал(а):Кто-нить умеет из Дельфей создавать пользователя в Active Directory?
Я написал такую вещь, но она вылетает с ошибкой:
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 14 гостей