Dim CMDprocess As New Process Dim StartInfo As New System.Diagnostics.ProcessStartInfo StartInfo.FileName = "cmd" StartInfo.CreateNoWindow = True StartInfo.RedirectStandardInput = True StartInfo.RedirectStandardOutput = True StartInfo.UseShellExecute = False CMDprocess.StartInfo = StartInfo CMDprocess.Start() Dim SR As System.IO.StreamReader = CMDprocess.StandardOutput Dim SW As System.IO.StreamWriter = CMDprocess.StandardInput SW.WriteLine("net view") SW.WriteLine("exit") RichTextBox2.Text = SR.ReadToEnd SW.Close() SR.Close()