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

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

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

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

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

Нужно получить все группы из Acl БД

Тема в разделе "Lotus - Программирование", создана пользователем Sasha*, 3 авг 2009.

  1. Sasha*

    Sasha* Гость

    Репутация:
    0
    Подскажите, пожалуйста, как получить все группы из ACL не текущей БД?
     
  2. Klido

    Klido Гость

    Репутация:
    0
    NotesDatabase.ACL, NotesACL class - там увидишь что дальше делать
     
  3. Sasha*

    Sasha* Гость

    Репутация:
    0
    Смотрела, так можно получить группы для текущего пользователя, или группы имеющие уровень доступа Manager . То что мне нужно я не нашла.
     
  4. Klido

    Klido Гость

    Репутация:
    0
    NotesACLEntry перебираются из NotesACL и проверяются... не вижу проблем...

    This script checks to see if the entry is a group.

    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim acl As NotesACL
    Dim entry As NotesACLEntry
    Set db = session.CurrentDatabase
    Set acl = db.ACL
    Set entry = acl.GetEntry("Luscious Bao")
    If entry.IsGroup Then
    Messagebox entry.Name & " is a group."
    Else
    Messagebox entry.Name & " is not a group."
    End If
    Call acl.Save
     
  5. susinmn

    susinmn Well-Known Member

    Репутация:
    0
    Регистрация:
    16 окт 2007
    Сообщения:
    529
    Симпатии:
    8
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim acl As NotesACL
    Dim entry As NotesACLEntry
    Set db = s.CurrentDatabase
    Set acl = db.ACL
    Set entry = acl.GetFirstEntry

    While not entry is Nothing
    If entry.IsGroup Then
    Messagebox entry.Name & " is a group."
    Else
    Messagebox entry.Name & " is not a group."
    End If
    Set entry = acl.GetNextEntry(entry)
    Wend

    Call acl.Save
     
  6. Sasha*

    Sasha* Гость

    Репутация:
    0
    Спасибо, сейчас попробую, посмотрю, что мне это даст.

    PS: То что нужно, еще раз спасибо
     
Загрузка...

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