Question

我正在编写将参数发送到 Powershell 脚本以创建 AD 帐户的 VBA 脚本。 Powershell 需要以管理员模式运行。下面是我如何调用脚本来运行。如果有人能帮我在管理员模式下运行应用程序，那就太棒了！！

strCommand = "Powershell.exe -ExecutionPolicy Unrestricted -file ""<FilePath>""<Parameters>"
Set WshShell = CreateObject("WScript.Shell")
Set WshShellExec = WshShell.Exec(strCommand)

Answer 1

假设当前目录中有一个名为 script.ps1 的文件，参数为 foo 和 bar（或者，删除下面的 $PWD 并指定完整的脚本文件路径）； -NoExit 将在运行脚本后创建的提升的控制台窗口保持打开状态：

strCommand = "powershell.exe -c Start-Process -Verb RunAs powershell.exe \"" -ExecutionPolicy Unrestricted -NoExit -f `\""$PWD\script.ps1`\"" foo bar \"""
Set WshShell = CreateObject("WScript.Shell")
Set WshShellExec = WshShell.Exec(strCommand)

注意需要调用 Windows PowerShell CLI、powershell.exe、两次、嵌套：

首先，为了能够使用 -Verb RunAs 运行 PowerShell 内部的 Start-Process cmdlet，以便创建一个 提升的（以管理员身份运行） ) 进程，它总是在 new 控制台窗口中运行。（请注意，WshShell.Exec() 本身异步运行并且不提供直接反馈。）
- 请注意，这将显示 UAC 安全对话框以确认创建提升进程的意图，并且此对话框设计只能以交互式响应。
其次，作为进程被提升以便调用被提升的目标脚本。
- 警告：提升的目标进程会将 C:\Windows\System32 视为其工作目录，而不是调用者的。要使用调用者的工作目录，您必须从基于 -file (-f) 的调用切换到基于 -command (-c) 的调用并执行Set-Location 语句，这也可以显着改变脚本传递参数的解释方式；见this answer。

这使引用复杂化，并且要求嵌套调用的 " 字符被视为 `\"（在 VBScript 字符串文字中表示为 `\""）外部调用的命令行，外部调用的 " 为 \"（VBScript 中的 \""）。

请参阅 this answer 以了解如何通过参数名称-值对字典算法构建这样一个用于许多参数（参数）的命令行。

在 VBA 中以管理员身份运行 Powershell 脚本

1 个答案: