@if exist "%SystemRoot%\SysWOW64" path %path%;%windir%\SysNative;%SystemRoot%\SysWOW64;%~dp0
@bcdedit >nul
@if '%errorlevel%' NEQ '0' (
goto UACPrompt
) else (
goto UACAdmin
)
:UACPrompt
@%1 start "" /B mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&goto :eof
@exit /B 0
:UACAdmin
@cd /d "%~dp0"
@pause