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

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

  1. Sasha*

    Sasha* Гость

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

    Klido Гость

    NotesDatabase.ACL, NotesACL class - там увидишь что дальше делать
     
  3. Sasha*

    Sasha* Гость

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

    Klido Гость

    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

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    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* Гость

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

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

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