让bat脚本用管理员权限运行

第一个，WIN10亲测可以

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","c %~s0 ::","","runas",1)(window.close)&&exit

第二个，WIN10亲测可以

%1 %2 
ver|find "5.">nul&&goto :st 
mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :st","","runas",1)(window.close)&goto :eof 
:st 
copy "%~0" "%windir%\system32\"