none
Usando HTTP POST - error Invalid Credentials RRS feed

  • Pregunta

  • Buenas tardes, estoy teniendo problemas al tratar de conectarme a un WebService, el proveedor me da un acceso a un panel para registrar la ip desde voy ha hacer las pruebas, esta ya la registre, también me dieron un usuario y password, la plataforma bajo la cual trabaja el webservice es utilizando XML mediante métodos HTTP POST sobre SSL.

    He armado mi conexión, a la hora de conectarme al servidor el status me devuelve "OK", pero al querer ejecutar la consulta me sale el error "Invalid Credentials", esto a pesar de colocar el user y pasword que me habilitaron, ya me comunique con el proveedor y ellos me dicen que los datos estan bien que revise el código, por favor alguién puede ayudarme en este tema de la autenticación, de repente es configuraciòn o falta alguna propiedad o método en la lógica, les adjunto el ejemplo de la conexión, no coloque todo el esquema XML pues es bastante extenso.

            Dim oConsultaXML As String = ""
            oConsultaXML = "<?xml version='1.0' encoding='UTF-8'?>" & _
                        "<WS_ConsultaRQ> ... " & _
                        "</WS_ConsultaRQ>"
            Dim request As WebRequest = WebRequest.Create("https://proveedor.wstesting.com/ws3/")
            request.Method = "POST"
            request.Credentials = New NetworkCredential("userWS", "pwdWS", "https://proveedor.wstesting.com/ws3/")
            Dim byteArray As Byte() = Encoding.UTF8.GetBytes(oConsultaXML)
            request.ContentType = "text/xml charset=utf8"
            request.ContentLength = byteArray.Length

            Dim dataStream As Stream = request.GetRequestStream() ' Write the data to the request stream.
            dataStream.Write(byteArray, 0, byteArray.Length)
            dataStream.Flush()
            dataStream.Close()

            Dim response As WebResponse = request.GetResponse()
            MsgBox(CType(response, HttpWebResponse).StatusDescription)
            dataStream = response.GetResponseStream()
            Dim reader As New StreamReader(dataStream)
            Dim responseFromServer As String = reader.ReadToEnd()
            MsgBox(responseFromServer)
            reader.Close()
            dataStream.Close()
            response.Close()

    Gracias de antemano por la ayuda

    martes, 2 de octubre de 2012 17:21