Accessing REST WebService in VB.NET

Question

I am trying to access a REST webservice, however my code doesn't work and keeps throwing a HTTP 401 error

see this example screen cap from Wireshark of the initial ssl request:

image link

This is from a Curl call to the same web address with the same details. The issue is that under my VB.NET version the "Extension: server_name" (and related) part of the SSL packet is missing, I believe that this is causing the server to not reply with the Server key exchange in the next couple packets.

Below is the VB.NET code

    Dim webRequest As HttpWebRequest = DirectCast(System.Net.WebRequest.Create(UrlString), HttpWebRequest)
    webRequest.Method = "GET"
    webRequest.ContentType = "application/x-www-form-urlencoded"

    webRequest.Credentials = New NetworkCredential(username, password)

    Dim response As HttpWebResponse = DirectCast(webRequest.GetResponse(), HttpWebResponse)

This fails on the last line (HTTP 401 error), issue does not seem to be related to my proxy and the user credentials are correct for the server as this request works from Curl and wget.

I have already tried setting the AuthenticationLevel as well as manually setting the Authorization header, and PreAuthenticate doesn't seem to change this issue either.

Answer 1

Use the following to create a system.net trace log for your application and see what it shows.

Answer 2

The answer was that the WebService was not replying with a valid HTTP401 WWW-Authenticate header, instead was just returning with code like:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Error>
    <ErrorCode>NO_SUITABLE_AUTHENTICATION_METHOD</ErrorCode>
    <ErrorDescription>No suitable active authentication mechanism found to authorise request - authorise using supported mechanisms</ErrorDescription>
    <RequestID>gcqsrtvn</RequestID>
    <SystemTime>2010-08-12T09:14:21.831+10:00</SystemTime>
</Error>

So I had to manually add the authentication header as shown here: http://devproj20.blogspot.com/2008/02/assigning-basic-authorization-http.html

code:

Dim authBytes() As Byte = System.Text.Encoding.UTF8.GetBytes(String.Format("{0}:{1}", username, password).ToCharArray())
webRequest.Headers("Authorization") = "Basic " + Convert.ToBase64String(authBytes)