|
本帖最后由 倒垃圾的歌者 于 2025-9-30 15:02 编辑
方法一
- @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)
复制代码
方法二
- @echo off&(pushd "%~DP0")&(REG QUERY "HKU\S-1-5-19">NUL 2>&1)||(powershell -Command "Start-Process '%~sdpnx0' -Verb RunAs"&&exit)
复制代码
方法三
- @ECHO OFF & CD /D %~DP0 & color f0
- >NUL 2>&1 reg.exe query "HKU\S-1-5-19" || (
- ECHO SET UAC = CreateObject^("Shell.Application"^) > "%TEMP%\Getadmin.vbs"
- ECHO UAC.ShellExecute "%~f0", "%1", "", "runas", 1 >> "%TEMP%\Getadmin.vbs"
- "%TEMP%\Getadmin.vbs"
- DEL /f /q "%TEMP%\Getadmin.vbs" 2>NUL
- Exit /b
- )
复制代码
方法四
- %1 start "" mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
复制代码
方法五(结合PowerShell和VBScript)
- @echo off & pushd "%~dp0"
- REM 检查管理员权限
- net session >nul 2>&1
- if %errorlevel% equ 0 goto :ADMIN_PRIVILEGES
- REM 智能提权:先尝试PowerShell,失败则用VBScript
- where powershell >nul 2>&1 && (
- powershell -Command "Start-Process '%~sdpnx0' -Verb RunAs" >nul 2>&1
- ) || (
- mshta vbscript:CreateObject("Shell.Application").ShellExecute("%~s0","","","runas",1)(window.close) >nul 2>&1
- )
- exit /b
- :ADMIN_PRIVILEGES
复制代码
从效果上,前三个和第五个可能更好
|
评分
-
查看全部评分
|