Question

下面的代码在基于NT的机器上设置权限时工作得很好，但是关于Windows 8的一些工作方式不同。代码将在Windows 8上创建共享，但不会影响＆＃34;共享权限＆＃34;共享属性的页面。

要访问属性页面，我正在谈论右键单击共享并选择属性。从那里选择＆＃34;共享＆＃34;选项卡并选择＆＃34;高级共享。＆＃34;从这里点击＆＃34;权限＆＃34;按钮。小组将展示＆＃34; Everyone＆＃34;并且可以选择＆＃34;完全控制＆＃34;，＆＃34;更改＆＃34;和＆＃34;阅读＆＃34;对话框底部的权限。这些是我需要以编程方式选择的选项。就像我说的，相同的代码在Vista / Win 7中完成，但不是Windows 8。

有人可以告诉我如何在Windows 8中执行此操作吗？答案可以是VB或C＃，也可以。

Private Function CreateWindowsShare(ByVal DirectoryToShare As String) As String

    Dim ManageClass As New ManagementClass("Win32_Share")
    Dim ReturnStatus As UInt32 = 0
    Dim i As Integer = 1
    Dim CreatedShareName As String

    Do
        CreatedShareName = IIf(i = 1, "TestShare", "TestShare" & i)

        Dim inParams As ManagementBaseObject = ManageClass.GetMethodParameters("Create")
        inParams("Description") = ""
        inParams("Name") = CreatedShareName
        inParams("Path") = DirectoryToShare
        inParams("Type") = &H0

        Dim outParams As ManagementBaseObject = ManageClass.InvokeMethod("Create", inParams, Nothing)

        ReturnStatus = Convert.ToUInt32(outParams.Properties("ReturnValue").Value)

        i += 1
    Loop While ReturnStatus = MethodStatus.DuplicateShare

    If ReturnStatus <> 0 Then
        Throw New Exception("Unable to create share.")
    End If

    ' For more info see:
    'http://social.msdn.microsoft.com/Forums/windowsdesktop/en-US/de213b61-dc7e-4f33-acdb-893aa96837fa/c-set-directory-sharing-permission-full-control-for-everyone-programmatically-in-windows-7-or?forum=windowssdk

    Dim ntAccount As New NTAccount("Everyone")

    Dim UserSID As SecurityIdentifier = ntAccount.Translate(GetType(SecurityIdentifier))
    Dim UtenteSIDArray(UserSID.BinaryLength) As Byte
    UserSID.GetBinaryForm(UtenteSIDArray, 0)

    Dim UserTrustee As New ManagementClass(New ManagementPath("Win32_Trustee"), Nothing)
    UserTrustee("Name") = "Everyone"
    UserTrustee("SID") = UtenteSIDArray

    Dim UserACE As New ManagementClass(New ManagementPath("Win32_Ace"), Nothing)
    UserACE("AccessMask") = 2302127  ' <-Full Access
    UserACE("AceFlags") = AceFlags.ObjectInherit Or AceFlags.ContainerInherit
    UserACE("AceType") = AceType.AccessAllowed
    UserACE("Trustee") = UserTrustee

    Dim UserSecurityDescriptor As New ManagementClass(New ManagementPath("Win32_SecurityDescriptor"), Nothing)
    UserSecurityDescriptor("ControlFlags") = 4 ' SE_DACL_PRESENT
    UserSecurityDescriptor("DACL") = New Object() {UserACE}

    Dim ShareClass As New ManagementClass("Win32_Share")
    Dim Share As New ManagementObject(ShareClass.Path.ToString & ".Name='" & CreatedShareName & "'")

    Share.InvokeMethod("SetShareInfo", New Object() {Int32.MaxValue, "", UserSecurityDescriptor})

    Return CreatedShareName
End Function

Public Enum MethodStatus
    Success = 0     'Success
    AccessDenied = 2    'Access denied
    UnknownFailure = 8  'Unknown failure
    InvalidName = 9     'Invalid name
    InvalidLevel = 10   'Invalid level
    InvalidParameter = 21   'Invalid parameter
    DuplicateShare = 22     'Duplicate share
    RedirectedPath = 23     'Redirected path
    UnknownDevice = 24  'Unknown device or directory
    NetNameNotFound = 25    'Net name not found
End Enum

Answer 1

我发现了问题。

问题是我弄乱了访问标记。

在我的代码中2302127

应阅读2032127

由于某种原因，0和3被翻转。

如何在Windows 8中设置共享权限

1 个答案: