如何通过运行PowerShell脚本来显示实时输出？

Question

我想从VB运行powershell脚本，我希望看到脚本输出在控制台应用程序内运行。使用我的脚本（如下所示）从PowerShell运行时，它显示“Command Sleep Starting”，然后等待5秒钟，然后显示其他文本。

但是，当我从VB.NET程序运行时，执行等待5秒钟并立即转储所有文本输出。它不执行第一个写入 - 输出命令，然后等待，然后输出它应该。

Write-Output "Command Sleeping Starting" 
Start-Sleep -Seconds 5 
Write-Output "Command ran successfully" 

当我从VB .Net程序运行脚本时，如何显示实时执行输出的任何想法？

以下更多信息是我使用的代码。

  Dim start As New ProcessStartInfo 
      Dim ScriptsFolder As String = GetKeyValue("ScriptsFolder") 
      Console.WriteLine(ScriptsFolder.ToString()) 
      start.FileName = "powershell.exe" 
      start.Arguments = ScriptsFolder + "\" + ScriptFile 
      start.UseShellExecute = False 
      start.RedirectStandardOutput = True 
      start.RedirectStandardError = True 

      Dim myproc As New Process 
      myproc.StartInfo = start 
      myproc.Start() 
      Dim so As System.IO.StreamReader 
      Dim se As System.IO.StreamReader 
      se = myproc.StandardError 
      so = myproc.StandardOutput 
      myproc.WaitForExit() 
      Console.WriteLine(so.ReadToEnd) 
      Console.WriteLine(se.ReadToEnd) 

Answer 1

你有没有考虑执行的PowerShell运行空间编程方式使用System.Windows.Automation命名空间，而不是启动进程？然后，您可以将一个记录器对象传递到管道并记录到它，实时显示消息。

下面是在VB.NET纺纱了运行空间

' create Powershell runspace 
    Dim MyRunSpace As Runspace = RunspaceFactory.CreateRunspace() 

    ' open it 
    MyRunSpace.Open() 

    ' create a pipeline and feed it the script text 
    Dim MyPipeline As Pipeline = MyRunSpace.CreatePipeline() 

    MyPipeline.Commands.AddScript(scriptText) 

    ' pass in a logger object you can use instead of Write-Output 
    MyPipeline.Runspace.SessionStateProxy.SetVariable("logger", SomeLoggerObject) 

    ' execute the script 
    Dim results As Collection(Of PSObject) = MyPipeline.Invoke() 

    ' close the runspace 
    MyRunSpace.Close()