[cc lang=”vb”]
@ECHO OFF & CD /D %~DP0 & TITLE 正在提权,请不要禁用任务管理器
>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
)
TITLE succeed
[/cc]
注意,该方案来源于某个绿色脚本,在实际使用过程中如果出现闪屏的现象请确保你的注册表编辑器状态是允许的。
如果卡在闪屏阶段,请尝试强制结束 Windows 命令行管理器及 windows 脚本宿主。
附送一段自动设置桌面快捷方式。
[cc lang=”vb”]
CLS & ECHO.&ECHO 是否创建桌面快捷方式?
ECHO. & ECHO 是按任意键,否直接关闭窗口即可!&&PAUSE >NUL
mshta VBScript:Execute(“Set a=CreateObject(“”WScript.Shell””):Set b=a.CreateShortcut(a.SpecialFolders(“”Desktop””) & “”\admin.lnk””):b.TargetPath=””%~dp0admin.bat””:b.WorkingDirectory=””%~dp0″”:b.Save:close”)
CLS && ECHO. & ECHO 创建完成,任意键退出! &&PAUSE>NUL & EXIT
[/cc]