Private Sub ExecuteCommandLine(ByVal strBatchName As String, ByVal strArguments As String)
Dim reader As System.IO.StreamReader
Using MyProcess As New Process()
With MyProcess.StartInfo
.FileName = "Cmd.exe"
.UseShellExecute = False
.CreateNoWindow = True
.Arguments = "/C " + strArguments
.RedirectStandardOutput = True
End With
MyProcess.Start()
MyProcess.WaitForExit(50000)
reader = MyProcess.StandardOutput
MyProcess.Dispose()
strResult &= strBatchName
strResult &= Environment.NewLine
Do Until reader.EndOfStream = True
strResult &= reader.ReadLine
strResult &= Environment.NewLine
Loop
strResult &=
"-----------------------------------------------------------------------------------------------------------------------------------------"
strResult &= Environment.NewLine
reader.Dispose()
End Using
End Sub
strpathtoexecute = strpathtoexecute.ToString + " /C " + parameters
ExecuteCommandLine("Process Started :", strpathtoexecute)