标题 | 通过vbs获取远程host文件并保存到指定目录 |
内容 | 最近需要访问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 经测试,由于网络问题,可能获取会超时,建议大家多运行几次。或加入脚本可执行时间。 |
随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。