批处理自动以管理员身份运行(获取管理员权限)

倒垃圾的歌者

方法一

1. @echo off&(pushd "%~dp0")&(cacls "%SystemDrive%\System Volume Information" >nul 2>&1)||(start "" mshta vbscript:CreateObject^("Shell.Application"^).ShellExecute^("%~snx0"," %*","","runas",1^)^(window.close^)&exit /b)

复制代码

方法二

1. @echo off&(pushd "%~DP0")&(REG QUERY "HKU\S-1-5-19">NUL 2>&1)||(powershell -Command "Start-Process '%~sdpnx0' -Verb RunAs"&&exit)

复制代码

方法三

1. @ECHO OFF & CD /D %~DP0 & color f0
   
2. >NUL 2>&1 reg.exe query "HKU\S-1-5-19" || (
   
3.     ECHO SET UAC = CreateObject^("Shell.Application"^) > "%TEMP%\Getadmin.vbs"
   
4.     ECHO UAC.ShellExecute "%~f0", "%1", "", "runas", 1 >> "%TEMP%\Getadmin.vbs"
   
5.     "%TEMP%\Getadmin.vbs"
   
6.     DEL /f /q "%TEMP%\Getadmin.vbs" 2>NUL
   
7.     Exit /b
   
8. )

复制代码

方法四

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

复制代码

方法五（结合PowerShell和VBScript）

1. @echo off & pushd "%~dp0"
   
2. 
   
3. REM 检查管理员权限
   
4. net session >nul 2>&1
   
5. if %errorlevel% equ 0 goto :ADMIN_PRIVILEGES
   
6. 
   
7. REM 智能提权：先尝试PowerShell，失败则用VBScript
   
8. where powershell >nul 2>&1 && (
   
9.     powershell -Command "Start-Process '%~sdpnx0' -Verb RunAs" >nul 2>&1
   
10. ) || (
    
11.     mshta vbscript:CreateObject("Shell.Application").ShellExecute("%~s0","","","runas",1)(window.close) >nul 2>&1
    
12. )
    
13. exit /b
    
14. 
    
15. :ADMIN_PRIVILEGES

复制代码

从效果上，前三个和第五个可能更好

倒垃圾的歌者

bilvnet 发表于 2025-5-12 09:11
哪个通用性更好？？

一