Un reto interesante . VBS

mihe
30 de Diciembre del 2004
buenas a todos, es la primera vez que entro en este foro, tengo una duda de VBS la cual no consigo resolver, a ver si algun experto en la materia me puede echar una mano.

Es muy sencillo, es un script que contacta con una pagina, se descarga un XML y lo muestra en pantalla.

El problema, muy sencillo, que los acentos y las ees no aparecen. He visto algo de codigo por internet en php y cosas asi, pero no consigo hacer que chute en VBS.

Este es el codigo:

strURL="http://setiathome2.ssl.berkeley.edu/fcgi-bin/fcgi?cmd=team_lookup_xml&name=Sondas%20Espaciales"
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Call objHTTP.Open("GET", strURL, FALSE)
objHTTP.setRequestHeader "Accept-Language","sp"
objHTTP.setRequestHeader "Pragma","no-cache"
objHTTP.setRequestHeader "Content-Type","text/html; charset=iso-8859-1"
wscript.echo(objHTTP.responsetext)

He buscado en un monton de sitios, pero en ingles no hay nada de info porque a ellos los acentos se la sudan jajaajaj, y en espaol hay mu poco !!..


Gracias a todos por adelantado !!!!!

mihe
30 de Diciembre del 2004
Perdon !!! el codigo esta incompleto, el bueno es este:

strURL="http://setiathome2.ssl.berkeley.edu/fcgi-bin/fcgi?cmd=team_lookup_xml&name=Sondas%20Espaciales"
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Call objHTTP.Open("GET", strURL, FALSE)
objHTTP.setRequestHeader "Accept-Language","sp"
objHTTP.setRequestHeader "Pragma","no-cache"
objHTTP.setRequestHeader "Content-Type","text/html; charset=iso-8859-1"
objHTTP.Send
wscript.echo(objHTTP.responsetext)




Se me olvidaba !!!!

si quieren probar si funciona guardenlo con extensio .vbs y ejecutenlo.

Como se puede comprobar no tiene ningun tipo de peligro,

Gracias de nuevo