VBScripts and UAC elevation(visa以後的系統)
阿新 • • 發佈:2017-05-21
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以後的系統)