PredefinedPrivilege(Predefined: MetabasePolicyPredefinedPrivilege): IPrivilege;
The PredefinedPrivilege property returns parameters of a specified privilege.
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;
After executing this example the specified user owns a privilege "Disconnect users".
See also: