批处理修改hosts

Posted 2022-11-30 亮亮1990

需求：公司后台部署的内网地址。为了方便业务人员修改hosts。（多次执行不会重复添加）

添加修改多个：

:: Test of environment variable length
@echo off & setlocal EnableDelayedExpansion
REM 将要添加的域名都写在这里，用;号隔开
set strp=192.168.1.1 www.com;192.168.1.1 www3.com;192.168.1.4 www4.com
set hostsfile="%SystemRoot%\\system32\\drivers\\etc\\hosts"


:for
for /F "delims=; tokens=1,*" %%A in ("!strp!") do (


REM 取得第一个Host
set stHosts=%%A
REM echo A = !stHosts!


REM 取得剩余的Host
set strp=%%B
REM echo B = !strp!


REM 设置插入标记true false
set ins=true


FOR /F "eol=# tokens=1 usebackq delims=" %%i in (%hostsfile%) do if "!stHosts!"=="%%i" set ins=flase
if "!ins!"=="true" echo !stHosts!>> %hostsfile%


)


REM echo B-EOF: = !strp!
REM 判断变量是否为空，不为空就循环提前。 
if not "!strp!"=="" goto :for

@echo  ########################################
echo "右击“以管理员身份运行”"
echo "如杀毒软件提示，点击允许。【版本日期:2017年8月16日】"
@echo  ########################################


echo   "hosts文件修改完成"
@ipconfig /flushdns
@echo   "刷新DNS完成"
echo  按任意键退出
@echo
@pause > nul
@exit

添加修改单个：

@echo off 
set stHost1=192.168.0.2 www
FOR /F "eol=# tokens=1 delims=" %%i in (%SystemRoot%\\system32\\drivers\\etc\\hosts) do if "%stHost1%" equ "%%i" exit  
echo %stHost1%>> %SystemRoot%\\system32\\drivers\\etc\\hosts