将参数传递给PowerShell

Question

I am using following Sub to pass arguments to Powershell.

     Sub testpower()
      Set WshShell = CreateObject("WScript.Shell")
      WshShell.Run ("Powershell.exe -file .\test.ps1 -path ""Shell.txt"" ")
     End Sub

But,the output is not generated when run in VB,but if try to run directly from run command,it gives the desired result.Please help.

test.ps1 script:

 Param([String]$path)
    Get-AuthenticodeSignature $path | Out-File  "C:\Documents and Settings\acmeuser1\output.txt"

Answer 1

This question is essentially answered in VBscript code to capture stdout, without showing console window - there are several techniques there that are stated as working. To summarize, use WShell.Exec instead of WShell.Run , and then capture the output via WShell.StdOut.ReadLine() or WShell.StdOut.ReadAll() .