很多情况我们写的代码在开启UAC后由于权限不够而执行不了。这里可以加上以下代码即可提升权限。
Set args=WScript.Arguments
If 0=args.Count Then Set args=Nothing:WScript.Quit
cmds=args.Item(0)
For i=1 To args.Count-1
para=para & args.Item(i) &" "
Next
WScript.CreateObject("Shell.application").shellexecute cmds, para,"","runas",1
WScript.Quit