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

時間 2019-11-21

標籤 sudo 不是內部外部命令解決辦法简体版

原文原文鏈接

【說明】app

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

咱們能夠本身寫一個運行在 Windows 系統的 sudo 命令工具。工具

【源碼】post

'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