zugewiesene Rollen von Gruppenmitgliedern herausfinden.

Hallo Zusammen,

ich möchte feststellen, ob ein User eine bestimmte Rolle in einer Datenbank inne hat.
In der Noteshilfe habe ich das hier gefunden:

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( "Bob Kidder/East/ACME" ) 
Forall r In entry.Roles
   Messagebox( r ) 
End Forall

Leider funktioniert das nur für Personen, die in die ACL eingetragen sind, jedoch nicht für Mitglieder einer Gruppe, die in die ACL eingetragen ist.

Wie kann ich herausfinden, ob der Aktuelle User eine Rolle durch eine in der Datenbank ACL eingetragenen Gruppe inne hat??

Danke

Norbert

Oh man, Tomaten auf den Augen...

Danke fürs draufstoßen...

Norbert