vbs を通じてリモート ホスト ファイルを取得し、指定されたディレクトリに保存します。

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 を介してリモート ホスト ファイルを取得し、指定したディレクトリに保存することに関するその他の関連記事については、PHP 中国語 Web サイトに注目してください。