HolderCount: Integer;
Свойство HolderCount возвращает количество субъектов безопасности (пользователей и групп пользователей), обладающих данной привилегией.
Sub Main;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
MP: IMetabasePolicy;
Priv: IPrivilege;
Subject: ISecuritySubject;
i: Integer;
Begin
MB := MetabaseClass.Active;
MS := MB.Security;
MP := MS.Policy;
Priv := MP.Privilege("ВХОД");
Debug.WriteLine("Привилегией на вход в платформу обладают следующие субъекты безопасности:");
For i := 0 To Priv.HolderCount - 1 Do
Subject := Priv.Holder(i);
If Subject.Type = SecuritySubjectType.Group Then
Debug.WriteLine("Группа: " + Subject.Name);
Else
Debug.WriteLine("Пользователь: " + Subject.Name);
End If;
End For;
End Sub Main;
После выполнения примера консоль среды разработки будет выведен список субъектов безопасности, обладающих привилегией на вход в платформу.
См. также: