VBScript中运行PowerShell命令：第三行代码未执行，如何解决？

问题根源 #

你原来的脚本中，第二行objShell.run("powershell.exe ""Add-MpPreference...""")是启动普通权限的PowerShell进程，和第一行提权打开的PowerShell进程完全独立，因此无法执行需要管理员权限的Add-MpPreference命令。

正确的整合方案 #

需要把Add-MpPreference命令直接放到提权的PowerShell进程中执行，同时通过参数控制窗口不显示或自动关闭。以下是修正后的VBScript代码：

Set objShell = CreateObject("Wscript.shell")
' 提权启动PowerShell并执行排除路径命令，同时隐藏窗口
objShell.Run "powershell.exe -Command ""Start-Process PowerShell -Verb RunAs -ArgumentList '-Command ""Add-MpPreference -ExclusionPath ''C:\Windows\Test1\Sub1'',''C:\Test2''; exit""' -WindowStyle Hidden""", 0, True

代码说明 #

• 提权逻辑：通过Start-Process -Verb RunAs启动管理员权限的PowerShell进程，所有命令都在这个提权进程内执行。
• 窗口控制：添加-WindowStyle Hidden参数让PowerShell窗口完全隐藏，不会显示在桌面。
• 引号转义：
  • VBScript中用""表示单个双引号；
  • PowerShell内部的单引号用''转义，避免和外层引号冲突；
  • 最后加上exit确保命令执行完成后自动关闭提权的PowerShell进程。
• 等待执行完成：objShell.Run的第三个参数设为True，会等待提权命令执行完成后再继续（如果不需要等待可以设为False）。

简化版本（直接执行提权命令） #

如果不需要额外嵌套PowerShell，也可以直接用以下方式（同样隐藏窗口）：

Set objShell = CreateObject("Wscript.shell")
objShell.Run "powershell.exe -Command ""Start-Process powershell.exe -Verb RunAs -ArgumentList '-NoProfile -WindowStyle Hidden -Command ""Add-MpPreference -ExclusionPath ''C:\Windows\Test1\Sub1'',''C:\Test2''""'""", 0, True

内容的提问来源于stack exchange，提问作者Michael Soremekun