... vielleicht kannst du damit was anfangen:
Dim session As New NotesSession
Dim Info List As Variant
Dim dbTemp As NotesDatabase
Dim nn As NotesName
Dim vLevel( 0 to 6 ) As String
vLevel( 0 ) = "No Access"
vLevel( 1 ) = "Archivar"
vLevel( 2 ) = "Reader"
vLevel( 3 ) = "Author"
vLevel( 4 ) = "Editor"
vLevel( 5 ) = "Developer"
vLevel( 6 ) = "Manager"
Set dbTemp = session.getDatabase( "" , "names.nsf" )
Set nn = New NotesName( "Manfred Mustermann/MusterOrganisation" )
Info( "UserRoles" ) = dbTemp.QueryAccessRoles( nn.Abbreviated )
Info( "AccessLevel" ) = vLevel ( dbTemp.QueryAccess( nn.Abbreviated ) )
... ein Auszug aus einer Funktion, die ich mir mal gebastelt habe...
Toni