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 : 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
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