Discussion :

[PAB/31/SAB]

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

[hackoofr]

cacls /? pour l'aide en ligne de commande
et pour voir les droits en ligne de commande, il suffit de taper dans la console:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cacls E:\FTP\ACCES

[ProgElecT]

Salut

je ne maitrise pas trop la commande "cacls"

Peut être ce lien t'aidera t il.

[PAB/31/SAB]

J'ai oublié de dire que travaille sur du Windows server 2008.
En utilisant vos informations, j'ai résolu mon problème avec icacls.

Merci à vous.

PAB/31/SAB