MemberOfO(Options: Integer): IMetabaseGroups;
MemberOfO(Options: Integer): Prognoz.Platform.Interop.Metabase.IMetabaseGroups;
Options. Параметры получения списка групп.
Метод MemberOfO возвращает коллекцию групп, в которую входит данный субъект безопасности с учетом заданных параметров получения групп.
В качестве значения параметра Options укажите одно из значений перечисления SecuritySubjectMemberOfO.
Для выполнения примера предполагается, что в менеджере безопасности репозитория добавлен доменный пользователь «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.
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;
См. также: