IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Positionner des Droits sur des dossiers [FAQ]


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2005
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2005
    Messages : 21
    Par défaut [Résolu] Positionner des Droits sur des dossiers
    Bonjour,

    tout d'abord je précise que je débute en VBS/WSH et j'ai pris le temps de chercher des infos ici même et partout où google m'a mené.
    Deux posts dans cette section traite du sujet mais sans y apporter de réponse fonctionnel (où alors je suis vraiment une buse)

    Problème:
    Je souhaite ré-attribuer des droits à un ensemble de sous répertoires en fonction du nom du repertoire, puisque ces noms correspondent aux users.

    Pour ce faire j'utilise le Win32_logicalFileSecuritySettings
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Set objWMIService = GetObject("winmgmts:")
    			Set objFolderSecuritySettings = _
    			objWMIService.Get("Win32_LogicalFileSecuritySetting='" & strFolderName & "'")
    			intRetVal = objFolderSecuritySettings.GetSecurityDescriptor(objSD)
    			intControlFlags = objSD.ControlFlags
     
    			If intControlFlags AND SE_DACL_PRESENT Then
    			   arrACEs = objSD.DACL
    J'arrive à afficher les droits présents mais non à les modifier.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    			   ' Affiche les DACLs des sous repertoires
    			   For Each objACE in arrACEs
    				  objExplorer.Document.WriteLn objACE.Trustee.Domain & " -" & objACE.Trustee.Name				  
    			      If objACE.AceType = ACCESS_ALLOWED_ACE_TYPE Then
    					 objExplorer.Document.WriteLn vbTab & "<font color=cyan> Allowed</font><br>"
    			      ElseIf objACE.AceType = ACCESS_DENIED_ACE_TYPE Then
    					 objExplorer.Document.WriteLn vbTab & "<font color=tomato> Denied</font><br>"
    			      End If
    			   Next
    			Else
    			   WScript.Echo "No DACL present in security descriptor"
    			End If
    Et c'est ici qu'intervient mon problème, comment attribuer ces fichus droits...
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    			   '  Teste si un DACLs correspond au nom du repertoire
    			   for Each objACE in arrACEs
    					if objACE.Trustee.Name = objSubfolder.Name then
    					' Si oui on tente desesperement d'attribuer les droits
    					Set objACE.Trustee.Name = objSubfolder.Name
    					end if
    			   next
    J'ai tenté d'utiliser FILEACL.exe pour remplacer mes zibouibouis mais je n'arrive pas à le lancer à partir de mon script, si je le lance seul directement via un shell cela fonctionne.
    Je me demandais s'il ne manquait pas une librairie ou un truc du genre ?
    (J'ai placé dans le repertoire de mon script les fichiers exe et com de FILEACL)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    ' Intégration de FILEACL pour la gestion des droits sur les dossiers (http://www.gbordier.com)
    Set Shell = Wscript.CreateObject("WScript.Shell")
    Shell.Run "I:\Scripting\ACL\fileacl c:\Temp /LINE /SIMPLE /SUB:1 > I:\Scripting\ACL\ACLInfos.txt"
    Voilà, j'espères que quelqu'un connaissant la façon d'attribuer des droits pourras me renseigner, que ce soit en utilisant WSH ou FILEACL.

    Et au passage je me demandais s'il fallait casser l'héritage du parent avant d'attribuer des droits ? (je l'ai fait à la main pour mes tests mais ça ne change rien)
    Pour info ce lien donne de précieuses informations mais je suis un peu perdu entre toutes les dépendances et certains avertissements sur la gestion complexes des ACLs.

    D'avance merci d'avoir retenu votre respiration tout au long de ce post bien longuet et bon code à tous

  2. #2
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    Je ne sais pas ce que représente objSD (pas la construction ou la recup dnas le code donné).
    Tu construit arrACEs à partir d'une methode ou propriété de objSD.
    Donc je pense que ton problème est simple, tu ne doit pouvoir modifié les droits uniquement que parce que tu essayes d'ecrire dans une propriétés qui est en lecture seul.
    Va sur le site msdn et regarde si la propriété de l'objet est en lecture seul ou non ?

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2005
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2005
    Messages : 21
    Par défaut
    C'est exact pas de référence à objSD :s c'est une ré-utilisation de code et je n'ai pas le script intégral à disposition en ce moment mais je te remercie beaucoup pour ton aide, je regarderais ça demain

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2005
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2005
    Messages : 21
    Par défaut
    En me baladant un peu je suis (re) tombé sur cette page:

    Cela me semblait un peu disproportionné mais ça marche trés bien pour:
    • Ajouter de nouveaux Droits
    • Remplacer des Droits
    • Bloquer ou permettre l'héritage


    Pour l'utilisation, il suffit d'utiliser les fonctions comme décrit tout en bas du fichier.

    Je vais pouvoir mettre un TAG résolu même si je n'ai pas tout compris au moins c'est fonctionnel

  5. #5
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    Avant de mettre en résolu poste ton code final, cela peut aider d'autre personne, un exemple adapté dasn un cas précis peut être un exemple interessant.

  6. #6
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2005
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2005
    Messages : 21
    Par défaut
    Arf tu as raison, c'est un oubli,du coup je vais attendre de finaliser ce que je voulais exactement faire pour le poster. @ suivre

Discussions similaires

  1. Script modification des droits sur un dossier
    Par Hurycanrana dans le forum Scripts/Batch
    Réponses: 1
    Dernier message: 03/03/2010, 10h35
  2. Trigger pour mettre des droits sur des procedures et des vues
    Par briino dans le forum Développement
    Réponses: 3
    Dernier message: 23/09/2009, 09h44
  3. Récupération des droits sur un dossier/fichier
    Par el_pedro dans le forum Langage
    Réponses: 9
    Dernier message: 27/08/2008, 15h11
  4. [C#] Prendre des droits sur des dossiers et sous dossiers
    Par raf_unl dans le forum Windows Forms
    Réponses: 4
    Dernier message: 19/03/2007, 13h44
  5. Réponses: 1
    Dernier message: 16/10/2006, 18h07

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo