PredefinedPrivilege(Predefined: MetabasePolicyPredefinedPrivilege): IPrivilege;
Свойство PredefinedPrivilege возвращает параметры указанной привилегии.
Sub UserProc;
Var
MB : IMetabase;
MS : IMetabaseSecurity;
MP : IMetabasePolicy;
Priv : IPrivilege;
User : ISecuritySubject;
Begin
MB := MetabaseClass.Active;
MS := MB.Security;
MP := MS.Policy;
Priv := MP.PredefinedPrivilege(MetabasePolicyPredefinedPrivilege.DisconnectUsers);
User := MS.ResolveName("UserTEST") As ISecuritySubject;
Priv.Grant(User);
MS.Apply;
End Sub UserProc;
После выполнения примера заданный пользователь станет обладателем привилегии «Отключение пользователей».
См. также: