通過vbs獲取遠(yuǎn)程host文件并保存到指定目錄
更新時(shí)間：2014年12月17日 23:04:59 投稿：mdxy-dxy
最近需要訪問google聯(lián)盟后臺(tái)，但經(jīng)常無法訪問，看到有網(wǎng)友提供了一份vbs版本的獲取host并保存到指定目錄的代碼，特分享下
復(fù)制代碼 代碼如下:
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
經(jīng)測(cè)試，由于網(wǎng)絡(luò)問題，可能獲取會(huì)超時(shí)，建議大家多運(yùn)行幾次。或加入腳本可執(zhí)行時(shí)間。
相關(guān)文章
用vbs實(shí)現(xiàn)選擇顏色的兩種方法，一種帶組件，一種不帶2008-08-08
VBS教程：正則表達(dá)式簡(jiǎn)介 -早期起源...2006-11-11
VBS教程：VBScript 基礎(chǔ)-VBScript 變量
VBScript只有一種數(shù)據(jù)類型 —— Variant，它是根據(jù)上下文來判斷是數(shù)字還是字符串。因?yàn)閂ariant是VBScript中唯一的數(shù)據(jù)類型，所以它也是VBScript中所有函數(shù)的返回值的數(shù)據(jù)類型2006-11-11
VBS數(shù)組在應(yīng)用中沒有像其他語(yǔ)句那么廣泛，VBS數(shù)組存在不少功能上的局限性（如二維數(shù)組的定義、賦值），在使用上也沒有java等語(yǔ)言那么便捷2018-05-05
非常具有破壞性，所以如果自己有服務(wù)器的，一定要把shell.application組件禁掉2008-06-06
電腦瀏覽器記住密碼功能好蛋疼~有時(shí)候不好用~~登錄CMCC-EDU的時(shí)候老是要輸入帳號(hào)。?？戳丝吹卿涰?yè)面的網(wǎng)頁(yè)源碼~~擼起個(gè)Vbs腳本~讀取配置文件，簡(jiǎn)單實(shí)現(xiàn)了自己登錄CMCC-EDU,把帳號(hào)存在同級(jí)目錄下就好,需要的朋友可以參考下2018-04-04
作者：瘋狗 終于在milw0rm找到了一個(gè)不錯(cuò)的shellcode，down&exec的，灰常好用！順手寫了一個(gè)C測(cè)試了下，結(jié)果是成功下載并執(zhí)行了"木馬"，muma.exe是我用delphi寫的一個(gè)簡(jiǎn)單的執(zhí)行測(cè)試程序，無毒無害。2008-04-04
VBS教程：函數(shù)-InStr 函數(shù)...2006-11-11
VBScript教程 第七課使用條件語(yǔ)句...2006-11-11
自動(dòng)刪除超過10天的文件及文件夾vbs，主要是針對(duì)一些沒有用的文件夾。2009-11-11