Mi Blog

Evaluar Rol con LotusScript

 Domino › 

A petición de mi amigo Jota, publico esta función que permite evaluar un rol para el usuario actual de la sesión (en Lotus Script)

Function evalRol( nombreRol As String) As Boolean
    Dim s As New NOtesSession
    Dim db As NotesDatabase
    Dim usuario As String
    Dim roles As Variant
    Dim eval As Variant
    usuario = s.UserName
    Set db = s.CurrentDatabase
    
    roles = db.QueryAccessRoles(usuario)
    eval = Arraygetindex(roles, nombreRol)
        'chequeamos si es adm
    If Isnull(eval) Then
        evalRol = False
    Else
        evalRol = True
    End If
End Function

Coloca tus comentarios porfa..

 Domino  0 Comments March 22nd, 2007