AllGroups: ISecuritySubjects;
Свойство AllGroups возвращает коллекцию всех групп пользователей, доступных для использования в репозитории.
Данная коллекция включает в себя все группы пользователей, созданные в текущем репозитории, а также все доменные группы пользователей.
Добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
Groups: ISecuritySubjects;
Group: ISecuritySubject;
Begin
MB := MetabaseClass.Active;
MS := MB.Security;
// Получим список групп пользователей
Groups := MS.AllGroups;
Debug.WriteLine("Список групп пользователей: ");
For Each Group In Groups Do
Debug.WriteLine(Group.Name);
End For;
End Sub UserProc;
После выполнения примера в консоль будет выведен список всех групп пользователей, которые доступны для использования в текущем репозитории.
См. также: