RunAsAdminVbs

:: Created by FreeBooter
@Echo Off
Title Dost-Tech.com
Cd %systemroot%\system32
Call :IsAdmin




:_Start
Cls & Mode CON  LINES=11 COLS=85 & Color 0D &Title Created By FreeBooter
Echo.
Echo       ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
Echo       º Type (A) to Add Run as administrator context menu item to VBS files     º
Echo       ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
Echo.
Echo.
Echo       ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
Echo       º Type (R) to Remove Run as administrator context menu item to VBS files  º
Echo       ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ


Echo.
Set /p input= RESPONSE:
If /i  Not %input%==R (Goto :_Ex) Else (Goto :_Remove)

:_Ex
If /i  Not %input%==A  (Goto :_Start) Else (Goto :_Add)


:: Add Run as administrator context menu item to VBS files
:_Add
Reg Add HKEY_CLASSES_ROOT\VBSFile\shell\runas\command /ve /t REG_SZ /d "C:\Windows\System32\WScript.exe \"%%1\" %%*"  /f



Cls & Mode CON  LINES=5 COLS=48 & Color 0E
 Echo.
 Echo.
 Echo                     FINNISH

Ping -n 5  localhost > Nul
Exit




:: Remove Run as administrator context menu item to VBS files
:_Remove
Reg Delete "HKEY_CLASSES_ROOT\VBSFile\shell\runas" /f

Cls & Mode CON  LINES=5 COLS=48 & Color 0E
 Echo.
 Echo.
 Echo                     FINNISH

Ping -n 5  localhost > Nul
Exit




:IsAdmin
Reg query "HKU\S-1-5-19\Environment"
If Not %ERRORLEVEL% EQU 0 (
 Cls & Mode CON  LINES=5 COLS=48 & Color 0C & Title - WARNING -
 Echo.
 Echo.
 Echo  YOU MUST HAVE ADMINISTRATOR RIGHTS TO CONTINUE
 Pause > Nul & Exit
)
Cls
goto:eof