IAccessToken.ClassificationLabel

Syntax

ClassificationLabel(Category: ISecurityCategory): ISecurityLevel;

Parameters

Category is a mandatory access category.

Description

The ClassificationLabel property determines a classification label for this category.

Comments

The security category is passed by the Category parameter.

Example

Sub Main;

Var

MB: IMetabase;

User: IMetabaseUser;

Tok: IAccessToken;

SecCat: ISecurityCategory;

SecLevel: ISecurityLevel;

Begin

MB := MetabaseClass.Active;

User := MB.Security.Users.Item(0);

Tok := User.Token;

SecCat := MB.Security.Policy.MandatoryAccess.Category(0);

SecLevel := SecCat.Level(3);

Tok.ClassificationLabel(SecCat) := SecLevel;

MB.Security.Apply;

End Sub Main;

After executing the example the fourth level of access is set for the first category of the mandatory access control for the specified user.

See also:

IAccessToken