再也不需要右键点管理员运行了，直接在.bat程序的@echo off后粘贴：

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