VBScripts and UAC elevation（visa以後的系統）

這兩天因為工作需要，在寫一些vbs的指令碼，才知道，vbs不能像其他可執行檔一樣，在 需要提升存取權限時，彈出UAC視窗，那麼，如何通過UAC提升vbs指令碼的存取權限呢？

查了一些資料，將結果整理一下：

第一種：

If WScript.Arguments.length =0 Then  Set objShell = CreateObject("Shell.Application")  'Pass a bogus argument with leading blank space, say [ uac]  objShell.ShellExecute "wscript.exe", Chr(34) & _  WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1Else  'Add your code hereEnd If

第二種：

Set objShell = CreateObject("Shell.Application")Set FSO = CreateObject("Scripting.FileSystemObject")strPath = FSO.GetParentFolderName (WScript.ScriptFullName)If FSO.FileExists(strPath & "\MAIN.VBS") Then     objShell.ShellExecute "wscript.exe", _         Chr(34) & strPath & "\MAIN.VBS" & Chr(34), "", "runas", 1Else     MsgBox "Script file MAIN.VBS not found"End If 

第三種：

'Checks if the script is running elevated (UAC)function isElevated      Set shell = CreateObject("WScript.Shell")      Set whoami = shell.Exec("whoami /groups")      Set whoamiOutput = whoami.StdOut      strWhoamiOutput = whoamiOutput.ReadAll       If InStr(1, strWhoamiOutput, "S-1-16-12288", vbTextCompare) Then        isElevated = True      Else        isElevated = False      End Ifend function'Re-runs the process prompting for priv elevation on re-runsub uacPrompt    'Check if we need to run in C or W script  interpreter = "wscript.exe"  If Instr(1, WScript.FullName, "CScript", vbTextCompare) = 0 Then    interpreter = "wscript.exe"  else    interpreter = "cscript.exe"  end if  'Start a new instance with an elevation prompt first  Set shellApp = CreateObject("Shell.Application")  shellApp.ShellExecute interpreter, Chr(34) & WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1  'End the non-elevated instance  WScript.Quitend sub'Make sure we are running elevated, prompt if notif not isElevated Then uacPrompt'Add your code hereMsgBox "hello world"

參考地址：

http://www.winhelponline.com/articles/185/1/VBScripts-and-UAC-elevation.html

http://www.kellestine.com/self-elevate-vbscript/