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

  • Автор темы Sasha*
  • Дата начала
S

Sasha*

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

Klido

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

Klido

#4
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

Well-known member
16.10.2007
529
3
#5
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
 
S

Sasha*

#6
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: То что нужно, еще раз спасибо