Bonjour,

apres plusieures recherches dont certaines fructueuses j'ai du mal a finir mon programme.

Je suis en train de mettre en place un petit outils qui permet de creer une arborescence en automatique sur un Filer géré via des groupes AD

dans la fin de mon programme je créée deux sous dossiers, ces deux sous dossiers doivent etre respectivement en lecture seule pour deux groupes distinct, et les utilisateurs du groupe A doivent avoir un refus sur le dossier B.

J'arrive a ajouter et a modifier des roles, mais ca ne les mets qu'au dossier creer pas au sous dossier et fichier en heritage.
du coup je suis un peu paumé car la fonction a l'air bonne mais ca ne se cascade pas et je ne sais pas quoi rajouter pour l'heritage.

pour le programme j'utilise
Imports System.Security.AccessControl

et le code ressemble a ca ( recuperer sur le msdn )
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
26
27
28
29
30
31
32
    Sub AddFoldefSecurity(ByVal folder As String, ByVal account As String, _
        ByVal rights As FileSystemRights, ByVal controlType As AccessControlType)
 
        ' Get a FileSecurity object that represents the 
        ' current security settings.
        Dim fSecurity As DirectorySecurity = Directory.GetAccessControl(folder)
 
        ' Add the FileSystemAccessRule to the security settings. 
        Dim accessRule As FileSystemAccessRule = _
            New FileSystemAccessRule(account, rights, controlType)
 
        fSecurity.AddAccessRule(accessRule)
 
        ' Set the new access settings.
        Directory.SetAccessControl(folder, fSecurity)
 
    End Sub
    Sub RemoveDirectorySecurity(ByVal folder As String, ByVal Account As String, ByVal Rights As FileSystemRights, ByVal ControlType As AccessControlType)
        ' Create a new DirectoryInfo object.
 
 
        ' Get a DirectorySecurity object that represents the 
        ' current security settings.
        Dim dSecurity As DirectorySecurity = Directory.GetAccessControl(folder)
 
        ' Add the FileSystemAccessRule to the security settings. 
        dSecurity.RemoveAccessRule(New FileSystemAccessRule(Account, Rights, ControlType))
 
        ' Set the new access settings.
        Directory.SetAccessControl(folder, dSecurity)
 
    End Sub
et dans mon bouton creer arborescence j'ai ca :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
AddFoldefSecurity(D2.ToString + "\CONTROLE\", "DOMAIN\GROUPE", FileSystemRights.Read, AccessControlType.Allow)
Si quelqu'un utilise ce genre de fonction je suis preneur.

Merci d'avance.
Jeff