HOW TO:获取DOS命令输出结果

Author: 水如烟

Public   Class ConsoleOutput Class ConsoleOutput

    Private Sub New()Sub New()
    End Sub

    Private Shared gWorkingDirectory As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal)

    Public Shared Property WorkingDirectory()Property WorkingDirectory() As String
        Get
            Return gWorkingDirectory
        End Get
        Set(ByVal Value As String)
            gWorkingDirectory = Value
        End Set
    End Property

    Public Shared Function ExcuteCmd()Function ExcuteCmd(ByVal command As String) As String
        Dim mResult As String = ""

        Dim tmpProcess As New Process
        With tmpProcess
            With .StartInfo
                .CreateNoWindow = True
                .FileName = .EnvironmentVariables.Item("ComSpec")
                .RedirectStandardOutput = True
                .UseShellExecute = False
                .Arguments = String.Format("/C {0}", command)
                .WorkingDirectory = gWorkingDirectory
            End With
            Try
                .Start()
                .WaitForExit(5000)
                mResult = .StandardOutput.ReadToEnd
            Catch e As System.ComponentModel.Win32Exception
                mResult = e.ToString
            End Try
        End With

        Return mResult
    End Function

End Class

测试:

     Private   Sub Button1_Click() Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Console.WriteLine(ConsoleOutput.ExcuteCmd("NET TIME //192.168.0.223"))
    End Sub
     ' 结果
     ' //192.168.0.223 的当前时间是 2006-3-30 9:57
     '
     ' 命令成功完成。