IMetabasePolicy.MandatoryAccess

Syntax

MandatoryAccess: IMetabaseMandatoryAccess;

Description

The MandatoryAccess property returns settings of mandatory access of a security manager.

Comments

Use the SecurityDescriptor property to set access permissions to objects.

Example

Sub Main;

Var

MB: IMetabase;

MS: IMetabaseSecurity;

MU: IMetabasePolicy;

MAccess: IMetabaseMandatoryAccess;

Cat: ISecurityCategory;

Lvl: ISecurityLevel;

Begin

MB := MetabaseClass.Active;

MS := MB.Security;

MU := MS.Policy;

MAccess := MU.MandatoryAccess;

Cat := MAccess.AddCategory("Category 1");

Lvl := Cat.AddLevel(0, "Level 0");

Lvl.Marking := True;

Lvl := Cat.AddLevel(1, "Level 1");

Lvl.ExportAllowed := False;

Lvl := Cat.AddLevel(2, "Level 2");

Lvl.ExportAllowed := False;

Lvl.PrintAllowed := False;

MS.Apply;

End Sub Main;

After executing this example a new category is created in mandatory access of a security manager. In this category three criticality levels are created. For each level different access parameters of export and print and also labels during export and print are assigned.