Droits NTFS sur un dossier
Bonjour à tous,
1/ Je souhaite créer une arborescence : E:\FTP\ACCES\
2/ J'ai créé un user nommé ACCES_FTP
3/ Je voudrais que le user ACCES_FTP puisse en se connectant à ACCES avoir le Contrôle Total.
Jai récupéré des bouts de scripts sur le forum. Le script me créé bien l'arborescence, mais lorsque je me positionne dans l'onglet sécurité du dossier ACCES, je ne vois pas le user : ACCES_FTP en CT ?
je ne maitrise pas trop la commande "cacls"
Merci pour votre aide.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| Option Explicit
Dim ofso
Set ofso = CreateObject("Scripting.FileSystemObject")
CreerRep("E:\FTP\ACCES\")
Sub CreerRep(Chemin)
If Not ofso.FolderExists(chemin) Then
CreerRep(ofso.GetParentFolderName(chemin))
ofso.CreateFolder(chemin)
End If
End Sub
Function ControlTotale(objet)
Set Ws = CreateObject("WScript.Shell")
Set ProcessEnv = Ws.Environment("Process")
NomUtilisateur = ProcessEnv("ACCES_FTP")
Command = "%COMSPEC% /c Echo o| cacls "& CreerRep &" /G " & qq(NomUtilisateur) & ":F ACCES_FTP:F"
Result = ws.Run(Command,0,True)
End Function
Function qq(strIn)
qq = Chr(34) & strIn & Chr(34)
End Function |
