Nas.
Tengo un problema para poder acceder a un servicio PHP desde VBSCript en el cliente: al intentar descargar un fichero con el código:
Código:
Dim URL, parm, strHost
URL = "xxxxxxxxxx.bibliotheka.org/bajar.php"
parm = "nro=1776125"
strHost = "xxx.bibliotheka.org"
Dim oXMLHTTP
Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHTTP.Open "POST", URL, False
oXMLHTTP.setRequestHeader "Content-type", "text/html; charset=iso-8859-1"
oXMLHTTP.setRequestHeader "Content-Transfer-Encoding", "8bit"
oXMLHTTP.setRequestHeader "Content-length", Len(parm)
oXMLHTTP.setRequestHeader "Connection", "close"
oXMLHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022)"
oXMLHTTP.setRequestHeader "Pragma", "no-cache"
oXMLHTTP.setRequestHeader "Cache-Control","no-cache"
oXMLHTTP.setRequestHeader "Host", strHost
oXMLHTTP.setRequestHeader "Location", strHost
oXMLHTTP.setRequestHeader "Referrer", strHost
oXMLHTTP.send parm
Do Until oXMLHTTP.readyState = 4
WScript.sleep 100
Loop
If oXMLHTTP.Status = 200 Then
strRespuesta = oXMLHTTP.responseText
Else
strRespuesta = ""
End If
Set oXMLHTTP = Nothing
Siempre obtengo un error en la respuesta: obtengo el texto "Error 0 <hr>", cuando lo que quiero es obtener el contenido que se descarga si descargo el fichero (xxxxxxxxxx.bibliotheka.org/bajar.php?nro=1776125) con cualquier navegador, Flashget, etc.
El servicio PHP redirecciona la dirección anterior a otro servidor.
¿Alguien me puede ayudar a encontrar el problema? Thanks.
(xxx y xxxxxxxxxx son lo que deben ser, claro; ej'ke soy nuevo)