Imports System
Imports System.Web.Services.Protocols
Imports System.Text.RegularExpressions

Class Sample
Public Shared Sub Main()
Dim rs As New ReportingService()
    rs.Credentials = System.Net.CredentialCache.DefaultCredentials

    Try
Dim inheritParent As Boolean
Dim rolePath As String
Dim items As CatalogItem() = rs.ListChildren("/", True)
Dim item As CatalogItem
        For Each item In items
            rolePath = item.Path
            rs.GetPolicies(rolePath, inheritParent)
            While inheritParent
                rolePath = GetParentPath(rolePath)
                rs.GetPolicies(rolePath, inheritParent)
            End While
            If item.Path = rolePath Then
                Console.WriteLine("The item {0} does not inherit it's role assignment.", item.Path)
            Else
                Console.WriteLine("The item {0} inherits it's role assignment from {1}", item.Path, rolePath)
            End If
        Next item
    Catch e As SoapException
        Console.WriteLine(e.Detail("Message").InnerXml)

    Catch e As Exception
        Console.WriteLine(e.Message)
    End Try
End Sub

Private Shared Function GetParentPath(ByVal currentPath As String) As String
Dim delimiter As String = "/"
Dim rx As New Regex(delimiter)
Dim childPath As String() = rx.Split(currentPath)

Dim parentLength As Integer = childPath.Length -  1 
Dim parentPath(parentLength) As String

Dim i As Integer
    For i =  0  To parentLength -  1 
        parentPath(i) = childPath(i)
    Next i
    If parentPath.Length =  1  Then
        Return "/"
    Else
        Return String.Join("/", parentPath)
    End If
End Function 'GetParentPath
End Class 

Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Imports System.Web.Services.Protocols


Public Class ScriptMain

    Public Sub Main()
        Dts.TaskResult = Dts.Results.Success
        Dim rs As New ReportingService()
    End Sub

End Class

Imports System
Imports System.Web.Services.Protocols
Imports System.Text.RegularExpressions
Imports ConsoleApplication1.localhost

Module Module1

    Sub Main()
        Dim rs As New ReportingService2005()
        rs.Credentials = System.Net.CredentialCache.DefaultCredentials
        Dim conn As New SqlClient.SqlConnection
        conn.ConnectionString = "integrated security=SSPI;data source=localhost;" & "persist security info=False;initial catalog=users_policies"
        Dim conn1 As New SqlClient.SqlConnection
        conn1.ConnectionString = "integrated security=SSPI;data source=localhost;" & "persist security info=False;initial catalog=users_policies"
        Try
            Dim myCMD As SqlClient.SqlCommand = New SqlClient.SqlCommand("SELECT DISTINCT report_path FROM dbo.users_reports_policies;", conn)
            conn.Open()
            Dim myReader As SqlClient.SqlDataReader = myCMD.ExecuteReader()
            Dim myReader1 As SqlClient.SqlDataReader
            Dim QueryStr As String
            Dim CountStr As Integer
            Dim i As Integer
            Dim fNextResult As Boolean = True
            Dim fNextResult1 As Boolean = True
            Do Until Not fNextResult
                Do While myReader.Read()
                    'Console.WriteLine(myReader.GetString(0))
                    conn1.Open()
                    QueryStr = "SELECT userlogin FROM dbo.users_reports_policies WHERE report_path='" & myReader.GetString(0) & "';"
                    'Console.WriteLine("QuerySTR = " & QueryStr)
                    Dim myCMD1 As SqlClient.SqlCommand
                    myCMD1 = New SqlClient.SqlCommand(QueryStr, conn1)
                    myReader1 = myCMD1.ExecuteReader()
                    'Console.WriteLine("FieldCount = " & myReader1.)

                    'Считаем кол-во строк, возвращенных запросом
                    fNextResult1 = True
                    CountStr =  0 
                    Do Until Not fNextResult1
                        Do While myReader1.Read()
                            CountStr = CountStr +  1 
                        Loop
                        fNextResult1 = myReader1.NextResult()
                    Loop

                    myReader1.Close()
                    myCMD1 = New SqlClient.SqlCommand(QueryStr, conn1)
                    myReader1 = myCMD1.ExecuteReader()

                    Dim Item As String = myReader.GetString( 0 )
                    Dim Policies(CountStr -  1 ) As Policy
                    fNextResult1 = True
                    i =  0 
                    Do Until Not fNextResult1
                        Do While myReader1.Read()
                            Policies(i) = New Policy
                            Policies(i).GroupUserName = myReader1.GetString( 0 )
                            Policies(i).Roles = New Role( 0 ) {}
                            Policies(i).Roles( 0 ) = New Role
                            Policies(i).Roles( 0 ).Name = "Browser"
                            Policies(i).Roles( 0 ).Description = "May view folders, reports and subscribe to reports."
                            i = i +  1 
                        Loop
                        fNextResult1 = myReader1.NextResult()
                    Loop
                    Console.WriteLine("CountStr = " & CountStr)
                    Console.WriteLine("i = " & i)
                    Console.WriteLine("Item = " & Item)

                    myReader1.Close()
                    conn1.Close()
                    Console.WriteLine("ItemType = " & rs.GetItemType(Item))
                    If rs.GetItemType(Item) <>  0  Then
                        rs.SetPolicies(Item, Policies)
                    End If
                Loop
                fNextResult = myReader.NextResult()
            Loop
            myReader.Close()

        Catch ex As Exception
            MsgBox("I'm sorry. The application is failed")
        Finally
            conn.Close()
        End Try



        MsgBox("Ok")

    End Sub


End Module