@echo off break off title C:\Windows\system32\cmd.exe cls :cmd set /p cmd=C:\Enter Command: %cmd% echo. goto cmd
if "%~s0"=="%~s1" ( cd %~sp1 & shift ) else ( echo CreateObject^("Shell.Application"^).ShellExecute "%~s0","%~0 %*","","runas",1 >"%tmp%%~n0.vbs" & "%tmp%%~n0.vbs" & del /q "%tmp%%~n0.vbs" & goto :eof )
Set objShell = CreateObject(“Shell.Application”) Set objWshShell = WScript.CreateObject(“WScript.Shell”) Set objWshProcessEnv = objWshShell.Environment(“PROCESS”) objShell.ShellExecute “C:\Windows\system32\cmd.exe”, “/k”, “”, “runas”