ReportingService2010SoapClient

good afternoon
I'm trying toget alist of reports froma web serviceREPORTINGservice

My code: 

Try
            Dim rs As ReportService2010.ReportingService2010SoapClient
            Dim binding As New ServiceModel.BasicHttpBinding() With {.Name = "bindingReportingServices2010", .HostNameComparisonMode = ServiceModel.HostNameComparisonMode.StrongWildcard}
            binding.Security.Mode = ServiceModel.BasicHttpSecurityMode.None
            rs = New ReportingService2010SoapClient(binding, New ServiceModel.EndpointAddress("http://artem-pc:80/ReportServer/ReportService2010.asmx"))

            Dim ci() As CatalogItem = {}
            rs.ListChildren(New TrustedUserHeader, "/", True, ci)
            Dim i As Integer
            For i = ci.GetLowerBound(0) To ci.GetUpperBound(0)
                CheckedListBoxControl1.Items.Add(ci(i).Name)
            Next

        Catch ex As Exception
            If MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) = Windows.Forms.DialogResult.OK Then
                Close()
            End If
        End Try

butI get an error:
The request is notenabled forclient authentication scheme"Anonymous"
from the serverauthentication header received"NTLM"

thenread a lot of articles, buthave notfound a solution
changed thesettings in the rsrepotserver.config and in app.configbut to no avail

please help me. thanks