操作者が指定したグループに所属してるかどうかを判定する

操作者の所属するグループや、所有するロールによって処理を切り替えたいとき

やりたいこと
処理を進める際にユーザの権限をチェックしたいとき。
@関数で言えば@UserNamesListとか@UserRoleとかの処理をScriptでやる方法。
方法
上記の関数をEvaluateでそのまま使うだけ・・・。
@UserNamesListでその操作者が所属してるグループ情報とかDB内で持ってるロールとかが全て取れるので、あとはArrayGetIndexを使って、意図したグループが取ってきた中に入っているかどうかを判定。

例
Adminロールを持ってない人には文書の削除を禁止するとき。
(DatabaseScriptのQuerydocumentdeleteに書く)

---

Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)

Dim role As Variant
role = Evaluate ( "@UserNamesList" )

If Isnull(Arraygetindex(role,"[Admin]")) Then
	Messagebox "この処理は禁止されています。"
	Continue = False
	Exit Sub
End If

	Continue=True
end sub

---