Dim proc As Process
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
proc = New Process()
Dim str As String = Nothing
Dim sIn As StreamWriter
Dim sOut As StreamReader
proc.StartInfo.FileName = "ipconfig"
proc.StartInfo.Arguments = " /all"
proc.StartInfo.UseShellExecute = False
proc.StartInfo.RedirectStandardInput = True
proc.StartInfo.RedirectStandardOutput = True
proc.StartInfo.RedirectStandardError = True
proc.Start()
sIn = proc.StandardInput
sIn.AutoFlush = True
sOut = proc.StandardOutput
sIn.Write(Environment.NewLine)
sIn.Write("exit" + Environment.NewLine)
str = sOut.ReadToEnd()
If (Not proc.HasExited) Then
proc.Kill()
End If
TextBox2.Clear()
TextBox2.Text = str
sIn.Close()
sOut.Close()
End Sub