1. 程式人生 > >VBScripts and UAC elevation(visa以後的系統)

VBScripts and UAC elevation(visa以後的系統)

href you lln folder ext not prompt lex article

這兩天由於工作須要。在寫一些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", 1
Else
  ‘Add your code here
End 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", 1
Else
     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 If
end function

‘Re-runs the process prompting for priv elevation on re-run
sub 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.Quit
end sub

‘Make sure we are running elevated, prompt if not
if not isElevated Then uacPrompt

‘Add your code here
MsgBox "hello world"


UAC的效果圖:

技術分享

參考地址:

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

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




VBScripts and UAC elevation(visa以後的系統)