ChangePassword(OldPassword: String; NewPassword: String);
OldPassword. Старый пароль;
NewPassword. Новый пароль.
Метод ChangePassword изменяет пароль пользователя.
Изменять пароль другого пользователя может пользователь, обладающий привилегией «Изменение прав пользователей, раздача паролей, изменение политики». По умолчанию данной привилегией обладает ADMIN. Если производится изменение пароля другому пользователю, то необходимо в качестве OldPassword передать пустое значение. Если новый пароль не удовлетворяет установленной политике безопасности, будет сгенерирована исключительная ситуация. В зависимости от настроек парольной политики старый пароль пользователя может быть использован для ведения парольной истории. Нельзя изменить пароль доменному пользователю. При изменении пароля для пользователя, подключаемого с сервера, будет выдано окно авторизации на сервере.
Для выполнения примера на форме должен быть расположен компонент EditBox1.
Sub UserProc;
Var
MB: IMetabase;
User: IMetabaseUser;
MS: IMetabaseSecurity;
Begin
MB := MetabaseClass.Active;
MS := MB.Security;
User := MS.ResolveName("User1") As IMetabaseUser;
Try
User.ChangePassword("",EditBox1.Text);
Except
On E: Exception Do
WinApplication.InformationBox(E.message);
End Try;
End Sub UserProc;
Текущее подключение осуществлено под администратором. После выполнения примера будет изменен пароль заданного пользователя. Если новый пароль не удовлетворяет требованиям политики безопасности, будет выдано соответствующее сообщение.
См. также: