Discussion :

[gagaz21]

Bonjour,

Suit à un projet que je dois réalisé pour mon BTS, je dois récupérer les acl sur un fichier, ce qui est chose faite.

Voici mon code :

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
 
 
Private Sub Bt_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_ok.Click
 
        Try
 
            Dim fichier As String = "C:\nom-du-fichier"
            Dim sec As FileSecurity = New FileSecurity(fichier, AccessControlSections.All)
            Dim dacl As AuthorizationRuleCollection = sec.GetAccessRules(True, True, GetType(NTAccount)) 'security identifier pour recupérer le SID à la place du nom
 
            For Each rqt As FileSystemAccessRule In dacl
 
                MsgBox(rqt.IdentityReference.Value + "      Type : " + rqt.AccessControlType.ToString + "       Autorisation : " + rqt.FileSystemRights.ToString())
 
            Next
 
        Catch ex As Exception
 
            MsgBox(ex.Message)
 
 
        End Try
 
 
    End Sub

Le resultat de ce code me renvoi les droits de chaque utilisateur sur le dossier. Maintenant je cherche a filtrer ceci pour récupérer les droits uniquement sur un utilisateur donné.

Quelqu'un a une solution à mon problème ?
Merci d'avance.

[mactwist69]

T'etais pas loin... Si tu arrives a boucler sur tous les utilisateurs, il suffit donc de comparer chaque nom avec le nom que tu souhaites. genre:

Code :

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

1
2
3
4
5
6
7
8
9
For Each rqt As FileSystemAccessRule In dacl
 
     If String.compare(rqt.IdentityReference.Value,"Jerome")=0 Then
          MsgBox(rqt.IdentityReference.Value + "      Type : " +                 
           rqt.AccessControlType.ToString + "       Autorisation : " + 
            rqt.FileSystemRights.ToString())
      End If
 
 Next

Apres bien sur tu peux remplacer ton "Jerome" en dur par une variable String nom que tu passes en paramètres dans ta procédure ou fonction