IMetabaseUser.Token

Syntax

Token: IAccessToken;

Description

The Token property returns the user mandatory access parameters.

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 assigned for the first category of the mandatory control for the specified user.

See also:

IMetabaseUser