Bonjour,

J'ai fais un petit programme qui créé un dossier avec 4 sous dossiers sur une serveur de fichier.

Et j'aimerai pouvoir mettre des droits sur ces dossiers, enlever l'héritage. Mais je bloque. Je sais le faire via un fichier bat, mais j'aimerai tout faire en automatique via un vbs.

Mon vbs doit s'utiliser avec un argument récupéré via un autre logiciel.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Dim objFSO, objFolder, args, username
 Set args = Wscript.Arguments
 
username = args(0) 'recup argument'
 
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("\\FILESERVER\test\"&username)
 
 
objFolder.subFolders.Add("Sousdossier1")
objFolder.subFolders.Add("Sousdossier2")
objFolder.subFolders.Add("Sousdossier3")
objFolder.subFolders.Add("Sousdossier4")
 
Wscript.echo "Dossier fileserver " &username + " créé"
Le dossier principal restera avec les droits en Héritage mais les 4 sous dossiers auront des droits différents.

une idée? j'ai entendu parlé de calc ect mais je ne vois pas comment l'implémenter dans mon code.

Merci