1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Роли в Acl и группы пользователей

Тема в разделе "Lotus - Программирование", создана пользователем Galina, 24 июл 2007.

  1. Galina

    Galina Гость

    Репутация:
    0
    Подскажите, пожалуйста, как решить следующую задачу.

    Есть база на сервере. В ACL этой базы определены роли. Как определить в LS, принадлежит ли текущий пользователь конкретной роли, если пользователь входит в группу и доступ к базе он получает через указание группы в ACL (роль определена для группы).
     
  2. morpheus

    morpheus скриптописец

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    <!--QuoteBegin-Galina+24:07:2007, 16:19 -->
    <span class="vbquote">(Galina @ 24:07:2007, 16:19 )</span><!--QuoteEBegin-->принадлежит ли текущий пользователь конкретной роли
    [snapback]73212" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    @UserRoles
     
  3. Medevic

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    notesDatabase.QueryAccessRoles ?

    Ну и ArrayGetIndex.
     
  4. Galina

    Galina Гость

    Репутация:
    0
    Получилось через notesDatabase.QueryAccessRoles

    Большое спасибо.
     
  5. Ronchik

    Ronchik Гость

    Репутация:
    0
    Для: Galina
    Код:
    Dim acl As NotesACL	
    Dim entry As NotesACLEntry
    Set db = session.CurrentDatabase
    Set acl = db.ACL
    Set entry = acl.GetEntry( session.CommonUserName )
    If entry.IsRoleEnabled( "[Supervisor]" ) Then
    .......
    определение включена ли у юзера роль
     
Загрузка...

Поделиться этой страницей