Acl anhand eines Attachments in der form auslesen...

[adminnaddel]

hallo liebe gemeinde, (und v.a. die Script-Freaks)

ich möchte die ACL USER & ROLES einer fremden Db auslesen, die ich in einer Maske als attachment auserwählt habe.
automatisch wird die URL geschrieben.
das heißt das script zum auslesen der acl muss ja wissen welche db ich meine und hierbei könnte man zwei verschiedene wege gehen.
1) das script ließt die .nsf aus dem body-field oder aus dem url-field.

als anhalt habe ich aus diesem forum ein beispiel script gepostet, welches schon ganz toll ist, aber nicht das erfüllt was ich möcht.
ich selber stehe in keiner acl der db und schon garnicht in rollen.

Code

Sub Postopen(Source As Notesuidocument)
   
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim acl As NotesACL
   Dim entry As NotesACLEntry
   Dim roleName As String
   Dim text, textLinks, textRechts As Variant
   Dim userName As NotesName
   Dim user As String
   Set uidoc = workspace.CurrentDocument
   Set db = session.CurrentDatabase
   Set acl = db.acl
   roleName = "[Moderator]"
   Set entry = acl.GetFirstEntry
   While Not ( entry Is Nothing )
      If ( entry.IsRoleEnabled( roleName ) = True ) Then
         Set userName = New NotesName(entry.Name)
         user = userName.Common
         text = user & ", " & text
      End If
      Set entry = acl.GetNextEntry( entry )
   Wend
   
   text = Trim$(Left(text, Len(text)-2))
   textLinks = Strleftback(text, ", ")
   textRechts = Strrightback(text, ", ")
   Call uidoc.FieldSetText ("Rolle", textLinks & " und " & textRechts)
   
End Sub
<ENDE>

wenn jemand eine lösung hat wäre das wirklich toll.
grüsse aus hamburg

[Performance]

Hallo

also wenn du in keiner ACL stehst und die DBs haben eine konsistente ACL angeklickt reicht das nur für den Datenbanknamen.

Als erstes dettacht du alle attachments in ein Verzeichnis und hälst den Namen in einem array fest, dann gehst du das array durch checkst die Endungen .nsf oder .ntf ab und versuchst die ACL zu lesen.
- am Schluss killst du alle dettachten Dateien.