'sudo'不是內部或外部命令，，，，的解決辦法

本文轉載自查看原文 2017-12-28 15:07 1960 摘自一程山水一程歌

【說明】

Windows系統從 Vista 版本開始加入了 UAC 機制，這導致沒有足夠權限的程序無法獲取到一些關鍵資源。在 Linux 下我們可以使用 sudo 命令方便地提升當前程序的執行權限，但在 Windows 中卻通常只能右鍵單擊程序圖標，再選擇 “以管理員身份運行”。這種必須使用鼠標點擊的方式很不方便，尤其在我們希望自動化執行一些任務時更是顯得礙手礙腳。

我們可以自己寫一個運行在 Windows 系統的 sudo 命令工具。

【源碼】

'ShellExecute 方法
'作用: 用於運行一個程序或腳本。
'語法
' .ShellExecute "application", "parameters", "dir", "verb", window
' .ShellExecute 'some program.exe', '"some parameters with spaces"', , "runas", 1
'關鍵字
' application 要運行的程序或腳本名稱
' parameters 運行程序或腳本所需的參數
' dir 工作路徑，若未指定則使用當前路徑
' verb 要執行的動作 (值可以是 runas/open/edit/print)
' runas 動作通常用於提升權限
' window 程序或腳本執行時的窗口樣式 (normal=1, hide=0, 2=Min, 3=max, 4=restore, 5=current, 7=min/inactive, 10=default)
Set UAC = CreateObject("Shell.Application")
Set Shell = CreateObject("WScript.Shell")
If WScript.Arguments.count<1 Then
WScript.echo "語法: sudo <command> [args]"
ElseIf WScript.Arguments.count=1 Then
UAC.ShellExecute WScript.arguments(0), "", "", "runas", 1
' WScript.Sleep 1500
' Dim ret
' ret = Shell.Appactivate("用戶賬戶控制")
' If ret = true Then
' Shell.sendkeys "%y"
' Else
' WScript.echo "自動獲取管理員權限失敗，請手動確認。"
' End If
Else
Dim ucCount
Dim args
args = NULL
For ucCount=1 To (WScript.Arguments.count-1) Step 1
args = args & " " & WScript.Arguments(ucCount)
Next
UAC.ShellExecute WScript.arguments(0), args, "", "runas", 5
End If

【效果】

新建一個文本文件，將上面代碼復制粘貼到文件中，並重命名文本文件為 sudo.vbs （注意后綴改成了 .vbs）。將 sudo.vbs 所在路徑添加到環境變量 PATH 中，這樣我們就可以在任意路徑下使用 sudo 命令獲取管理員權限了。

使用時我們可以在命令行輸入

sudo <command> [args...]

效果如圖1、圖2、圖3 所示：

圖1

圖2

圖3

【注意事項】

這個 sudo 命令並不能直接獲取到管理員權限，而只是在程序需要管理員權限時自動彈出請求窗口，然后我們手動允許其以管理員權限運行。

如果有辦法獲取到 “用戶帳戶控制” 窗口的句柄，或者將焦點移動到 “用戶賬戶控制” 窗口，就可以直接自動獲取到管理員權限。

免責聲明！

本站轉載的文章為個人學習借鑒使用，本站對版權不負任何法律責任。如果侵犯了您的隱私權益，請聯系本站郵箱yoyou2525@163.com刪除。