Mostrar IP y Host de mi pc en VB.NET

  En esta practica visualizaremos en u textbox la direccion IP de nuestra Pc y su Host. Creamos un proyecto nuevo e insertamos 2 textbox para mostrar la informacion.

1. Importamos esta libreria
              
                        Imports System.Net

2. Creamos un procedimiento
              
   Private Sub ObtenerDatos()
        Dim nombreHost As String = System.Net.Dns.GetHostName
        Dim hostInfo As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(nombreHost)

        TextBox1.Text = hostInfo.HostName.ToString
        For Each ip As System.Net.IPAddress In hostInfo.AddressList
            TextBox2.Text = ip.ToString
        Next
    End Sub

3. Madamos llamar el procedimiento en el Load de la forma

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ObtenerDatos()
    End Sub


Ejecutamos la aplicacion