Ordnerberechtigungen, Ausgabe säubern

  • VB.NET

    Ordnerberechtigungen, Ausgabe säubern

    Hallo Zusammen,

    Ich habe kleine Schwierigkeiten mit dem Auslesen von Ordnerberechtigungen in Windows.

    Kurz:
    Ich gebe einen Pfad an zBsp: C:\Users, danach werden alle Unterordner ermittelt, bei jedem Unterordner werden die Berechtigungen ausgelesen.

    Das Problem:
    "Geerbte" und die "Explizite" Berechtigungen. Mir ist nur diese Methode bekannt:

    VB.NET-Quellcode

    1. DirSecurity.GetAccessRules(True, True, GetType(NTAccount))

    Da habe ich nur " entweder / oder, oder beides " zur Verfügung. Wenn ich alle will, werden einige Berechtigungen doppelt angezeigt. Nun wäre vermutlich Sinnvoll die Geerbten User Accounts zBsp. mit * kennzeichnen und die selben Expliziten löscht oder "merged".. aber wie kann ich eine Liste "mergen" ? oder gibt es elegantere Möglichkeiten?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Security.AccessControl
    3. Imports System.Security.Principal
    5. Public Class Form1
    7. Dim c As Integer = 0
    9. Private Sub FillTreeNode(ByVal dNode As TreeNode) 'dNode = Pfad zBsp: C:\Temp\
    10. Dim d As New DirectoryInfo(dNode.FullPath)
    11. For Each di As DirectoryInfo In d.GetDirectories
    12. Dim lstAcc As New List(Of String)
    13. On Error Resume Next
    14. Dim DirSecurity As DirectorySecurity = Directory.GetAccessControl(di.FullName)
    15. For Each ACL As FileSystemAccessRule In DirSecurity.GetAccessRules(True, True, GetType(NTAccount))
    16. Dim Str As String = ACL.IdentityReference.Value
    17. 'If ACL.IsInherited = True.. Wie weiter?
    18. lstAcc.Add(Str.Substring(" " & Str.LastIndexOf("\") + 1))
    19. Next
    20. Dim strAcc As String = String.Join(",", lstAcc)
    21. Dim nNode As New TreeNode(di.Name & strAcc)
    22. dNode.Nodes.Add(nNode)
    23. FillTreeNode(nNode)
    24. lstAcc.Clear()
    25. Next
    26. End Sub
    28. Public Sub ShowTree(ByVal Path As String)
    29. Dim nNode As New TreeNode(Path)
    30. frmTree.Nodes.Add(nNode)
    31. Me.FillTreeNode(nNode)
    32. End Sub
    34. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    35. Dim FolderBrowserDialog1 As New FolderBrowserDialog
    36. With FolderBrowserDialog1
    37. .Description = "Select the directory"
    38. If .ShowDialog = DialogResult.OK Then
    39. ShowTree(.SelectedPath)
    40. End If
    41. End With
    42. 'ShowTree("C:\Temp\")
    43. frmTree.ExpandAll()
    44. End Sub
    45. End Class



    Vielen Dank für Eure Antworten

Facebook