VB.net中执行外部CMD命令并获取返回字符串

Module cmd
Public Function runCmd(ByVal strCMD As String) As String
Dim p As New Process
With p.StartInfo
.FileName = "cmd.exe"
.Arguments = "/c " + strCMD
.UseShellExecute = False
.RedirectStandardInput = True
.RedirectStandardOutput = True
.RedirectStandardError = True
.CreateNoWindow = True
End With
p.Start()
Dim result As String = p.StandardOutput.ReadToEnd()
p.Close()
Return result
End Function
End Module