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)