[megaloman]

BKPB, Подозреваю, что эта тема решалась на портале сто раз. Изначально подозревал, что малыми правками дело не ограничится.

Вот мой вариант. От Вашего взял два аттриба. Вставить можно много строк. Скрипт изведёт дублирующиеся строки, если они есть и не комментарии. Увы, съест пустые строки. Возможно, скрипт заткнётся, если встретятся по тексту спецсимволы.
Процедуру :GrantAccess и её вызов Call :GrantAccess hosts вставьте самостоятельно

Код:

@Echo Off
cls
	Set "File=hosts."
	Set "Folder=%windir%\system32\drivers\etc"

	Pushd "%Folder%"||(Pause &Exit /B 2)

	Set "@Add001=127.0.0.1 geekuninstaller.com"
	Set "@Add002=127.0.0.1 live.com"
	Set "@Add003=127.0.0.1 "тра ля ля live.com""

	Attrib -R -S -H "%File%"
	
	Set /A NOld=1000
	FOR /F "usebackq delims=" %%s IN ("%File%") DO (Set /A NOld+=1 &Call Set "@Old%%NOld%%=%%s")
	FOR /F "usebackq tokens=1* delims==" %%i IN (`2^>nul Set "@Add"`) DO (Set /A NOld+=1 &Call Set "@Old%%NOld%%=%%j")
	FOR /F "usebackq tokens=1* delims==" %%i IN (`2^>nul Set "@Old"`) DO (Set "SS=%%j" &Call Set "@%%i=%%SS: =%%")

	>"%File%" (FOR /L %%i IN (1001,1,%NOld%) DO Call :Anal %%i)
        attrib +R "%File%"
	Popd
GoTo :Eof

:Anal
	Call Set "A=%%@@Old%1%%"
	If /I "%A%"=="" Exit /B 1
	If "%A:~0,1%"=="#" (Call Echo %%@Old%1%%&Exit /B 0)
	(Call Echo %%@Old%1%%)
	FOR /F "usebackq tokens=1* delims==" %%i IN (`2^>nul Set "@@Old"`) DO If /I "%%j"=="%A%" Call Set "%%i="
Exit /B 0

[BKPB]

megaloman, спасибо, но я ничего в этом не понимаю.
Что это, для чего и как вставить:

Процедуру :GrantAccess и её вызов Call :GrantAccess hosts вставьте самостоятельно »

[BKPB]

В итоге получилось.
Скрипт:
1. снимает защиту
2. вносит изменения
3. возвращает защиту
4. не дублирует адреса
5. вносит адрес как положено с новой строки

P.S Ошибок никаких не заметил. Меня полностью устраивает, то чего и хотел.

Спасибо megaloman.