批处理获取管理员权限各种写法

lintrainwy

你觉得哪种写法更好？

1. @ECHO OFF
   
2. setlocal ENABLEDELAYEDEXPANSION
   
3. mode con: cols=65 lines=25
   
4. color 0a
   
5. 
   
6. :-------------------------------------  
   
7. echo 检查管理员权限
   
8. >NUL 2>&1 REG.exe query "HKU\S-1-5-19" || (
   
9.     ECHO SET UAC = CreateObject^("Shell.Application"^) > "%TEMP%\Getadmin.vbs"
   
10.     ECHO UAC.ShellExecute "%~f0", "%1", "", "runas", 1 >> "%TEMP%\Getadmin.vbs"
    
11.     CSCRIPT //Nologo "%TEMP%\Getadmin.vbs"& DEL /f /q "%TEMP%\Getadmin.vbs" 2>NUL& Exit)
    
12. pushd "%CD%"&& CD /D "%~dp0"
    
13. :-------------------------------------  
    
14. echo 检查 管理员权限...
    
15. >NUL 2>&1 REG.exe query "HKU\S-1-5-19" || (
    
16.     echo CreateObject^("Shell.Application"^).ShellExecute "%~f0", "%1", "", "runas", 1 > "%TEMP%\AdminRun.vbs"
    
17.     echo CreateObject^("Scripting.filesystemobject"^).DeleteFile ^(WScript.ScriptFullName^) >> "%TEMP%\AdminRun.vbs"
    
18.     CSCRIPT //Nologo "%TEMP%\Getadmin.vbs"& DEL /f /q "%TEMP%\Getadmin.vbs" 2>NUL& Exit)
    
19. pushd "%CD%"&& CD /D "%~dp0"
    
20. :--------------------------------------
    
21. echo 检查管理员权限
    
22. >nul 2>&1 %Windir%\System32\FLTMC.exe || (
    
23.     ECHO SET UAC = CreateObject^("Shell.Application"^) > "%TEMP%\Getadmin.vbs"
    
24.     ECHO UAC.ShellExecute "%~f0", "%1", "", "runas", 1 >> "%TEMP%\Getadmin.vbs"
    
25.     CSCRIPT //Nologo "%TEMP%\Getadmin.vbs"& DEL /f /q "%TEMP%\Getadmin.vbs" 2>NUL& Exit)
    
26. pushd "%CD%"&& CD /D "%~dp0"
    
27. :-------------------------------------
    
28. echo 检查 管理员权限...
    
29. >nul 2>&1 dir "%WinDir%\system32\config" || (
    
30.         set vbs=Set UAC ^= CreateObject(""Shell.Application""):^
    
31.         UAC.ShellExecute ""%~0"", """", """", ""runas"", 1:window.close
    
32.         mshta VBScript:Execute("%vbs%")&& exit)
    
33. pushd "%CD%"&& CD /D "%~dp0"
    
34. :-------------------------------------
    
35. echo 检查 管理员权限...
    
36. >nul 2>&1 dir "%WinDir%\system32\config" || (
    
37. mshta VBScript:CreateObject("Shell.Application").ShellExecute("%~s0","goto :gotAdmin","","runas",1)(window.close)&& exit)
    
38. pushd "%CD%"&& CD /D "%~dp0"
    
39. :-------------------------------------
    
40. echo 检查 管理员权限...
    
41. %1 mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&& exit
    
42. pushd "%CD%"&& CD /D "%~dp0"
    
43. :-------------------------------------
    
44. echo 检查 管理员权限...
    
45. %1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&& exit
    
46. pushd "%CD%"&& CD /D "%~dp0"
    
47. :-------------------------------------
    
48. 
    
49. ::以下为你的批处理内容
    
50. 
    
51. pause

复制代码

dytechnology

不明觉厉

wuhuayu

楼主会vbs吗

lintrainwy

你觉得哪种写法更好？