以管理員身份在宏中運行 Powershell 命令（高級）

Question

我寫了一些在宏中運行的代碼。 代碼以某種方式運行 Powershell 命令（即 calc.exe），所以具體來說，我想以管理員身份運行該命令（提升）？ 有人能幫我嗎？

這是代碼

Sub Auto_Open()
        o
End Sub

Sub AutoOpen()
        o
End Sub

Sub Document_Open()
        o
End Sub

Public Function o() As Variant
        Dim fSfv As String
        fSfv = "powershell calc.exe"
        Const HIDDEN_WINDOW = 0
        strComputer = "."
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
        Set objStartup = objWMIService.Get("Win32_ProcessStartup")
        Set objConfig = objStartup.SpawnInstance_
        objConfig.ShowWindow = HIDDEN_WINDOW
        Set objProcess = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
        objProcess.Create fSfv, Null, objConfig, intProcessID
End Function

Answer 1

fSfv = "powershell -command Start-Process -Verb RunAs calc.exe"

在 PowerShell 中運行提升的命令需要使用帶有參數-Verb RunAs的Start-Process cmdlet 。

此外，考慮在-command之前插入-NoProfile以抑制（此處不必要）加載 PowerShell 的配置文件。