[Elven]

Не лучшая практика запускать батник самим собой и и заставлять его удалять себя собой же. Это значит раз.
И еще этот батник (или батники?) здорово смахивает на нарушающий пункт 3.18 правил. Это значит два.

[BKPB]

Не лучшая практика запускать батник самим собой и и заставлять его удалять себя собой же. Это значит раз. »

Запуск батника самим себя с помощью .vbs описан на многих форумах "Запуск скрипта с повышенными привилегиями [руководство]", и сколько я им пользовался проблем не было, может они и бывают не знаю, но в моей ситуации другого способа запустить .bat скрыто и от Админа я не нашёл. А уж удалять самого себя, так этих вариантов вообще много и разных.

И еще этот батник (или батники?) здорово смахивает на нарушающий пункт 3.18 правил. Это значит два. »

Не знаю, что вы конкретно имели ввиду.
Перемещение файла настроек программы prefs.xml в папку в которой они и должны находиться?
Внесение изменений в hosts?

Если объединить эти файлы невозможно, то скажите почему?
Я в этом не разбираюсь, а если просто скопировать код из одного в другой, то происходит циклический запуск-остановка .cmd окна, при запуске его из Program Files. Если запускать его с Рабочего стола, то он запускается нормально.

[BKPB]

Тема закрыта.
Решил задачу сам.
Если кому будет интересно, вот что получилось:

Скрытый текст

Код:

@Echo Off
:: Создаём временный файл скрипта .vbs, который запустит батник от имени Администратора
ver |>NUL find /v "5." && if "%~1"=="" (
  Echo CreateObject^("Shell.Application"^).ShellExecute WScript.Arguments^(0^),"1","","runas",1 >"%~dp0Elevating.vbs"
  cscript.exe //nologo "%~dp0Elevating.vbs" "%~f0"& goto :eof
)
 
 
:: Перемещаем файл настроек в папку с настройками программы
if not exist "%AppData%\Geek Uninstaller\*.*" (md "%AppData%\Geek Uninstaller")
move "prefs.xml" "%AppData%\Geek Uninstaller\prefs.xml"
:: Удаляем временный скрипт .vbs
del /f /q "%systemdrive%\Program Files\Geek Uninstaller\Elevating.vbs"

:: Вносим изменения в hosts
cls
	Set "File=hosts."
	Set "Folder=%windir%\system32\drivers\etc"

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

	Set "@Add001=127.0.0.1 geekuninstaller.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="
:: Батник сам себя удаляет
del "%~f0"

Батник создавался для запуска в папке Program Files, по команде Setup из SFX инсталлятора WinRar.