Domino 9 und frühere Versionen > ND6: Entwicklung

Zugriff überprüfrn

<< < (2/2)

ata:
... wie werden die Leserechte zugeteilt, über Rollen oder über die Gruppenzugehörigkeit?

Toni

ata:
... vielleicht kannst du damit was anfangen:

--- Code: ---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 ) )

--- Ende Code ---

... ein Auszug aus einer Funktion, die ich mir mal gebastelt habe...

Toni

Navigation

[0] Themen-Index

[*] Vorherige Sete