ACL und ACE mit VB

Ich habe schon vor längerer Zeit von Denis die Aufgabe bekommen ein Programm zuschreiben was die Zugriffsberechtigungen eins Ordners ausließt.

Und ich habe es endlich hinbekommen, es geht mal wieder alles über die Super Schnittstelle „Windows Management Instrumentation (WMI)“


Set wmiFileSecSetting = GetObject( _
"winmgmts:Win32_LogicalFileSecuritySetting.path="_
"'C:\test")

RetVal = wmiFileSecSetting.GetSecurityDescriptor(wmiSecurityDescriptor)

If Err <> 0 Then
'Debug.Print "GetSecurityDescriptor failed"
Exit Function
Else
'Debug.Print "GetSecurityDescriptor succeeded"
End If

' Retrieve the DACL array of Win32_ACE objects.
DACL = wmiSecurityDescriptor.DACL

For Each wmiAce In DACL

' Get Win32_Trustee object from ACE
Debug.Print "Trustee Domain: " & wmiAce.Trustee.Domain
Debug.Print "Trustee Name: " & wmiAce.Trustee.Name
Debug.Print "Trustee AccessMask: " & wmiAce.AccessMask
Debug.Print "Trustee AceType: " & wmiAce.AceType

Next


https://puttygen.in