LOTUS/DOMINO学习笔记之判断是否为数据库管理员和用户的角色

在对数据库操作的过程中，需要对数据库进行权限判断，因此是否为管理员或当前的用户角色非常重要

Function IsDbManager As Variant

Dim db As NotesDatabase

Dim session As New NotesSession

Dim user As String

Dim commuser As String

commuser=session.CommonUserName

user=session.UserName

Set db=session.CurrentDatabase

IsDbManager=False

Forall m In db.Managers

If (m=user Or m=commuser) Then

IsDbManager=True

Exit Forall

End If

End Forall

End Function

判别用户的角色

Function IsAuthor As Variant

Dim db As NotesDatabase

Dim session As New NotesSession

Dim colls As NotesDocumentCollection

Dim user As String

Dim commuser As String

Dim roles As Variant

Set db=session.CurrentDatabase

user=session.UserName

commuser=session.CommonUserName

roles=Evaluate("@Name([cn];@UserRoles)")

IsAuthor=False

Forall r In roles

If r="[图书管理员]" Or r="[系统管理员]" Then

IsAuthor=True

Exit Forall

End If

End Forall

End Function