Salut je ajouter des permissions aux utilisateurs(active directory) voici mon code il ne fonctionne pas et je ne sais pas pourquoi  
 
Set Shell = CreateObject("WScript.Shell" )
   
  shell.run "CMD /c echo y| RMTSHARE \\" & nom_controleur & "\" & login & "$=" & lecteurrep & repertoire_utilisateurs & "\" & repertoire_eleves & "\" & login & " /grant " & login & ":c /remark:"
         shell.run "CMD /c echo y| CACLS " & lecteurrep & repertoire_utilisateurs & "\" & repertoire_eleves & "\" & login & " /e /c /g " & login & ":C"
     

sert toi plutot de l'utilitaire xcacls (cherche le sur le net) ou bien cacls (inclu dans windows mais moins perfomant que xcacls)
 
 
Set sh = CreateObject("WScript.Shell" )  
 
pathRP='chemin du repertoire'
Aname='nom de l'utilisateur dans active directory'
 
sh.Run "xcacls " & pathRP & " /T /E /C /P "& Aname & ":F" ' donne a l'utilisateur le controle totale
 
'explication des options possible:
'/T => Modifie les listes DACL des fichiers spécifiés dans le répertoire en cours ainsi que tous ses sous-répertoires
'/Y => pour ne pas avoir à confirmer l'éxécution de la commande  
'/C => Continue de modifier les listes DACL, en ignorant les erreurs.  
'/P => Remplace les droits d'accès de l'utilisateur spécifié (on peux aussi utiliser /G )
' :F => Donne le controle totale
'/E =>Modifie une liste DACL au lieu de la remplacer sinon l'utilisateurs Administrateur est remplacé et disparait
 
 
++

ca ne fonctionne pas avec xcacls mais avant avec mon code ca a fonctionné une foie

normal il faut que telecharge xcacls et le mette dans le repertoire system32 sinon fé le avec cacls avec les option adequate
moi j'ai fait un script qui recupéré et des utilisateur dans un fichier excel ainsi que toutes les info nécessaire a AD et ce script crée pour chacun leur repertoire de profil et je me sert de xcacls pour gerer les droit d'acces
ça marche aussi bien pour 1 utilisateur que pour 1000
ta commande a  l'air bien lourde

ne fonctionne toujours pas  
affiche command line option sysntax error
XCACLS " & lecteurrep & repertoire_utilisateurs & "\" & repertoire_profs & "\" & login & " /e /c /g " & login & ":C"