Shulou(Shulou.com)06/03 Report--

Today to talk to you about how to use VBS to achieve Hosts file one-click configuration implementation code, many people may not understand, in order to make you better understand, Xiaobian summarized the following content, I hope you can get something according to this article.

First talk about how to enter the hosts file, the location of the hosts file on your computer in the Windows environment (I am using a 32-bit Win7), in the directory% windir%\ System32\ drivers\ etc\, the file name is hosts, and there is no extension. However, instead of clicking a lot of directories to find the hosts file each time, we can open the hosts file directly with notepad by executing the following bat script:

@ 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

Name the bat script host.bat, put it under C:\ Windows\ System32, and you can type the host command directly into the command line or in the Win7 start menu to open the hosts file.

Back to the point, let me tell you how to automatically insert a record into the back of a hosts file.

The following bat script satisfies the simplest hosts configuration by appending a record to the end of the hosts file:

@ attrib-r "% windir%\ System32\ drivers\ etc\ hosts" @ echo # Host configuration 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 configuration END > > "% windir% \ System32\ drivers\ etc\ hosts ": @ attrib + r"% windir%\ System32\ drivers\ etc\ hosts "

The configuration effect is as follows:

This method is very simple, but there are drawbacks to using this method, that is, mapping records may be configured repeatedly.

So I tried to write the following VBS script HostHelper.vbs, which automatically configures the specified URL hosts, with the following code:

HostHelper Hosts File configuration tool author: Tsybius2014' time: October 20, 2015 description: HostHelper is a Host file configuration tool Enter as Host file address, IP address, Domain name 'forces all variables in the module to be explicitly declared Option Explicit' read parameter Dim strHostAddr' Host file address Dim strIpAddr'IP Address Dim strName 'hostname Dim strOper' operation type cover: write append: append If WScript.Arguments.Count 4 Then WScript.Echo "parameter error" WScript.QuitElse 'read parameter strHostAddr = WScript.Arguments (0)' parameter 1:Host file address strIpAddr = WScript.Arguments (1) 'parameter 2:IP address strName = WScript.Arguments (2)' parameter 3: hostname strOper = WScript.Arguments (3) 'parameter 4: write policy cover : overwrite append: append 'overwrite: exclusive add' append: add the correspondence between IP address and hostname at the end of the file 'determine the writing policy Dim strOperName If strOper = "cover" Then strOperName = "overwrite" ElseIf strOper = "append" Then strOperName = "append" Else WScript.Echo "illegal write policy!" WScript.Quit End If 'display input information WScript.Echo "Host file address:" & strHostAddr WScript.Echo "IP address:" & strIpAddr WScript.Echo "hostname:" & strName WScript.Echo "write policy: & strOperName WScript.Echo"End IfDim FSOSet FSO = CreateObject (" Scripting.FileSystemObject ") Const ForReading = 1, ForWriting = 2, ForAppending = 8' traversing Host files Determine whether the specified host value 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 is the same and the domain name is the same. It is considered that the Host to be configured already exists 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 "the Host you want to configure already exists!" WScript.QuitEnd If 'write the correspondence between IP address and domain name to HostIf strOper = "cover" Then' write policy: override 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" coverage completed "ElseIf strOper =" append "Then 'write policy: append Dim fileAppend Set fileAppend = FSO.OpenTextFile (strHostAddr, ForAppending) False) fileAppend.WriteLine fileAppend.WriteLine strIpAddr & "& strName WScript.Echo" append "fileAppend.CloseEnd If"

The function of this VBS script is to pass in the hosts file address, IP address, hostname, and specify the write policy (including overwriting, appending). After the execution of the script, the hosts file will be automatically configured.

To run the VBS script better, I wrote a bat batch command line to execute it, with the following code:

@ 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% cd%\ hosts.bak del% cd%\ hosts.bakcopy% hostAddr%% cd%\ hosts.bak@attrib-r% hostAddr%cscript% vbsaddr%% hostAddr% hostIPAddr hostName append::@attrib + r% hostAddr%@pause

This script attempts to append a record to the last part of the hosts file with the domain name www.tsybius2014.com,IP 127.0.0.1, the write policy is appended, and the hosts file is backed up before writing.

The execution effect of this script is as follows:

Enter the hosts file and you can see that the mapping has been written at the end of the hosts.txt

Note: because the code in this article is only tested simply, some of the code may not be robust enough and should be used with caution.

After reading the above, do you have any further understanding of how to use VBS to implement one-click configuration of Hosts files? If you want to know more knowledge or related content, please follow the industry information channel, thank you for your support.

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.