Как прочитать объекты безопасности папки?

[vladtr]

Стоит задача - получить для текущего каталога список пользователей с их правами для этой папки? Может кто подскажет с какой стороны подойти. Если папка содержит вложенные папки, то прочитать и составить списки для вложенных тоже. При этом необходимо использовать VBA.

[EducatedFool]

При этом необходимо использовать VBA.

Что за необходимость, если не секрет?

Если папка содержит вложенные папки, то прочитать и составить списки для вложенных тоже

Считать список файлов и папок (в т.ч. и вложенных) проблем не составит (это легко реализуется средствами VBA и/или библиотеки типа Microsoft Scripting Runtime)

А считать права доступа для каждого из объектов проще всего средствами WMI.
Вот пример кода:

Sub WMI()
    'On Error Resume Next
    Set wmiFileSecSetting = GetObject("winmgmts:Win32_LogicalFileSecuritySetting.path='C:\windows'")
    Dim wmiSecurityDescriptor
    RetVal = wmiFileSecSetting.GetSecurityDescriptor(wmiSecurityDescriptor)

    If Err.Number <> 0 Then
        Debug.Print "GetSecurityDescriptor failed" & vbCrLf & Err.Number & vbCrLf & Err.Description: Exit Sub
    Else
        Debug.Print "GetSecurityDescriptor succeeded" & vbCrLf
    End If
    For Each wmiAce In wmiSecurityDescriptor.DACL
        Dim strsid As String
        s = s & "Access Mask: " & wmiAce.AccessMask & vbCrLf
        s = s & "ACE Type: " & wmiAce.AceType & vbCrLf    '& vbCrLf

        ' Get Win32_Trustee object from ACE
        Set Trustee = wmiAce.Trustee
        s = s & "Trustee Domain: " & Trustee.Domain & vbCrLf
        s = s & "Trustee Name: " & Trustee.Name & vbCrLf    '& vbCrLf

        ' Get SID as array from Trustee
        SID = Trustee.SID:        strsid = Join(SID, ",")
        s = s & "Trustee SID: {" & strsid & "}" & vbCrLf & vbCrLf
    Next
    MsgBox s, vbInformation
End Sub

На выходе имеем что-то вроде этого:

GetSecurityDescriptor succeeded

Access Mask: 1179817
ACE Type: 0
Trustee Domain: BUILTIN
Trustee Name: Пользователи
Trustee SID: {1,2,0,0,0,0,0,5,32,0,0,0,33,2,0,0}

Access Mask: -1610612736
ACE Type: 0
Trustee Domain: BUILTIN
Trustee Name: Пользователи
Trustee SID: {1,2,0,0,0,0,0,5,32,0,0,0,33,2,0,0}

Access Mask: 1245631
ACE Type: 0
Trustee Domain: BUILTIN
Trustee Name: Опытные пользователи
Trustee SID: {1,2,0,0,0,0,0,5,32,0,0,0,35,2,0,0}

Access Mask: -536805376
ACE Type: 0
Trustee Domain: BUILTIN
Trustee Name: Опытные пользователи
Trustee SID: {1,2,0,0,0,0,0,5,32,0,0,0,35,2,0,0}

Access Mask: 2032127
ACE Type: 0
Trustee Domain: BUILTIN
Trustee Name: Администраторы
Trustee SID: {1,2,0,0,0,0,0,5,32,0,0,0,32,2,0,0}

Access Mask: 268435456
ACE Type: 0
Trustee Domain: BUILTIN
Trustee Name: Администраторы
Trustee SID: {1,2,0,0,0,0,0,5,32,0,0,0,32,2,0,0}

Access Mask: 2032127
ACE Type: 0
Trustee Domain: NT AUTHORITY
Trustee Name: SYSTEM
Trustee SID: {1,1,0,0,0,0,0,5,18,0,0,0}

Access Mask: 268435456
ACE Type: 0
Trustee Domain: NT AUTHORITY
Trustee Name: SYSTEM
Trustee SID: {1,1,0,0,0,0,0,5,18,0,0,0}

Access Mask: 268435456
ACE Type: 0
Trustee Domain:
Trustee Name: СОЗДАТЕЛЬ-ВЛАДЕЛЕЦ
Trustee SID: {1,1,0,0,0,0,0,3,0,0,0,0}

[vladtr]

Сообщение от EducatedFool

Что за необходимость, если не секрет?

Нет не секрет. Поручили сделать эту задачу на нашем портале (организовать учет доступа к ресурсам файлового сервера, с возможностью обновления и печатью отчета). Из опыта скажу, что пользователю необходимо сделать что-то удобное. Единственный способ (который я могу сделать) это создать офисное приложение например EXCEL-файл, который будет связан со списком на портале. Работу со списком сделать в этом файле.

За помощь большое спасибо. Возможно еще будут вопросы, но как без них...

А как прочитать кто входит в Trustee Name: Администраторы. Посоветуйте источники информации...