hosts appender 2.0

  1 @echo off
  2 color 0a
  3 title hosts appender 2.0
  4 
  5 SETLOCAL ENABLEDELAYEDEXPANSION
  6 set /a RTN_VAL=0
  7 set ORIGIN_HOSTS=C:\Windows\system32\drivers\etc\hosts
  8 set FILE_HOSTS=hosts.tmp
  9 set FOLDER_HOSTS=hosts.tmp.1
 10 
 11 if not exist "%ORIGIN_HOSTS%" (
 12     echo Not exist hosts.
 13     goto NORMAL_EXIT
 14 )
 15 
 16 set /a RTN_VAL=0
 17 cd /d "%ORIGIN_HOSTS%" && set /a RTN_VAL=1
 18 if !RTN_VAL! equ 1 (
 19     echo Not a hosts file.
 20     goto NORMAL_EXIT
 21 )
 22 cls
 23 
 24 if "%TEMP%" neq "" (
 25     cd /d "%TEMP%"
 26     set /a RTN_VAL=0
 27     cd . > "%FILE_HOSTS%" || set /a RTN_VAL=1
 28     if !RTN_VAL! equ 1 (
 29         cls
 30         echo Can not access to "%FILE_HOSTS%".
 31         goto NORMAL_EXIT
 32     )
 33 ) else (
 34     echo Environment Variables - TEMP is empty.
 35     goto NORMAL_EXIT
 36 )
 37 
 38 :INPUT_COMMENTS
 39 set /p COMMENTS=Enter comments: 
 40 if "%COMMENTS%" equ "" (
 41     goto INPUT_COMMENTS
 42 )
 43 :INPUT_IP_ADDRESS
 44 set /p IP_ADDRESS=Enter IP address: 
 45 if "%IP_ADDRESS%" equ "" (
 46     goto INPUT_IP_ADDRESS
 47 )
 48 :INPUT_HOST_NAMES
 49 set /p HOST_NAMES=Enter host names: 
 50 if "%HOST_NAMES%" equ "" (
 51     goto INPUT_HOST_NAMES
 52 )
 53 
 54 >> "%FILE_HOSTS%" echo.
 55 >> "%FILE_HOSTS%" echo # %COMMENTS%
 56 >> "%FILE_HOSTS%" echo     %IP_ADDRESS%    %HOST_NAMES%
 57 
 58 cls
 59 echo Preview: 
 60 type "%FILE_HOSTS%"
 61 echo.
 62 
 63 choice /c "Yn" /cs /m "Do you want to append?"
 64 if %ERRORLEVEL% equ 1 (
 65     set /a RTN_VAL=0
 66     type "%FILE_HOSTS%" >> "%ORIGIN_HOSTS%" || set /a RTN_VAL=1
 67     if !RTN_VAL! equ 0 (
 68         echo Completed successfully.
 69         goto NORMAL_EXIT
 70     ) else (
 71         cls
 72         if exist "%FOLDER_HOSTS%" (
 73             rmdir /s /q "%FOLDER_HOSTS%"
 74         )
 75         mkdir "%FOLDER_HOSTS%"
 76         type "%ORIGIN_HOSTS%" > "%FOLDER_HOSTS%\hosts"
 77         type "%FILE_HOSTS%" >> "%FOLDER_HOSTS%\hosts"
 78 
 79         set ORIGIN_ATTR=
 80         for /f "tokens=*" %%I in ("%ORIGIN_HOSTS%") do (
 81             set ORIGIN_ATTR=%%~aI
 82         )
 83         if "!ORIGIN_ATTR!" neq "" (
 84             set /a RTN_VAL=0
 85             for /f "tokens=1* delims=-" %%m in ("!ORIGIN_ATTR!") do (
 86                 set ORIGIN_ATTR=%%m
 87                 set /a RTN_VAL=1
 88             )
 89             if !RTN_VAL! equ 0 (
 90                 set ORIGIN_ATTR=
 91             )
 92         ) else (
 93             echo Can not obtain file attributes.
 94             goto NORMAL_EXIT
 95         )
 96         attrib -r -a -s -h -i "%FOLDER_HOSTS%\hosts"
 97         set SURPLUS=!ORIGIN_ATTR!
 98         set STR_ATTR=
 99         :PROCESS_ATTR
100         for /f "tokens=*" %%m in ("!SURPLUS!") do (
101             set STR_ATTR=!STR_ATTR!+!SURPLUS:~0,1! 
102             set SURPLUS=!SURPLUS:~1!
103         )
104         if "!SURPLUS!" neq "" (
105             goto PROCESS_ATTR
106         )
107         if "!STR_ATTR!" neq "" (
108             rem No ‘I‘.
109             attrib !STR_ATTR!"%FOLDER_HOSTS%\hosts"
110         )
111 
112         set /a RTN_VAL=0
113         xcopy /y /q /h /r /k "%FOLDER_HOSTS%\hosts" "%ORIGIN_HOSTS%" || set /a RTN_VAL=1
114         if !RTN_VAL! equ 0 (
115             cls
116             echo Completed successfully.
117             goto NORMAL_EXIT
118         ) else (
119             echo Failed.
120             goto NORMAL_EXIT
121         )
122     )
123 )
124 echo. Goodbye.
125 
126 :NORMAL_EXIT
127 pause
128 exit