您好,登錄后才能下訂單哦!
今天就跟大家聊聊有關(guān)如何使用VBS實(shí)現(xiàn)Hosts文件一鍵配置實(shí)現(xiàn)代碼,可能很多人都不太了解,為了讓大家更加了解,小編給大家總結(jié)了以下內(nèi)容,希望大家根據(jù)這篇文章可以有所收獲。
先說(shuō)一下怎么樣進(jìn)入hosts文件,Windows環(huán)境(我用的是一個(gè)32位的Win7)下hosts文件在計(jì)算機(jī)中的位置,在目錄%windir%\System32\drivers\etc\,文件名為hosts,沒有擴(kuò)展名。不過(guò)相比每次都要點(diǎn)很多目錄才能找到hosts文件,我們可以通過(guò)執(zhí)行下面這個(gè)bat腳本直接用記事本打開hosts文件:
@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
將這個(gè)bat腳本取名為host.bat,放在C:\Windows\System32下,就可以實(shí)現(xiàn)在命令行里或是Win7的開始菜單中直接輸入host命令打開hosts文件了。
言歸正傳,下面我來(lái)說(shuō)下如何自動(dòng)向hosts文件后面插入記錄。
下面這個(gè)bat腳本,可以滿足最簡(jiǎn)單的hosts配置,即在hosts文件的最后追加一條記錄:
@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"
配置效果如下:
這個(gè)方法非常簡(jiǎn)單,但是使用這個(gè)方法也存在缺點(diǎn),即存在映射記錄可能被反復(fù)配置的情況。
因此我又試著寫了下面這個(gè)可以自動(dòng)配置指定網(wǎng)址hosts的VBS腳本HostHelper.vbs,代碼如下:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' HostHelper Hosts文件配置工具' 作者:Tsybius2014' 時(shí)間:2015年10月20日' 描述:HostHelper 是一個(gè)Host文件配置工具,輸入為Host文件地址、IP地址、域名'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''強(qiáng)制顯式聲明模塊中的所有變量Option Explicit'讀取參數(shù)Dim strHostAddr 'Host文件地址Dim strIpAddr 'IP地址Dim strName '主機(jī)名Dim strOper '操作類型 cover:寫入 append:追加If WScript.Arguments.Count <> 4 Then WScript.Echo "參數(shù)錯(cuò)誤" WScript.QuitElse '讀入?yún)?shù) strHostAddr = WScript.Arguments(0) '參數(shù)1:Host文件地址 strIpAddr = WScript.Arguments(1) '參數(shù)2:IP地址 strName = WScript.Arguments(2) '參數(shù)3:主機(jī)名 strOper = WScript.Arguments(3) '參數(shù)4:寫入策略 cover:覆蓋 append:追加 '覆蓋:排他性加入 '追加:在文件末尾添加IP地址與主機(jī)名對(duì)應(yīng)關(guān)系 '判斷寫入策略 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 "主機(jī)名:" & 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一樣且域名一樣,則認(rèn)為要配置的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地址與域名的對(duì)應(yīng)關(guān)系寫入到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
這個(gè)VBS腳本的功能,是傳入hosts文件地址、IP地址、主機(jī)名,并指定寫入策略(包括覆蓋、追加),執(zhí)行該腳本后會(huì)自動(dòng)配置hosts文件。
為了更好地運(yùn)行這個(gè)VBS腳本,我寫了一個(gè)bat批處理命令行來(lái)執(zhí)行它,代碼如下:
@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
這個(gè)腳本試圖向hosts文件的最后追加一條記錄,域名為www.tsybius2014.com,IP為127.0.0.1,寫入策略為追加,并且在寫入前先對(duì)hosts文件進(jìn)行了備份。
這個(gè)腳本的執(zhí)行效果如下:
進(jìn)入hosts文件,可以看到映射已被寫入在hosts.txt的最后
說(shuō)明:由于本文中的代碼只進(jìn)行了簡(jiǎn)單的測(cè)試,因此部分代碼可能存在健壯性不夠的問題,實(shí)際使用時(shí)應(yīng)謹(jǐn)慎使用。
看完上述內(nèi)容,你們對(duì)如何使用VBS實(shí)現(xiàn)Hosts文件一鍵配置實(shí)現(xiàn)代碼有進(jìn)一步的了解嗎?如果還想了解更多知識(shí)或者相關(guān)內(nèi)容,請(qǐng)關(guān)注億速云行業(yè)資訊頻道,感謝大家的支持。
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。