ISecuritySubject.MemberOfO

Синтаксис Fore

MemberOfO(Options: Integer): IMetabaseGroups;

Синтаксис Fore.NET

MemberOfO(Options: Integer): Prognoz.Platform.Interop.Metabase.IMetabaseGroups;

Параметры

Options. Параметры получения списка групп.

Описание

Метод MemberOfO возвращает коллекцию групп, в которую входит данный субъект безопасности с учетом заданных параметров получения групп.

Комментарии

В качестве значения параметра Options укажите одно из значений перечисления SecuritySubjectMemberOfO.

Пример Fore

Для выполнения примера предполагается, что в менеджере безопасности репозитория добавлен доменный пользователь «DOMAIN\TESTUSER».

Sub UserProc;
Var
    MB: IMetabase;
    User: ISecuritySubject;
    Groups: IMetabaseGroups;
    Group: IMetabaseGroup;
Begin
    MB := MetabaseClass.Active;
    User := MB.Security.ResolveName("DOMAIN\TESTUSER");
    Groups := User.MemberOfO(SecuritySubjectMemberOfO.NoNTFetch);
    For Each Group In Groups Do
        Debug.WriteLine(Group.Name + " (" + (Group.IsNT ? "Доменная группа пользователей)" : "Группа пользователей, созданная в менеджере безопасности)"));
    End For;
End Sub UserProc;

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

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    User: ISecuritySubject;
    Groups: IMetabaseGroups;
    Group: IMetabaseGroup;
Begin
    MB := Params.Metabase;
    User := MB.Security.ResolveName("DOMAIN\TESTUSER");
    Groups := User.MemberOfO(SecuritySubjectMemberOfO.ssmooNoNTFetch As Integer);
    For Each Group In Groups Do
        System.Diagnostics.Debug.WriteLine(Group.Name + " (" + (Group.IsNT ? "Доменная группа пользователей)" : "Группа пользователей, созданная в менеджере безопасности)"));
    End For;
End Sub;

См. также:

ISecuritySubject