• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    通过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文件域址内容
    上一篇:vbs实现unicode和ascii编码转换
    下一篇:vbs脚本实现修改DNS和清空IE临时文件功能
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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