@echo off
CLS
ECHO.
ECHO =============================
ECHO Running Admin shell
ECHO =============================

:init
setlocal DisableDelayedExpansion
set "batchPath=%~0"
for %%k in (%0) do set batchName=%%~nk
set "vbsGetPrivileges=%temp%\OEgetPriv_%batchName%.vbs"
setlocal EnableDelayedExpansion

:checkPrivileges
NET FILE 1>NUL 2>NUL
if '%errorlevel%' == '0' ( goto gotPrivileges ) else ( goto getPrivileges )

:getPrivileges
if '%1'=='ELEV' (echo ELEV & shift /1 & goto gotPrivileges)
ECHO.
ECHO **************************************
ECHO Invoking UAC for Privilege Escalation
ECHO **************************************

ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"
ECHO args = "ELEV " >> "%vbsGetPrivileges%"
ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"
ECHO args = args ^& strArg ^& " "  >> "%vbsGetPrivileges%"
ECHO Next >> "%vbsGetPrivileges%"
ECHO UAC.ShellExecute "!batchPath!", args, "", "runas", 1 >> "%vbsGetPrivileges%"
"%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*
exit /B

:gotPrivileges
setlocal & pushd .
cd /d %~dp0
if '%1'=='ELEV' (del "%vbsGetPrivileges%" 1>nul 2>nul  &  shift /1)

chcp 850 >nul &pushd "%~dp0"
@set "0=%~f0" 
pushd "%programfiles%\Winrar\"
powershell -nop -c $f=[IO.File]::ReadAllText($env:0)-split':bat2file\:.*';iex($f[1]); X(1);
popd
pause
exit/b

:bat2file: Compressed2TXT v6.5
$k='.,;{-}[+](/)_|^=?O123456789ABCDeFGHyIdJKLMoN0PQRSTYUWXVZabcfghijklmnpqrstuvwxz!@#$&~E<*`%\>'; Add-Type -Ty @'
using System.IO;public class BAT91{public static void Dec(ref string[] f,int x,string fo,string key){unchecked{int n=0,c=255,q=0
,v=91,z=f[x].Length; byte[]b91=new byte[256]; while(c>0) b91[c--]=91; while(c<91) b91[key[c]]=(byte)c++; using (FileStream o=new
FileStream(fo,FileMode.Create)){for(int i=0;i!=z;i++){c=b91[f[x][i]]; if(c==91)continue; if(v==91){v=c;}else{v+=c*91;q|=v<<n;if(
(v&8191)>88){n+=13;}else{n+=14;}v=91;do{o.WriteByte((byte)q);q>>=8;n-=8;}while(n>7);}}if(v!=91)o.WriteByte((byte)(q|v<<n));} }}}
'@; cd -Lit($env:__CD__); function X([int]$x=1){[BAT91]::Dec([ref]$f,$x+1,$x,$k); expand -R $x -F:* .; del $x -force}

:bat2file:[ rarreg_key
::AVEYO...qGc.......N=........z;].F...7aj...s...?./;\nC.........!Vy+B9?._]/3hW}tidLs}>1#?^^HkkEhU5>1;.`!^.#?..Yd;>/F~9/cK*~a,1R%YT5-
::h_b$ig^sNn@m[3LPR%`t!0;>..%aG.@,y.,VR8b8o8g7v_]3\)dfPS7IrE{SQy6Y8$z?w0q*f.-.......-.\\9`yEJZf*gTTY4%s#?O>M>r})!]Ew^UcwcM=L](umZpEb
::a<d/,Km~`%dm;I&]xN<D*tQ~@C]AyTjY.wRpK@^mlC2KJgTGzjz8a]$(n%,p}yleX,W4gDd^~jJ3C#y?_sJ-6Z(_9V~;>+l8~vz6hZ%aOEgHB-(((8zn?n9_FZ1l|*VA7#
::]!?n<f&m}T]Q-w`_~Be14Op6H?_e4hEf4NGxxlVQL$FMlaHa9mtCe`{k]#w>ee{B$mR;?duidF{Cs}KiXc+DjMWSru~,v,)AZ3973&Yb7(p2Ihq~//x`%f.f-{,\n\>(jV
::_w\g\036Ha1/EI%WDj=us^3ea)4AMKzl@qDJ{,2wSJ}0@)bX+
:bat2file:]