通过vbs获取远程host文件并保存到指定目录
2018-10-12 14:10
791 查看
Sub download(url,target)
Const adTypeBinary = 1
Const adTypeText = 2
Const adSaveCreateOverWrite = 2
Dim http,ado
Set http = CreateObject("Msxml2.ServerXMLHTTP")
http.SetOption 2,13056
http.open "GET",url,False
http.send
Set ado = createobject("Adodb.Stream")
ado.Type = adTypeBinary
ado.Open
ado.Write http.responseBody
ado.SaveToFile target,adSaveCreateOverWrite
ado.Close
End Sub
Set WshShell=CreateObject("WScript.Shell")
WinDir =WshShell.ExpandEnvironmentStrings("%WinDir%")
HostsFile = WinDir & "\System32\Drivers\etc\Hosts_google"
Const hosts="https://raw.githubusercontent.com/vokins/simpleu/master/hosts"
download hosts,HostsFile
经测试,由于网络问题,可能获取会超时,建议大家多运行几次。或加入脚本可执行时间。
您可能感兴趣的文章:
相关文章推荐
- php带密码功能并下载远程文件保存本地指定目录 修改加强版
- VBS获取指定目录下最新文件拷贝然后以当前日期命名 推荐
- JSP实现远程文件下载保存到服务器指定目录中的方法
- 一个获取指定目录下一定格式的文件名称和文件修改时间并保存为文件的python脚本
- 通过文件选择框获取指定的目录路径
- JSP实现远程文件下载保存到服务器指定目录中的方法
- PowerShell获取指定目录下文件列表和大小并保存成txt文档
- php带密码功能并下载远程文件保存本地指定目录 修改加强版
- Windows API函数获取指定文件目录下文件路径(vc6.0通过)
- 一个获取指定目录下一定格式的文件名称和文件修改时间并保存为文件的python脚本
- centos6.4下定时通过ftp获取数据库服务器上的文件并且删除远程目录里面的文件
- Android之获取指定目录下的所有特殊文件名字
- 十七周四次课(11月30日) 20.31 expect脚本同步文件 20.32 expect脚本指定host和要同步的文件 20.33 构建文件分发系统 20.34 批量远程执行命令
- Linux下检测指定目录下的所有打开的文件(包括子目录)并按照原有的目录结构保存一个副本
- Java--获取指定目录下指定suffix的文件
- 获取指定目录下指定文件
- 获取指定目录下,指定扩展名的文件
- 获取指定目录下指定扩展名文件的绝对路径,存储到文本文件中
- 通过递归查询指定目录下的所有文件和子文件夹下的指定文件名
- ListView获取指定目录下的所有文件及文件夹