Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://yoursite:8080/SharePoint/NewsTar/Antivirus/unlocker1.8.5.exe",0 '下载文件的地址
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "./unlocker1.8.5.exe",2 '保存文件的路径和文件名
保存为.vbs 执行下载
本文介绍了一个使用VBS脚本进行文件下载的例子。通过创建Microsoft.XMLHTTP对象发送GET请求并利用ADODB.Stream对象保存响应内容到本地。此过程展示了如何实现自动化的文件下载任务。
12

被折叠的 条评论
为什么被折叠?



