Bonjour

J'ai la configuration suivante :

Un dossier DIFFUSION et deux sous dossiers INV et DRH

Comment peux-t-on attribuer les droits en lecture au dossier DIFFUSION
pour l'utilisateur USER1 et les droits en lecture sur le sous-dossier INV pour l'utilisateur USER1 et ne pas attribuer de droits sur le sous-dossier DRH


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 strHomeFolder, strHome, strUser
Dim intRunError, objShell, objFSO
 
 
strHomeFolder = "E:\DIFFUSION\INV"
 
 
 
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strHomeFolder) Then
 
 
'''''''''''''''''''''''''''''''''''''''''''''
'ATTRIBUTION DES DROITS D ACCES  ''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''
 
intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " _
& strHomeFolder & " /e /g user1:r ", 2, True)
   If intRunError <> 0 Then
   Wscript.Echo "Error assigning permissions for user " _
   & strUser & " to home folder " & strHomeFolder
   End If
End If
Ce code n'attribue pas les droits

Merci pour vos réponses