Dim p As new Process()

p.StartInfo.FileName = "cmd.exe"

p.StartInfo.UseShellExecute = False \'关闭Shell的使用

p.StartInfo.RedirectStandardInput = True \'重定向标准输入

p.StartInfo.RedirectStandardOutput = True \'重定向标准输出

p.StartInfo.RedirectStandardError = True \'重定向错误输出

p.StartInfo.CreateNoWindow = True

p.Start()

p.StandardInput.WriteLine("ping /?" & vbcrlf & "exit")

Output.Show(p.StandardOutput.ReadToEnd)

p.WaitForExit()