Dominoarea.org Index du Forum Dominoarea.org
 Forum, Téléchargement Lotus Domino/Notes en Français 
 FAQFAQ   PartenairesPartenaires   RechercherRechercher   Liste des MembresListe des Membres   Groupes d'utilisateursGroupes d'utilisateurs 
 S'enregistrerS'enregistrer   ConnexionConnexion 

La date/heure actuelle est 09 Sep 2010 à 12:06
Toutes les heures sont au format UTC + 1		 Voir les nouveaux messages depuis votre dernière visite
Voir les messages sans réponses
 Index du Forum » IBM-Lotus Domino » Trucs et Astuces » Développement » LotusScript » ACL, sécurité
Ajouter des rôles dans la LCA en LotusScript
Modérateurs: Modérateur
Poster un nouveau sujet   Répondre au sujet Voir le sujet précédentVoir le sujet suivant
Page 1 sur 1 [1 message]  
Auteur Message
Stephane Maillard
Lord of DominoArea
Lord of DominoArea


Inscrit le: 16 Déc 2004
Messages: 9388
Warnings: 0 0 Warnings
Spécialité: Développeur
Localisation: Bretagne
Pays:
Sexe:
Age: 40
Navigateur:
 Ajouter des rôles dans la LCA en LotusScript
ls:
Sub Initialize
     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
     Roles(0) = "UserCreator"
     Roles(1) = "UserModifier"
     Roles(2) = "GroupCreator"
     Roles(3) = "GroupModifier"
     Roles(4) = "NetCreator"
     Roles(5) = "NetModifier"
     Roles(6) = "ServerCreator"
     Roles(7) = "ServerModifier"
     Set DB = S.CurrentDatabase
     If Not DB.IsOpen Then
          Print "Error Not open"          
          Goto endit
     End If
     
     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
               TotalEditors = TotalEditors + 1
               Forall i In Roles
                    Entry.EnableRole(i)
               End Forall
          Elseif( Entry.level = 3) Then
               If Entry.CANCREATEDOCUMENTS Then
                    TotalAuthors = TotalAuthors + 1
                    Entry.EnableRole("UserCreator")
                    Entry.EnableRole("GroupCreator")
                    Entry.EnableRole("NetCreator")
                    Entry.EnableRole("ServerCreator")
               End If
          End If
          ACL.Save
          Set Entry = ACL.GetNextEntry(Entry)
     Loop
     ACL.Save
     Dim Message As String
     Dim BoxType As Long
     BoxType=MB_OK + MB_ICONINFORMATION
     Message =  "Gave all new roles to "  + Cstr(TotalEditors) +   " entry(s) who have Editor access or above. Gave create-only roles to " + Cstr(TotalAuthors) + " entry(s) who have Author with Create access."
     Messagebox Message, BoxType, "Applied Roles"
     
endit:
     
End Sub
This formula uses LotusScript to add roles to the ACL of a database.
Event = "Initialize". No other subroutines are used.
_________________
Cordialement

Stéphane Maillard

MessagePosté le: 19 Juil 2005 à 19:17
 Voir le profil de l'utilisateur Envoyer un message privé Visiter le site web de l'utilisateur
 Revenir en haut de page 
Montrer les messages depuis:   Trier par:   
Page 1 sur 1 [1 message]  
Poster un nouveau sujet   Répondre au sujet Voir le sujet précédentVoir le sujet suivant
 Index du Forum » IBM-Lotus Domino » Trucs et Astuces » Développement » LotusScript » ACL, sécurité
Sauter vers:  


Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum
Vous ne pouvez pas joindre des fichiers dans ce forum
Vous pouvez télécharger des fichiers dans ce forum

phpBB SEO URLs V2

Flux RSS 
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com
Version française de Categories Hierarchy © GGWeb-FR

[ Temps : 0.1638s ][ Requêtes : 13 (0.0064s) ][ GZIP actif - Débogage actif ]