通过vbs获取远程host文件并保存到指定目录
更新时间：2014年12月17日 23:04:59 投稿：mdxy-dxy
最近需要访问google联盟后台，但经常无法访问，看到有网友提供了一份vbs版本的获取host并保存到指定目录的代码，特分享下
复制代码 代码如下:
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教程：函数-CSng 函数...2006-11-11
导入和导出本地或远程计算机上 Internet 信息服务 (IIS) 配置数据库的所有或选定元素，或者将整个 IIS 配置（配置数据库和架构）复制到另一台计算机以复制配置2014-07-07
Office Web Components是一组的COM控件，设计的目的是为众多的控件容器提供交互的电子表格建模，数据报表和数据可视化功能。2009-05-05
vbs XorEncode实现代码2008-12-12
这篇文章主要介绍了vbs中获得文件夹大小的代码,需要的朋友可以参考下2014-04-04
使用ADSI、ASP和一对魔术戏法自动地创立一个虚拟目录的方法
使用ADSI、ASP和一对魔术戏法自动地创立一个虚拟目录的方法...2007-03-03
这篇文章主要是分享了如果用vbs修改目录名与快捷方式名称的代码，需要的朋友可以参考下2013-07-07
使用 Iisext.vbs 列出 Web 服务扩展文件的方法
这篇文章主要介绍了如何使用 iisext.vbs 在本地或远程计算机上列出 Web 服务扩展文件,需要的朋友可以参考下2014-07-07
好玩的vbs特色代码...2007-03-03
比较迅速的获取硬件信息排序后的txt文件把后缀名改为csv就是表格了，精简、整理后输出打印就OK了。 如此详细的信息，给老板看，一定可以让老板对你另眼相看。 即使自己看，也能发现很多料想不到的的信息。2008-05-05
最新评论