Проверка портов - открыты или нет

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox2.Items.AddRange(clsGetPort.GetAllIp(TextBox1.Text, 80))
        Button1.Text = If(Button1.Text = "stop", "play", "stop")
     End Sub
 
Public Class clsGetPort
        Public Shared Function GetAllIp(ByVal serv As String, ByVal port_ As Integer) As String()
            Dim lip As New List(Of String)
            Try
                Dim ip As Net.IPHostEntry = Net.Dns.GetHostEntry(serv)
                Dim ip_ As Net.IPAddress = Nothing
                For Each ip_ In ip.AddressList
                    Dim endpoint_ As New Net.IPEndPoint(ip_, port_)
                    Dim tmpsock As New Net.Sockets.Socket(endpoint_.AddressFamily, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)
                    tmpsock.Connect(endpoint_)
                                     If tmpsock.Connected Then
                        lip.Add(String.Format("{0}", ip_.ToString))
                        Continue For
                    End If
                    lip.Add(ip_.ToString)
                Next
            Catch ex As Exception
                lip.Add("Unknown ip")
            End Try
 
            Return lip.ToArray
 
        End Function
    End Class

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
               Dim ip As Net.IPHostEntry = Net.Dns.GetHostEntry(TextBox2.Text) ' В текстбоксе2 - имя сервера(допустим [url]www.mail.ru[/url]..)
        For Each i As Net.IPAddress In ip.AddressList
            ListBox2.Items.Add(i.ToString) 'заполняем листбокс2 айпишками
        Next
 
        ListBox2.SelectedIndex =0 'выделяем допустим первый итем(иначе нужно переписывать некоторые строчки кода)
 
        Dim th As New Threading.Thread(AddressOf General)
        th.IsBackground = True 
        th.Start()
    End Sub
 
Sub General()
        Dim s As Net.Sockets.Socket
        'Dim i_ip As Net.IPAddress = Net.IPAddress.Parse(TextBox2.Invoke(New d(AddressOf return_selecteditem))) 
        'Dim i_ip As String = ListBox2.SelectedItem)
        Dim i_ip As Net.IPAddress = Net.Dns.GetHostEntry(TextBox1.Invoke(New d(AddressOf return_selecteditem))).AddressList(0)
        Dim ipe As Net.IPEndPoint = Nothing
        For i As Integer = NumericUpDown1.Value To NumericUpDown2.Value '&H7FFF
            conclusion.Invoke(New _D_(AddressOf invok), "Прослушивается порт №: " & i & "...")
            ipe = New Net.IPEndPoint(i_ip, i)
            s = New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)
            's = New Net.Sockets.Socket(ipe.AddressFamily, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)
            Try
                s.Connect(ipe)
                'If s.Connected Then
                'ListBox1.Items.Add("***CONNECT!*: Port- " & i & " : EndPoint: " & ipe.ToString)
                'End If
                conclusion.Invoke(New d_(AddressOf inaddition), Color.Blue, "***** Удачная попытка соединения c портом - " & i & " : по следующему конечному адресу: " & ipe.ToString & " *****" & ControlChars.CrLf)
                conclusion.Invoke(New d_(AddressOf inaddition), Color.FromKnownColor(KnownColor.WindowText), Environment.NewLine) 'Color.FromName("windowtext")
            Catch ex As Exception
                conclusion.Invoke(New _D_(AddressOf invok), "ERR:- " & i & " :" & ex.Message & vbCrLf)
            End Try
            s.Close()
        Next
        PictureBox1.Image = Image.FromFile("F:\разное\VS2010ImageLibrary\_Common Elements\Objects\Web_Globe.png")
    End Sub
 
    'инвоки для контролов(иначе будут исключения, думаю понятно на что)
    Delegate Function d()
    Function return_selecteditem() As String
        Return TextBox1.Text ' тут возвращаем в процедуру  "General"  выделенный(из литбокса_2 в текстбокс_1) айпи 
    End Function
 
    Delegate Sub d_(ByVal clr As Color, ByVal _str As String)
    Sub inaddition(ByVal clr As Color, ByVal _str As String)
        conclusion.SelectionColor = clr
        conclusion.SelectedText = _str
    End Sub
 
    Delegate Sub _D_(ByVal str As String)
    Sub invok(ByVal _str As String)
        If conclusion.InvokeRequired Then
            conclusion.BeginInvoke(New _D_(AddressOf invok), _str)
        Else
            conclusion.AppendText(_str & ControlChars.NewLine)
        End If
    End Sub
 
  Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
        If ListBox2.SelectedItem Is Nothing Then Return
        TextBox1.Text = ListBox2.SelectedItem ' как только выделился нужный нам итем в листбоксе_2 то он сразу же отобразится в текстбоксе_1
    End Sub

Environment.UserDomainName либо так Net.Dns.GetHostName

 Dim ip As Net.IPHostEntry = Net.Dns.GetHostEntry(Net.Dns.GetHostName) 'Environment.UserDomainName)
        For Each i As Net.IPAddress In ip.AddressList
            ListBox2.Items.Add(i.ToString) 'заполняем листбокс2 айпишками
        Next

My.Computer.Name