Автоматически прописать путь к папке в переменную Path

@echo off
set Key=HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment
 
set FolderToAdd=%~dp0win2
 
For /f "tokens=2*" %%a In ('Reg.exe query "%key%" /v Path^|Find "Path"') do set CurPath=%%~b
reg.exe add "%Key%" /v Path /t REG_EXPAND_SZ /d "%CurPath%;%FolderToAdd%" /f

setx temp "%temp%"

Reg Add "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment" /v MyVar /t REG_SZ /d "MyValue" /f

@set @x=0; /*
@Echo off
VER |>NUL find "6." && if "%~1"=="" cscript.exe //nologo //e:jscript "%~f0"& exit /b
SetLocal EnableExtensions 
Color 17 
CD /D "%~dp0"
Set WinRAR=%ProgramFiles%\WinRAR&Set Zip=%ProgramFiles%\7-Zip& If "%PROCESSOR_ARCHITECTURE%"=="x86" If Not Defined PROCESSOR_ARCHITEW6432 Set WinRAR=%ProgramFiles(x86)%\WinRAR&Set Zip=%ProgramFiles(x86)%\7-Zip
 
:: Здесь добавляем или убираем, что хотим добавить в переменную Path.
echo MyDefault=%SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem;%SYSTEMROOT%\System32\WindowsPowerShell\v1.0\;C:\Program Files (x86)\ATI Technologies\ATI.ACE\Core-Static;C:\Program Files (x86)\Microsoft SQL Server\110\Tools\Binn\;C:\Program Files (x86)\Microsoft SQL Server\110\DTS\Binn\;%systemroot%\idmu\common>%temp%\temp.ini
::echo Default=%SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem;%SYSTEMROOT%\System32\WindowsPowerShell\v1.0\;%systemroot%\idmu\common>>%temp%\temp.ini
::echo Zip=%Zip%>>%temp%\temp.ini
::echo Utilities=%SystemDrive%\Utilities>>%temp%\temp.ini
::echo WinRAR=%WinRAR%>>%temp%\temp.ini
 
if exist "%temp%\temp.ini" (
for /f "tokens=* usebackq" %%i in (%temp%\temp.ini) do (
set "%%i"
call :addpath %%i
)) else (
echo.
echo Не найден файл с настройками...
)
echo %CurPath%>Log.txt
Pause >NUL
2>nul del %temp%\temp.ini
EndLocal
Exit /B
 
:: Для работы скрипта, убираем знак "::" перед 'reg add'
:addpath
if /i "%~1" == "" Exit /b
set Key=HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment
For /f "tokens=2*" %%a In ('"reg query "%key%" /v Path |Find "Path""') do set CurPath=%%~b
SetLocal EnableDelayedExpansion
if /i "%~1" equ "MyDefault" (set "path=!%~1!") else (set "path=%CurPath%;!%~1!")
IF /i "%~1" neq "Default" (set "path=%CurPath%;!%~1!") else (set "path=!%~1!")
::reg add "%Key%" /v "Path" /t REG_EXPAND_SZ /d "!path!" /f
echo !%~1!
echo.
echo !path!
EndLocal
exit /b 
 
 
*/new ActiveXObject('Shell.Application').ShellExecute (WScript.ScriptFullName,'Admin','','runas',1);

:addpath
if /i "%~1" == "" Exit /b
set var=%~1
set Key=HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment
For /f "tokens=2*" %%a In ('"reg query "%key%" /v Path |Find "Path""') do set CurPath=%%~b
SetLocal EnableDelayedExpansion
set path=%CurPath%;!%~1!
if /i "%var%" equ "MyDefault"  set path=!%~1!
if /i "%var%" equ "Default" set path=!%~1!
::reg add "%Key%" /v "Path" /t REG_EXPAND_SZ /d "!path!" /f
echo !%~1!
echo.
echo !path!
echo.
echo %var%
EndLocal
exit /b