Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim msg As String
 Dim title As String
 Dim user As String
 Dim accPriv As Long
 Set db = session.CurrentDatabase
 title = db.Title
 user = session.UserName
 accPriv = db.QueryAccessPrivileges(user)
 REM Check each privilege bit to see if it is on
 If (accPriv And DBACL_CREATE_DOCUMENTS) > 0 Then
   msg = "Create documents"
 End If
 If (accPriv And DBACL_DELETE_DOCUMENTS) > 0 Then
   msg = msg & Chr(10) & Chr(13) & "Delete documents"
 End If
 If (accPriv And DBACL_CREATE_PRIV_AGENTS) > 0 Then
   msg = msg & Chr(10) & Chr(13) & "Create private agents"
 End If
 If (accPriv And DBACL_CREATE_PRIV_FOLDERS_VIEWS) > 0 Then
   msg = msg & Chr(10) & Chr(13) & "Create private folders/views"
 End If
 If (accPriv And DBACL_CREATE_SHARED_FOLDERS_VIEWS) > 0 Then
   msg = msg & Chr(10) & Chr(13) & "Create shared folders/views"
 End If
 If (accPriv And DBACL_CREATE_SCRIPT_AGENTS) > 0 Then
   msg = msg & Chr(10) & Chr(13) & "Create LotusScript/Java agents"
 End If
 If (accPriv And DBACL_READ_PUBLIC_DOCUMENTS) > 0 Then
   msg = msg & Chr(10) & Chr(13) & "Read public documents"
 End If
 If (accPriv And DBACL_WRITE_PUBLIC_DOCUMENTS) > 0 Then
   msg = msg & Chr(10) & Chr(13) & "Write public documents"
 End If
 If (accPriv And DBACL_REPLICATE_COPY_DOCUMENTS) > 0 Then
   msg = msg & Chr(10) & Chr(13) & "Replicate or copy documents"
 End If
 REM Write message
 Messagebox msg,, "Privileges for " & user & " in " & title
End Sub

See Also

QueryAccessPrivileges method

Glossary