Trabajar con Roles

Ver el tema anterior Ver el tema siguiente Ir abajo

Trabajar con Roles

Mensaje por JoseRios el 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"
avatar
JoseRios

Cantidad de envíos : 39
Edad : 32
Localización : Santiago, Chile
Fecha de inscripción : 25/02/2008

Ver perfil de usuario http://noteroschile.wordpress.com

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.