[belugin]

До кучи еще SC

static void Test_AccessibleSCForWho(Args _args)
{
    SecurityKeySet secSet;
    UserGroupInfo userGroup;
    DomainInfo domain;
    str items;
;
    while select userGroup
    {
        while select domain
        {
            secSet  = SysSecurity::constructSecurityKeySet();
            secSet.loadGroupRights(userGroup.id, domain.Id);

            if (secSet.access(securityKeyNum(Admin)) >= AccessType::View)
            {
                info(strFmt('%1;%2: %3',  userGroup.id, domain.Id, items));
            }
        }
    }
}