Public Function getPermissions(Pfad As String)
Dim sec As New ADsSecurity
Dim sd As IADsSecurityDescriptor
Dim dacl As IADsAccessControlList
Dim ace As IADsAccessControlEntry
Dim newAce As New AccessControlEntry
Set sd = sec.GetSecurityDescriptor("FILE://" & Pfad)
Set dacl = sd.DiscretionaryAcl
 
For Each ace In dacl
   getPermissions = getPermissions & ace.Trustee & " - " & ace.AccessMask & _
     vbCrLf
Next
End Function