IPrivilege.Grant

Синтаксис

Grant(Subject: ISecuritySubject);

Параметры

Subject - субъект безопасности, для которого необходимо раздать привилегию.

Описание

Метод Grant дает привилегию субъекту безопасности, передаваемому посредством параметра Subject.

Пример

Sub Main;

Var

MB: IMetabase;

Sec: IMetabaseSecurity;

Policy: IMetabasePolicy;

Group: IMetabaseGroup;

User: IMetabaseUser;

Data: ISecurityPackageUserData;

PS: IPasswordCredentials;

Begin

MB := MetabaseClass.Active;

Sec := MB.Security;

Policy := Sec.Policy;

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

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

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

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

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;

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

См. также:

IPrivilege