'Beispiel: VB .Net - Zugriffsrechte eines Ordners ermitteln ' Option Explicit On Option Strict On Imports System.Security.AccessControl Imports System.Security.Principal Imports System.IO Imports System.Threading.Thread Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click If Me.ListBox1.Items.Count() > 0 Then Me.ListBox1.Items.Clear() Dim fbd As FolderBrowserDialog = New FolderBrowserDialog If fbd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Return End If Me.TextBox1.Text = fbd.SelectedPath() If Me.TextBox1.Text.Length() <= 3 Then MessageBox.Show("Sie muessen einen Ordner auswaehlen.", "Info") Return End If Try Dim Permission As FindAllUsersWithReadPermissionOnSharedFolders = _ New FindAllUsersWithReadPermissionOnSharedFolders(Me.TextBox1.Text) Dim List As New List(Of String)(Permission.PermissionInformations()) If List IsNot Nothing Then Me.ListBox1.Items.AddRange(List.ToArray()) Dim msg As String = Permission.Message() If msg.Length > 0 Then MessageBox.Show(msg, "Info") Else MessageBox.Show("Es ist ein Fehler aufgetreten.", "Info") End If End If List.Clear() Catch ex As Exception MessageBox.Show(ex.Message(), "Info") End Try End Sub Public Class FindAllUsersWithReadPermissionOnSharedFolders Public Sub New(ByVal Path As String) Folder = Path End Sub Private _folder As String Private Property Folder() As String Get Return _folder End Get Set(ByVal value As String) _folder = value End Set End Property Public ReadOnly Property PermissionInformations() As List(Of String) Get Return GetPermissionInformations() End Get End Property Private _message As String = String.Empty Public Property Message() As String Get Return _message End Get Set(ByVal value As String) _message = value End Set End Property Private Function GetPermissionInformations() As List(Of String) Dim List As New List(Of String) Try Dim di As New DirectoryInfo(Folder()) Dim ds As DirectorySecurity = di.GetAccessControl() For Each SystemAccessRule As FileSystemAccessRule In ds.GetAccessRules(True, True, GetType(NTAccount)) List.Add(SystemAccessRule.IdentityReference.Value.ToString()) If (SystemAccessRule.IdentityReference.ToString() = CurrentPrincipal.Identity.Name()) Then If (SystemAccessRule.FileSystemRights() And FileSystemRights.ReadPermissions) = _ FileSystemRights.ReadPermissions Then Message = "Zugriffsrechte wurden uebermittelt..." End If End If Next Catch ex As IOException MessageBox.Show(ex.Message(), "Info IOException") Catch ex As Exception MessageBox.Show(ex.Message(), "Info Exception") End Try Return List End Function End Class Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load With Me .CenterToScreen() .Text = "Zugriffsrechte auf einen Shared Folder ermitteln" .Button1.Text = "Test..." .Label1.Text = "Zu testendes Verzeichnis:" .TextBox1.Text = "c:\acl" End With End Sub End Class