ISecurityDescriptor.AccessToken

Синтаксис

AccessToken: IAccessToken;

Описание

Свойство AccessToken возвращает параметры мандатного контроля доступа к объекту.

Актуально при включенном мандатном контроле доступа к объектам.

Пример

Для выполнения примера предполагается наличие в репозитории объекта с идентификатором "Obj_1". В репозитории включен мандатный контроль доступа к объектам.

Sub Main;

Var

MB: IMetabase;

SDesc: ISecurityDescriptor;

Tok: IAccessToken;

SecCat: ISecurityCategory;

SecLevel: ISecurityLevel;

Begin

MB := MetabaseClass.Active;

SDesc := MB.ItemById("Obj_1").SecurityDescriptor;

SDesc.Edit;

Tok := SDesc.AccessToken;

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

SecLevel := SecCat.Level(2);

Tok.ClassificationLabel(SecCat) := SecLevel;

SDesc.Apply(False);

End Sub Main;

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

См. также:

ISecurityDescriptor