Mensaje dentro de Foro VB.NET

Responder 
#1 - 03/10/2012 19:42:21 Reporta abuso | Link Permanente
rickgnr
Fecha de registro: 03/10/2012
0 post en este tema
1 post en foro vb.net
1 post en todos los foros
Usando HTTP POST - error Invalid Credentials

Responder Citar
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
Volver arriba