脚本之家,脚本语言编程技术及教程分享平台!
分类导航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服务器之家 - 脚本之家 - VBS - 通过vbs获取远程host文件并保存到指定目录

通过vbs获取远程host文件并保存到指定目录

2020-08-16 13:59VBS教程网 VBS

最近需要访问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

 

经测试,由于网络问题,可能获取会超时,建议大家多运行几次。或加入脚本可执行时间。

延伸 · 阅读

精彩推荐