Como obtener tolas las IPs en VB 2010 .NET

Tendremos que añadir al principio la siguiente linea, para que podamos usar las variables de red entre otras:

Imports System.Net

Ahora os dejamos el código que se puede emplear en un commandbutton y pegarlo en un textbox el resultado:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim i_cont As Integer
Dim Host As String
       
        If Environment.GetCommandLineArgs().Length > 1 Then
            Host = Environment.GetCommandLineArgs(1)
        Else
            Host = Dns.GetHostName
        End If

Dim IPs As IPHostEntry = Dns.GetHostByName(Host)
Dim Direcciones As IPAddress() = IPs.AddressList

        'Se despliega la lista de IP's

        i_cont = 0

ForEach IP As IPAddress in Direcciones



TextBox1.Text = TextBox1.Text & "IP " & IP.ToString & vbCrLf


Next




End Sub