单台计算机执行PowerShell脚本StdOut为空，其他正常的问题排查

针对你遇到的问题——VBA调用PowerShell脚本获取公网IP时，一台机器正常另一台StdOut为空，但直接运行PowerShell命令正常，以下是具体原因分析和解决方案：

可能的原因及对应解决办法 #

1. PowerShell执行策略限制 #

部分机器的PowerShell默认执行策略为Restricted（不允许运行任何脚本），虽然手动打开PowerShell时可能临时调整过策略，但VBA调用的是默认执行上下文，会受到策略限制导致脚本无法执行，进而StdOut为空。

• 验证方式：在目标机器打开PowerShell，执行Get-ExecutionPolicy查看当前策略。
• 解决办法：修改VBA中的命令，添加执行策略绕过参数：

  cmd = "Powershell -ExecutionPolicy Bypass -file ""c:\working\access\all county\scripts\IpInfo.ps1"""
  

2. 脚本路径的空格或权限问题 #

你的脚本路径包含空格（all county），虽然添加了引号，但部分环境下WScript.Shell可能对带空格的路径解析异常；另外，运行VBA的用户可能没有该路径的文件读取权限，导致脚本无法加载。

• 验证方式：将脚本移至无空格的路径（如c:\scripts\IpInfo.ps1），修改VBA中的路径后测试；或检查目标机器上该路径的文件权限，确保当前用户有读取权限。
• 解决办法：优先使用无空格路径，或确保路径权限配置正确。

3. PowerShell输出格式与VBA读取不兼容 #

Invoke-RestMethod默认返回PSObject对象，直接通过WScript.Shell调用时，StdOut可能无法正确捕获对象的格式化输出（而直接在PowerShell控制台运行时，会自动格式化为文本），导致读取为空。

• 解决办法：修改PowerShell脚本直接输出IP字符串，简化VBA解析：

  # IpInfo.ps1 修改为以下内容
  (Invoke-RestMethod -Uri 'https://ipinfo.io/').ip
  

  对应的VBA代码可简化为直接读取结果：

  Result = Trim(WExec.StdOut.ReadAll)
  IPGet = Result
  

4. 异步执行的延迟问题 #

WScript.Shell的exec方法是异步执行，若网络请求较慢，ReadAll可能在脚本未完成执行时就读取，导致获取空内容。

• 解决办法：添加等待循环，确保脚本执行完成后再读取输出：

  Set WExec = Wsh.exec(cmd)
  '等待执行结束
  Do While WExec.Status = 0
      DoEvents '释放CPU资源，避免假死
  Loop
  Result = WExec.StdOut.ReadAll
  

5. 代理或网络上下文差异 #

目标机器可能存在代理设置，手动运行PowerShell时使用了用户配置的代理，但VBA调用WScript.Shell时采用系统级上下文，无法访问代理或没有网络权限，导致请求失败无输出。

• 验证方式：在目标机器以管理员身份打开PowerShell，运行脚本查看是否正常；或检查IE的代理设置（WScript.Shell会继承IE代理配置）。
• 解决办法：确保VBA运行上下文有网络访问权限，或在PowerShell脚本中指定代理（若需要）：

  Invoke-RestMethod -Uri 'https://ipinfo.io/' -Proxy 'http://proxyserver:port'
  

优化后的完整VBA示例 #

为减少问题点，可直接在VBA中执行PowerShell命令而非调用外部脚本：

Function IPGet() As String
    Dim Wsh As Object, WExec As Object
    Dim Result As String, cmd As String
    Dim ErrMsg As String
    
    cmd = "Powershell -ExecutionPolicy Bypass -Command ""(Invoke-RestMethod 'https://ipinfo.io/').ip"""
    Set Wsh = CreateObject("WScript.Shell")
    Set WExec = Wsh.exec(cmd)
    
    '等待执行完成
    Do While WExec.Status = 0
        DoEvents
    Loop
    
    '读取输出和错误信息
    Result = Trim(WExec.StdOut.ReadAll)
    ErrMsg = Trim(WExec.StdErr.ReadAll)
    
    If ErrMsg <> "" Then
        IPGet = "执行错误: " & ErrMsg
    ElseIf Result <> "" Then
        IPGet = Result
    Else
        IPGet = "未获取到IP"
    End If
End Function

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