ClassificationLabel(Category: ISecurityCategory): ISecurityLevel;
Category is a mandatory access category.
The ClassificationLabel property determines a classification label for this category.
Security category is passed by the Category parameter.
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 assigned for the first category of the mandatory control for the specified user.
See also: