VBScripts and UAC elevation（visa以后的系统）

来源：互联网发布：java性能分析工具编辑：程序博客网时间：2024/06/05 03:47

这两天因为工作需要，在写一些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"

UAC的效果图:

参考地址：

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

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

0 0