IMetabaseUser.Token

Синтаксис

Token: IAccessToken;

Описание

Свойство Token возвращает параметры мандатного доступа пользователя.

Пример

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;

После выполнения примера у указанного пользователя для первой категории мандатного контроля будет установлен четвертый уровень доступа.

См. также:

IMetabaseUser