Ciao, queste sono le righe di codice per fare quello che hai chiesto.... almeno credo.

Imports system.net

Dim Ipmio As IPAddress = Dns.GetHostByName(Dns.GetHostName.ToString).Addres sList(0)
Label1.Text = Ipmio.ToString()

Dim miohost As IPHostEntry = Dns.GetHostByAddress(Ipmio.ToString)
Label2.Text = miohost.HostName.ToString


Dunque è funzionante, ma migliorabile credo, perchè io uso la libreria totale system.net, forse si può utilizzare un solo sottoramo per migliorare le prestazioni.

Per quanto riguarda l'host name, ho catturato prima il mio indirizzo Ip e poi tramite questo ho presto il mio host, altrimenti non sapevo come fare.

Infine se hai due schede di rete, mi pare devi cambiare addresslist(0) con 1 .... 2 ecc ecc