%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
2021年1月9日补充
如果遇到有文件夹名称有空格的情况下，可以将 %~s0 改为 ""%~s0"" 以支持路径中有空格后无法正确执行的问题。
也就是 %1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c ""%~s0"" ::","","runas",1)(window.close)&&exit