关于远程SHELL文件的问题

Question

在网上找到一个远程下载文件的VB脚本如下:
set aso=.createobject("adodb.stream"):set web=createobject("microsoft.xmlhttp")
web.open "get",.arguments(0),0:web.send:if web.status^>200 then .echo "Error:"+web.status:.quit
aso.type=1:aso.open:aso.write web.responsebody:aso.savetofile .arguments(1),2:end with
为什么说如下错误呢?
(3, 79) Microsoft VBScript 编译器错误: 缺少语句

Answer 1

当然缺少了，有end with ,with哪里去了？！