Trabajar con Roles

por JoseRios Lun Feb 25, 2008 5:49 pm

Aquí se logra crear nuevos Roles y asignarlos a los usuarios con nivel de acceso 3.

Código:: Dim S As New NotesSession Dim Db As NotesDatabase Dim ACL As NotesACL Dim Entry As NotesACLEntry Dim TotalEditors As Integer Dim TotalAuthors As Integer Dim Roles (7) As String Dim Message As String Dim BoxType As Long BoxType=MB_OK + MB_ICONINFORMATION Set DB = S.CurrentDatabase Roles(0) = "usuCreador" Roles(1) = "usuModifica" Roles(2) = "GroCreador" Roles(3) = "GroModifica" Roles(4) = "NetCreador" Roles(5) = "NetModifica" Roles(6) = "SerCreador" Roles(7) = "SerModifica" Set ACL=DB.ACL Forall i In Roles ACL.AddRole(i) End Forall ACL.Save Set Entry=ACL.GetFirstEntry TotalEditors = 0 TotalAuthors = 0 Do Until Entry Is Nothing If (Entry.level > 3) Then TotalEditor = TotalEditor + 1 Forall i In Roles Entry.EnableRole(i) End Forall Elseif(Entry.level = 3) Then If Entry.CanCreateDocuments Then TotalAutor = TotalAutor + 1 Entry.EnableRole("usuCreador") Entry.EnableRole("GroCreador") Entry.EnableRole("NetCreador") Entry.EnableRole("SerCreador") End If End If ACL.Save Set Entry = ACL.GetNextEntry(Entry) Loop ACL.Save Message = "Editores: " & TotalEditor & ", Autores: " & TotalAutor Messagebox Message, BoxType, "Roles Creados"