通过vbs获取远程host文件并保存到指定目录
更新时间：2014年12月17日 23:04:59 投稿：mdxy-dxy
最近需要访问google联盟后台，但经常无法访问，看到有网友提供了一份vbs版本的获取host并保存到指定目录的代码，特分享下
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
复制代码 代码如下:
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
经测试，由于网络问题，可能获取会超时，建议大家多运行几次。或加入脚本可执行时间。
相关文章
VBS教程：运算符-运算符优先级...2006-11-11
VBS可以做什么的简单说明...2007-11-11
VBS教程：属性-TotalSize 属性...2006-11-11
VBS教程：属性-Files 属性...2006-11-11
1、如何确定打开的新窗口的URL 2、如何使新窗口不弹出而是在原来页面中显示2008-05-05
来自微软脚本专家的可以查看系统中安装了，哪些补丁的vbs脚本2008-04-04
这篇文章主要介绍了使用VBS浏览本地文件的3种方式，获取完整路径,需要的朋友可以参考下2019-12-12
VBS教程：属性-Item 属性...2006-11-11
VBS教程：方法-Execute 方法...2006-11-11
从一个VBS脚本学习一点点东西...2006-09-09
最新评论