VBA执行PS脚本获取返回值

sj15627581616

1. Sub PowerShell()
   
2.     Dim Shell_Script As New WshShell
   
3.     Set Shell_Script = CreateObject("WScript.Shell")
   
4.     Script_Path = "C:\Users\Administrator\Desktop\目标脚本.ps1"
   
5.     Set A = Shell_Script.Exec("powershell.exe -ExecutionPolicy ByPass -File " & Script_Path)
   
6.     ss = A.StdOut.ReadAll()
   
7.     Debug.Print ss
   
8. End Sub

复制代码

VBA中无法正常获取执行脚本返回的结果，必须手动关闭PowerShell控制台才能返回StdOut.ReadAll，网上找了一遍，基本都是在ps脚本写输出文件，然后读取输出文件，不考虑这个方案的话，是否还有其他可行方案？

wodewan

游乐缘

1. Public Function PS_GetOutput(ByVal sPSCmd As String) As String
   
2.     'Setup the powershell command properly
   
3.     sPSCmd = "powershell -command " & sPSCmd & "|clip"
   
4.     'Execute the command which is being pushed to  the clipboard
   
5.     CreateObject("WScript.Shell").Run sPSCmd, 0, True
   
6.     'Get an instance of the clipboard to capture the save value
   
7.     With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
8.         .GetFromClipboard
   
9.         PS_GetOutput = .GetText(1)
   
10.     End With
    
11. End Function

复制代码

sj15627581616

wodewan 发表于 2023-1-6 14:39

难道是系统差异或者策略差异？

sj15627581616

游乐缘 发表于 2023-1-6 16:03

将结果写入剪切板，这个思路不错

sj15627581616

aaaaaaa1111 发表于 2024-1-24 13:59
你这些帖子，基本上人家帮你回答了之后我就没看到一个感谢，难怪别人看你回复了之后，没有一个人回复你的 ...

不会吧，不会吧，居然有人不知道这个论坛表达感谢的方式是什么都不知道吧