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

[Sasha*]

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

 

[Klido]

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

 

[Sasha*]

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

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

 

[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

 

[susinmn]

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

 

[Sasha*]

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

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

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