Hola a tod@s, tengo un problema al que no encuentro solución. Os explico el proceso: hago una llamada a un webservice para descargar el contenido de un archivo pdf. A continuación creo un archivo nuevo y le meto ese contenido. Si lo hago en modo unicode, no hay problema, se crea y se rellena perfectamente peeeero, al ser un archivo firmado digitalmente se invalida la firma.
Por lo que he averiguado, el archivo se debe crear en formato ASCII para que esto no pase pero se me presenta un nuevo problema. Si creo un archivo en este formato y escribo cualquier cosa, va bien; sin embargo, si intento escribir el contenido que he descargado me da un error. Os adjunto el código y el error, a ver si a alguien se le ocurre como solucionarlo.
Código:
Código PHP:
<%
Set objWinHttp4 = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
objWinHttp4.Open "GET", "http://www.dominio.com/aplicacion/v1/docs/260.pdf"
objWinHttp4.setRequestHeader "Content-type", "application/pdf"
objWinHttp4.SetCredentials "usuario","password",HTTPREQUEST_SETCREDENTIALS_FOR_PROXY
objWinHttp4.Send
texto = objWinHttp4.responsebody
nombre = "260.pdf"
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.openastextstream(Server.MapPath("./pruebas/"&nombre),2,true,-2)
f.write(texto) ---> LINEA DEL ERROR
f.Close
set f=Nothing
set fs=Nothing
%>
Error
Cita: Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument
/serviciosonline/informeslab/prueba2.asp, línea 18