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