User account access to the dashboard via API

Hi ReyCarter_777, 

Do you have admin access to the server that RS is hosted on? If so, you can do this with PowerShell. 

Below I have attached a sample PowerShell script. This script takes a single username and role, and assigns it to all reports that have broken inherentience (useful for admins to recover a report if users removed everyone in the security tab), but with some tweaks you could get it to pull from a csv file of users and add one role to all those users for a specific report. 

Is there a particular reason you can't use AD groups? This is a much easier way of adding and maintaining users. 

' rs.exe -v variables expected:
'   userName, roleName, rootPath, forceOverlay

Dim addedCount As Integer = 0
Dim skippedCount As Integer = 0
Dim alreadyHadCount As Integer = 0
Dim errorCount As Integer = 0

Public Sub Main()
    If rootPath Is Nothing OrElse rootPath = "" Then rootPath = "/"
    If roleName Is Nothing OrElse roleName = "" Then roleName = "Content Manager"

    Dim overlay As Boolean = False
    If Not (forceOverlay Is Nothing) Then
        Try : overlay = System.Convert.ToBoolean(forceOverlay) : Catch : overlay = False : End Try
    End If

    Console.WriteLine("Starting...")
    Console.WriteLine("  Root path : " & rootPath)
    Console.WriteLine("  User      : " & userName)
    Console.WriteLine("  Role      : " & roleName)
    Console.WriteLine("  Overlay?  : " & overlay.ToString())

    Try
        Dim items() As CatalogItem = rs.ListChildren(rootPath, True)
        Console.WriteLine("Found " & items.Length & " items. Processing...")

        For Each it As CatalogItem In items
            ProcessItem(it, overlay)
        Next

        Console.WriteLine("Done.")
        Console.WriteLine("  Added     : " & addedCount)
        Console.WriteLine("  Already   : " & alreadyHadCount)
        Console.WriteLine("  Skipped   : " & skippedCount)
        Console.WriteLine("  Errors    : " & errorCount)

    Catch ex As Exception
        Console.WriteLine("FATAL: " & ex.ToString())
    End Try
End Sub

Sub ProcessItem(it As CatalogItem, overlay As Boolean)
    Try
        Dim inheritParent As Boolean = True
        Dim policies() As Policy = rs.GetPolicies(it.Path, inheritParent) ' ByRef param

        ' If not forcing overlay and this item still inherits, skip it.
        If (inheritParent AndAlso Not overlay) Then
            skippedCount += 1
            Return
        End If

        ' Start with existing policies (if any)
        Dim current As New System.Collections.Generic.List(Of Policy)
        If Not (policies Is Nothing) Then current.AddRange(policies)

        ' Check if our user already has the desired role
        Dim hasUser As Boolean = False
        Dim hasRole As Boolean = False

        For Each p As Policy In current
            If StringComparer.OrdinalIgnoreCase.Equals(p.GroupUserName, userName) Then
                hasUser = True
                If Not (p.Roles Is Nothing) Then
                    For Each r As Role In p.Roles
                        If StringComparer.OrdinalIgnoreCase.Equals(r.Name, roleName) Then
                            hasRole = True
                            Exit For
                        End If
                    Next
                End If
                Exit For
            End If
        Next

        If hasUser AndAlso hasRole Then
            alreadyHadCount += 1
            Return
        End If

        ' Merge or create our policy
        If hasUser Then
            For Each p As Policy In current
                If StringComparer.OrdinalIgnoreCase.Equals(p.GroupUserName, userName) Then
                    Dim rolesList As New System.Collections.Generic.List(Of Role)
                    If Not (p.Roles Is Nothing) Then rolesList.AddRange(p.Roles)

                    Dim roleExists As Boolean = False
                    For Each r As Role In rolesList
                        If StringComparer.OrdinalIgnoreCase.Equals(r.Name, roleName) Then
                            roleExists = True
                            Exit For
                        End If
                    Next

                    If Not roleExists Then
                        Dim newRole As New Role()
                        newRole.Name = roleName
                        rolesList.Add(newRole)
                        p.Roles = rolesList.ToArray()
                    End If
                    Exit For
                End If
            Next
        Else
            Dim newP As New Policy()
            newP.GroupUserName = userName
            Dim newRole As New Role()
            newRole.Name = roleName
            newP.Roles = New Role() { newRole }
            current.Add(newP)
        End If

        ' Apply policies (this breaks inheritance if it was inheriting and overlay=True)
        rs.SetPolicies(it.Path, current.ToArray())
        addedCount += 1

    Catch ex As Exception
        errorCount += 1
        Console.WriteLine("ERROR on '" & it.Path & "': " & ex.Message)
    End Try
End Sub

If you found this helpful, consider giving some Kudos. If I answered your question or solved your problem, mark this post as the solution.