先說一下怎么樣進入hosts文件，Windows環境（我用的是一個32位的Win7）下hosts文件在計算機中的位置，在目錄%windir%\System32\drivers\etc\，文件名為hosts，沒有擴展名。不過相比每次都要點很多目錄才能找到hosts文件，我們可以通過執行下面這個bat腳本直接用記事本打開hosts文件：
|
1
2
3
4
5
6
7
|
@echo off if "%1" == "h" goto begin mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit :begin notepad %SystemRoot%/System32/drivers/etc/hostsexit |
將這個bat腳本取名為host.bat，放在C:\Windows\System32下，就可以實現在命令行里或是Win7的開始菜單中直接輸入host命令打開hosts文件了。
言歸正傳，下面我來說下如何自動向hosts文件后面插入記錄。
下面這個bat腳本，可以滿足最簡單的hosts配置，即在hosts文件的最后追加一條記錄：
|
1
2
3
4
5
6
|
@attrib -r "%windir%\System32\drivers\etc\hosts"@echo ###### Host配置 START >>"%windir%\System32\drivers\etc\hosts" @echo 127.0.0.1 www.tsybius2014.com >>"%windir%\System32\drivers\etc\hosts"@echo 127.0.0.1 www.tsybius2014.net >>"%windir%\System32\drivers\etc\hosts"@echo ###### Host配置 END >>"%windir%\System32\drivers\etc\hosts" ::@attrib +r "%windir%\System32\drivers\etc\hosts" |
配置效果如下：
這個方法非常簡單，但是使用這個方法也存在缺點，即存在映射記錄可能被反復配置的情況。
因此我又試著寫了下面這個可以自動配置指定網址hosts的VBS腳本HostHelper.vbs，代碼如下：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' HostHelper Hosts文件配置工具' 作者：Tsybius2014' 時間：2015年10月20日' 描述：HostHelper 是一個Host文件配置工具，輸入為Host文件地址、IP地址、域名'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''強制顯式聲明模塊中的所有變量Option Explicit'讀取參數Dim strHostAddr 'Host文件地址Dim strIpAddr 'IP地址Dim strName '主機名Dim strOper '操作類型 cover：寫入 append：追加If WScript.Arguments.Count <> 4 Then WScript.Echo "參數錯誤" WScript.QuitElse '讀入參數 strHostAddr = WScript.Arguments(0) '參數1：Host文件地址 strIpAddr = WScript.Arguments(1) '參數2：IP地址 strName = WScript.Arguments(2) '參數3：主機名 strOper = WScript.Arguments(3) '參數4：寫入策略 cover：覆蓋 append：追加 '覆蓋：排他性加入 '追加：在文件末尾添加IP地址與主機名對應關系 '判斷寫入策略 Dim strOperName If strOper = "cover" Then strOperName = "覆蓋" ElseIf strOper = "append" Then strOperName = "追加" Else WScript.Echo "非法的寫入策略！" WScript.Quit End If '展示輸入信息 WScript.Echo "Host文件地址：" & strHostAddr WScript.Echo "IP地址：" & strIpAddr WScript.Echo "主機名：" & strName WScript.Echo "寫入策略：" & strOperName WScript.Echo ""End IfDim FSOSet FSO = CreateObject("Scripting.FileSystemObject")Const ForReading = 1, ForWriting = 2, ForAppending = 8'遍歷Host文件，判斷是否已有指定的Host值Dim fileSet file = FSO.OpenTextFile(strHostAddr)Dim strLineDim bHostAlreadyExistbHostAlreadyExist = FalseDo While file.AtEndOfStream <> True strLine = LTrim(file.ReadLine) If Not Left(strLine, 1) = "#" Then Dim Array Array = Split(strLine, " ", -1, 1) If UBound(Array) >= 1 Then 'IP一樣且域名一樣，則認為要配置的Host已存在 If Array(0) = strIpAddr And Array(1) = strName Then bHostAlreadyExist = True Exit Do End If Else End If 'WScript.Echo strLine Else End IfLoopfile.CloseIf bHostAlreadyExist Then WScript.Echo "您要配置的Host已存在！" WScript.QuitEnd If'將IP地址與域名的對應關系寫入到HostIf strOper = "cover" Then '寫入策略：覆蓋 Dim fileRead Set fileRead = FSO.OpenTextFile(strHostAddr) Dim strContent strContent = fileRead.ReadAll() fileRead.Close Dim ArrayLine ArrayLine = Split(strContent, vbCrlf, -1, 1) Dim i Dim strArrayEachLine For i = 0 To UBound(ArrayLine) ArrayLine(i) = Trim(ArrayLine(i)) If Not Left(ArrayLine(i), 1) = "#" Then strArrayEachLine = Split(ArrayLine(i), " ", -1, 1) If UBound(strArrayEachLine) >= 1 Then If strArrayEachLine(1) = strName Then ArrayLine(i) = "#" & ArrayLine(i) End If End If End If Next strContent = Join(ArrayLine, vbCrlf) strContent = strContent & vbCrlf & strIpAddr & " " & strName Dim fileCover Set fileCover = FSO.OpenTextFile(strHostAddr, ForWriting, False) fileCover.Write strContent fileCover.Close WScript.Echo "覆蓋完畢" ElseIf strOper = "append" Then '寫入策略：追加 Dim fileAppend Set fileAppend = FSO.OpenTextFile(strHostAddr, ForAppending, False) fileAppend.WriteLine fileAppend.WriteLine strIpAddr & " " & strName WScript.Echo "追加完畢" fileAppend.CloseEnd If |
這個VBS腳本的功能，是傳入hosts文件地址、IP地址、主機名，并指定寫入策略（包括覆蓋、追加），執行該腳本后會自動配置hosts文件。
為了更好地運行這個VBS腳本，我寫了一個bat批處理命令行來執行它，代碼如下：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
@echo Tsybius 2015/10/20set hostIPAddr=127.0.0.1set hostName=www.tsybius2014.comset vbsAddr=HostHelper.vbsset hostAddr=%windir%\System32\drivers\etc\hostsif not exist %hostAddr% echo "Host Not Found"if not exist %hostAddr% exitif exist %cd%\hosts.bak del %cd%\hosts.bakcopy %hostAddr% %cd%\hosts.bak@attrib -r %hostAddr%cscript %vbsaddr% %hostAddr% hostIPAddr hostName append::@attrib +r %hostAddr%@pause |
這個腳本試圖向hosts文件的最后追加一條記錄，域名為www.tsybius2014.com，IP為127.0.0.1，寫入策略為追加，并且在寫入前先對hosts文件進行了備份。
這個腳本的執行效果如下：
進入hosts文件，可以看到映射已被寫入在hosts.txt的最后
說明：由于本文中的代碼只進行了簡單的測試，因此部分代碼可能存在健壯性不夠的問題，實際使用時應謹慎使用。
原文鏈接：https://my.oschina.net/Tsybius2014/blog/527780
