Domino 9 und frühere Versionen > Entwicklung

ACL - Einträge übersichtlich darstellen

<< < (2/4) > >>

cococo69:
Hallo TMC,

hast du zwischenzeitlich eine Lösung?

Oder hat sonst wer so ein Tool?

Gruß
cococo69

klaussal:
... nimm doch die catalog.nsf

koehlerbv:
TMC will ja seinen Usern per Buhtong die ACL der aktuellen DB zur Verfügung stellen ...

klaussal:
... agent starten, catalog.nsf durchsuchen und doc anzeigen.
ist mal so eine idee..... :P

Don Pasquale:
Hi TMC,

das ist Teil einer Routine mit der ich aus der ACL
alle Personen auslese. Ist doch schon mal ein Anfang.

Ciao
Don Pasquale

   Dim ws As New NotesUiWorkspace
   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim view As NotesView
   Dim acl As NotesACL
   Dim Entry As NotesACLEntry

   Set db = session.CurrentDatabase
   Set acl = db.ACL
   Set Entry = acl.GetFirstEntry
   While Not Entry Is Nothing
      
      If entry.IsGroup Then
         'Messagebox entry.Name & " ist eine Gruppe."
         Gosub GRUPPEAUSLESEN
      Else
         
         If entry.IsPerson Then
            'Messagebox entry.Name & " ist eine Person."
            Call eintragePerson(entry.name)
         Else
            'Messagebox entry.Name & " ist weder Gruppe noch Person."
         End If
      End If
      Set Entry = ACL.GetNextEntry( Entry )
   Wend
   
   Call ws.ViewRefresh()
   
   Exit Sub
   
   
      ' ******************************** '
   
GRUPPEAUSLESEN:
   
   Dim memfield As Variant
   Dim nd_db As notesdatabase
   Dim g_doc As notesdocument
   Set db = session.currentdatabase
   server$ = db.server
   Set nd_db = New notesdatabase("","")
   flag = nd_db.open(server$, "names.nsf")
   Set view = nd_db.getview("Groups")
   Set g_doc = view.getdocumentbykey(entry.name)
   memfield = g_doc.getitemvalue("members")
   Forall X In memfield
      ename$ = X
      'Messagebox (ename$)
      Call eintragePerson(ename$)      
   End Forall
   Return
   
   

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete