[安全相关] Bat权限控制运行支持三种运行方式

call:UserAccountControlPermissionsApply 参数控制
goto:主标签或调用
goto:eof
:UserAccountControlPermissionsApply 
rem:用户账户控制申请运行
cd/d "%~dp0"
if /i "%~1"=="0" echo,非管理员权限运行,包含管理员权限自动退出 字体:淡绿色&Color 0A
if /i "%~1"=="1" echo,保留管理员权限批处理运行,包含非管理员权限自动退出 字体:淡浅绿色&Color 0B
if /i not "%~1"=="0" if /i not "%~1"=="1" echo,保留管理员权限和非管理员权限同时运行.如果直接管理员运行无法调用普通权限自行创建计划任务 字体:黄色&&Color 0E
if /i "%~1"=="0" Reg.exe Query "HKU\S-1-5-20" >nul 2>nul&&exit
if /i not "%~1"=="0" if /i not "%~1"=="1" Reg.exe Query "HKU\S-1-5-20" >nul 2>nul&&goto:eof
if /i "%~1"=="1" Reg.exe Query "HKU\S-1-5-20" >nul 2>nul||"%systemroot%\system32\mshta.exe" vbscript:createobject("shell.application").shellexecute("""%cd%\%~nx0""",":UserAccountControlRequest",,"runas",1)(window.close)&&exit
if /i not "%~1"=="0" if /i not "%~1"=="1" Reg.exe Query "HKU\S-1-5-20" >nul 2>nul||"%systemroot%\system32\mshta.exe" vbscript:createobject("shell.application").shellexecute("""%cd%\%~nx0""",":UserAccountControlRequest",,"runas",1)(window.close)&&goto:eof
goto:eofCOPY

@Echo Off&Color 0e
SetLocal EnableDelayedExpansion
Reg.exe Query "HKU\S-1-5-20" >nul 2>nul||(
 >"%Temp%\TEMP.Bat" (
  Echo,@Echo Off^&Color 0e
  Echo,Reg.exe Query "HKU\S-1-5-20" ^>nul 2^>nul^|^|"%systemroot%\system32\mshta.exe" vbscript:createobject^("shell.application"^).shellexecute^("""%Temp%\Temp.Bat""","1",,"runas",1^)^(window.close^)^&^&exit
  Echo,Call "%~f0"
 )
)
Reg.exe Query "HKU\S-1-5-20" >nul 2>nul||start "" "%Temp%\TEMP.Bat"
Reg.exe Query "HKU\S-1-5-20" >nul 2>nul||exit
Reg.exe Query "HKU\S-1-5-20" >nul 2>nul&&echo,管理员主命令
pause
结尾处需要删除临时Bat
goto:eofCOPY

@Echo Off&Color 0e&SetLocal EnableDelayedExpansion&cd/d "%~dp0"
 set "[title][Name]=这里是批处理的名字自行更改,注:不包含扩展名
 for /f "delims=" %%i in ('"%SystemRoot%\System32\Subst.exe"')do for /f "tokens=1,* delims=\" %%d in ("%%i")do for /f "tokens=1,* delims==<> " %%e in ("%%e")do if /i "%~d0"=="%%d" cd/d "%%~ff%~p0"
 if /i "%cd%\"=="%~dp0" (echo,非虚拟磁盘:%cd%)else (echo,虚拟磁盘已切换至:%cd%)
 >nul Reg.exe Query "HKU\S-1-5-20"||"%systemroot%\System32\Mshta.exe" VbsCript:Createobject("Shell.Application").ShellExeCute("""%~f0""","%[Title][Name]%",,"Runas",1)(Window.Close)&&Exit
 if /i not "%~f0"=="%~dp0%[title][Name]%%~x0" ren "%~f0" "%[title][Name]%%~x0"
 Reg.exe Query "HKU\S-1-5-20" >nul 2>nul&&echo,True&&title %[title][Name]% 这里换行call:这里调用后边的任何标签   这里换行论坛有问题不显示换行  goto:eofCOPY