vbs以管理员身份运行程序并具有优先级

我编辑了解决您的权限问题的答案，该脚本现在自我提升以管理员身份运行，更多信息位于：

如何自动提升Vbscript以管理员身份运行它？

。在我的机器上完美地测试和工作。

    
      If WScript.Arguments.length = 0 Then
  Set objShell = CreateObject(“Shell.Application”)
   ‘Pass a bogus argument, say [ uac]
  objShell.ShellExecute “wscript.exe”, Chr(34) & _
    WScript.ScriptFullName & Chr(34) & “ uac”, “”, “runas”, 1
Else
Set objShell= CreateObject("Shell.Application")
strComputer = "."
Const HIGH_PRIORITY = 128
processName = "notepad.exe"   ' The process name of your app
appName = "C:\Windows\System32\notepad.exe" ' The app you want to run
objShell.ShellExecute appName, , , "runas", 1
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = '" & processName & "'")
For Each p in colProcesses  
    p.SetPriority(HIGH_PRIORITY)
Next
End If
</code>