Modifié des Droit NTFS en vbs
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:
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
