【說明】
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 "Please use command : 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 命令並不能直接獲取到管理員許可權,而只是在程式需要管理員許可權時自動彈出請求視窗,然後我們手動允許其以管理員許可權執行。
如果有辦法獲取到 “使用者帳戶控制” 視窗的控制代碼,或者將焦點移動到 “使用者賬戶控制” 視窗,就可以直接自動獲取到管理員許可權。
写评论
很抱歉,必須登入網站才能發佈留言。