vbs提升权限

来源:互联网 发布:淘宝工作室如何分工 编辑:程序博客网 时间:2024/06/16 03:44

很多情况我们写的代码在开启UAC后由于权限不够而执行不了。这里可以加上以下代码即可提升权限。

Set args=WScript.ArgumentsIf 0=args.Count Then Set args=Nothing:WScript.Quitcmds=args.Item(0)For i=1 To args.Count-1para=para & args.Item(i) &" "NextWScript.CreateObject("Shell.application").shellexecute cmds, para,"","runas",1WScript.Quit