Работа с пользователями в домене WinNT

← →
Wistler (2004-07-06 16:53) [0]

Ниже приведён код добавления пользвателя. В строке (отмечена ниже) происходит исключительная ситуация. В чём причина? Без неё всё работает засечательно. Если кто знает как добавить созданного пользователя в группу?

var
Usr: IADsUser;
Comp: IADsContainer;
begin
try
Comp := GetObject("WinNT://SERVER,computer") as IADsContainer;
Usr := Comp.Create("user", "Us55") as IADsUser;
Usr.SetPassword("fdgghfg");
Usr.LoginWorkstations:="COMP1;COMP2;";
Usr.SetInfo;
Usr.AccountDisabled:=True;
Usr.SetInfo;

>>>>>>>>> Usr.FirstName:="FirstName"; <<<<<<<<<<<<<<<< Здесь

except
on E: EOleException do
begin
ShowMessage(E.message);
end;
end;

← →
clickmaker © (2004-07-06 16:59) [1]

Текст E.message ?

← →
Wistler © (2004-07-06 17:03) [2]

> clickmaker © (06.07.04 16:59) [1]
> Текст E.message ?

"Предпринятое действие нарушает правила схемы DS."

← →
clickmaker © (2004-07-06 17:21) [3]

Usr.AccountDisabled:=True на это не может влиять?

> clickmaker © (06.07.04 17:21) [3]
> Usr.AccountDisabled:=True на это не может влиять?

Нет, не влияет, это всего лишь отключает учётную запись.

Работа с пользователями в домене WinNT Найти похожие ветки