Aplicacion VB WebRequest Error servidor 401 No autorizado

[Roy-FELL]

Buenas, estoy haciendo una aplicación para windows donde consumo un xml de prestashop (http://localhost/prestashop/api/order_histories), me conecta pero me sale el error de 

--No se controló System.Net.WebException

--HResult=-2146233079

--Message=Error en el servidor remoto: (401) No autorizado.

 

cuando me va a mostrar o dar la respuesta y mostrarme el estado en este código y se para y me sale ese error

        'Obtener la respuesta.

        Dim response As WebResponse = webRequest1.GetResponse()

        'Muentra el status.

        Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)

 

Sabe alguno si es problema el mi código o suponéis que es la configuración de mi servidor.

 

 

El código completo es este, haber si alguien lo soluciona y me dice la respuesta.

 

Dim webRequest1 As WebRequest = WebRequest.Create("http://localhost/prestashop/api/order_histories?schema=blank")

        'Establecer la propiedad Longitud contenido del Conjunto WebRequest la propiedad de tipo de contenido de la WebRequest.

        webRequest1.ContentType = "application/x-www-form-urlencoded;charset=utf-8"

        webRequest1.Method = CRUDMethod.Create

        'Dim ahora As String = Date.Now.ToShortDateString & " " & Date.Now.ToShortTimeString & ":00"

        Dim postData As String = "<?xml version='1.0' encoding='UTF-8'?>" & _

                                "<prestashop xmlns:xlink='http://www.w3.org/1999/xlink'>" & _

                                "<order_history>" & _

                                "<id>8</id>" & _

                                "<id_order_state>" & idEstado & "></id_order_state>" & _

                                "<id_order>" & idOrder & "></id_order>" & _

                                "<id_employee>" & 1 & "></id_employee>" & _

                                "</order_history></prestashop>"

        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)

        'Establecer la propiedad Longitud contenido de la WebRequest.

        webRequest1.ContentLength = byteArray.Length

        'Obtener el flujo de petición.

        Dim dataStream As Stream = webRequest1.GetRequestStream()

        ' Escribir los datos en el flujo de petición.

        dataStream.Write(byteArray, 0, byteArray.Length)

        'Close the Stream object.

        dataStream.Close()

        'Obtener la respuesta.

        Dim response As WebResponse = webRequest1.GetResponse()

        'Muentra el status.

        Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)

        'Get the stream containing content returned by the server.

        dataStream = response.GetResponseStream()

        'Open the stream using a StreamReader for easy access.

        Dim reader As New StreamReader(dataStream)

        'Read the content.

        Dim responseFromServer As String = reader.ReadToEnd()

        'Display the content.

        Console.WriteLine(responseFromServer)

        'Clean up the streams.

        reader.Close()

        dataStream.Close()

        response.Close()