IMetabaseUser.MustChangePasswordAtNextLogon

Синтаксис

MustChangePasswordAtNextLogon: Boolean;

Описание

Свойство MustChangePasswordAtNextLogon определяет установку требования на смену пароля при следующем входе в систему для данного пользователя.

Пример

Sub Main;

Var

MB: IMetabase;

Sec: IMetabaseSecurity;

Group: IMetabaseGroup;

User: IMetabaseUser;

Data: ISecurityPackageUserData;

PS: IPasswordCredentials;

Begin

MB := MetabaseClass.Active;

Sec := MB.Security;

Group := Sec.AddGroup("Тестовая группа");

User := Sec.AddUser("TestUser");

User.FullName := "Тестовый пользователь";

Sec.Policy.Privilege("ВХОД").Grant(User);

Sec.Policy.Privilege("ЧТЕНИЕ").Grant(User);

Data := User.PackageData;

PS := Data.Credentials As IPasswordCredentials;

PS.Password := "Password";

User.MustChangePasswordAtNextLogon := True;

Group.AddMember(User);

Sec.Apply;

End Sub Main;

После выполнения примера будет создана новая группа и новый пользователь. Пользователь будет включен в данную группу. Для пользователя будут розданы две привилегии: привилегия на вход в платформу и привилегия на чтение и открытие объектов. При первом входе в платформу под данным пользователем, будет выдан запрос на смену пароля.

См. также:

IMetabaseUser