通过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实现防止计算机使用 LMHosts 文件
• Windows Script Host之用vbs实现[浏览文件夹]功能
• 使用vbs删除host文件域址内容

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！