Передать команду в консоль Windows

    Sub Net_VIew()
        Dim strtemp As String
        Dim hostname As String
        Dim IP As String = vbNullString
        Dim IPA As Net.IPAddress
        Dim proc As New Process
        proc.StartInfo.FileName = "cmd" 'nbtstat
        proc.StartInfo.Arguments = "/C net viEW"
        proc.StartInfo.RedirectStandardOutput = True   ' перенапрявляем инфу в поток исходящих
        proc.StartInfo.UseShellExecute = False ' только в этом случае перенаправление будет возможно
        proc.StartInfo.CreateNoWindow = True ' окошко командной строки нам ни к чему
        proc.Start()
        Do Until proc.StandardOutput.EndOfStream
            strtemp = proc.StandardOutput.ReadLine
            If strtemp.Contains("\\") Then
                hostname = Replace(Microsoft.VisualBasic.Left(strtemp, Math.Max(InStr(strtemp, " ") - 1, 0)), "\\", "")
                Try
                    For Each IPA In Net.Dns.GetHostAddresses(hostname) 'Environment.UserDomainName)
                        If IPA.ToString.Length > 5 Then IP = IPA.ToString
                    Next
                Catch ex As Exception
                    hostname = ex.Message & " !  " & hostname
                End Try
                'Me.ListBox1.Items.Add(hostname & vbTab & IP & vbTab & strtemp)
                Me.ListBox1.Invoke(New DELEG(AddressOf ItemS_), String.Concat(hostname, vbTab, IP, vbTab, strtemp))
            End If
        Loop
        'MsgBox("Вывод информации завершен")
    End Sub