a = ShowPermissions("computer","sharename")

Function ShowPermissions(ComputerName,ExplicitPath)
    Set objSecurity = GetObject("winmgmts:{(Security,Restore)}\\" & ComputerName & _
        "\root\cimv2:Win32_LogicalShareSecuritySetting='" & ExplicitPath & "'")

    If objSecurity.GetSecurityDescriptor(objSD) = 0 Then

      For Each objACE in objSD.DACL
      	wscript.Echo objACE.Trustee.Domain, objACE.Trustee.Name
          
          PermissionBitMask = objACE.AccessMask
          
          Select Case PermissionBitMask
            Case 1179817
              wscript.Echo "Read"
            Case 1245631
              wscript.Echo "Modify"
            Case 2032127
              wscript.Echo "Full"
            Case Else
              wscript.Echo "Other: " & PermissionBitMask
          End Select
      Next
    
    End If
End Function