Questa function LotusScript passa tutto l’Acl di uno specifico database e ritorna i nomi delle entry che hanno un ruolo specificato passato come argomento alla function.
Quindi chiamate la Function passando come parametro un stringa contenente il nome del ruolo da cercare.
I risultati vengono restituiti come array.

Function cercaAcl (ruolo As String) As Variant
Dim acl As NotesACL
Dim entry As NotesACLEntry
Dim nomi() As String
Dim conta As Integer

cercaAcl = ""

Set acl = Db.ACL
Set entry = acl.GetFirstEntry
conta = 0
Do While Not entry Is Nothing
ruoli = Entry.Roles
if not IsNull(ArrayGetIndex( ruoli, ruolo, 5 ) ) Then ' il 5 significa ricarca case insensitive
ReDim Preserve nomi(conta)
nomi(conta) = entry.Name
conta = conta + 1
End If
Set entry = acl.Getnextentry(entry)
Loop
cercaAcl = nomi
End Function