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.
Le dossier principal restera avec les droits en Héritage mais les 4 sous dossiers auront des droits différents.
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éé"
une idée? j'ai entendu parlé de calc ect mais je ne vois pas comment l'implémenter dans mon code.
Merci
Partager