1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

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

Нужно получить все группы из 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
    Сообщения:
    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* Гость

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

    PS: То что нужно, еще раз спасибо
     
Загрузка...
Похожие Темы - Нужно получить все
  1. spacelove
    Ответов:
    6
    Просмотров:
    169
  2. nujencod
    Ответов:
    0
    Просмотров:
    110
  3. ArtyomHC
    Ответов:
    12
    Просмотров:
    682
  4. Саша Зеленюк
    Ответов:
    1
    Просмотров:
    233
  5. Bafomet
    Ответов:
    3
    Просмотров:
    275

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