[Script] Bat para adicionar entradas no arquivo hosts das estações

[marceloleaes]

Segue código:

Código: Selecionar todos

@ECHO OFF



@SET REG_HOSTS_KEY=HKLM\SYSTEM\CurrentControlSet\services\Tcpip\Parameters

@SET REG_HOSTS_PARAM=DataBasePath

@SET HOSTS_PATH=%WINDIR%\System32\drivers\etc

@SET HOSTS_URL=192.168.100.5	aplicacao.dominio.local	aplicacao



@FOR /F "tokens=3" %%a IN ('REG QUERY "%REG_HOSTS_KEY%" /v %REG_HOSTS_PARAM%') DO IF "%%a"=="%REG_HOSTS_PARAM%" SET HOSTS_PATH=%%c

@ECHO Temporario...>> "%HOSTS_PATH%\hosts_tmp"

@IF EXIST "%HOSTS_PATH%\hosts_tmp" (IF EXIST "%HOSTS_PATH%\hosts_tmp" DEL "%HOSTS_PATH%\hosts_tmp" /F /Q

@IF EXIST "%HOSTS_PATH%\hosts" ATTRIB -R "%HOSTS_PATH%\hosts"

@CMD /c TYPE "%HOSTS_PATH%\hosts" | FINDSTR /I /V "%HOSTS_URL%"> "%HOSTS_PATH%\hosts_tmp"

@ECHO %HOSTS_URL%>> "%HOSTS_PATH%\hosts_tmp"

@IF EXIST "%HOSTS_PATH%\hosts" DEL "%HOSTS_PATH%\hosts" /F /Q

@REN "%HOSTS_PATH%\hosts_tmp" "hosts") ELSE (GOTO ERROR)



@CLS



@COLOR 06

@ECHO -----------------------------------------------

@ECHO Entrada adicionada com sucesso ao arquivo hosts

@ECHO -----------------------------------------------

@PING -n 3 127.0.0.1 > nul

@EXIT



:ERROR

@CLS

@COLOR 06

@ECHO ------------------------------------------

@ECHO Sem permissao para executar o procedimento

@ECHO ------------------------------------------

@PAUSE

Ou baixe o anexo. Bom proveito