Tip valido per le versioni dalla 2005 in poi.
Per ottenere l’indirizzo IP della macchina (collegata in rete) sulla quale gira il programma, ecco una buona soluzione:
Private Shared Sub NamedSub()
Dim loip() As System.Net.IPAddress = _
System.Net.Dns.GetHostAddresses(System.Net.Dns.GetHostName)
Dim ip As String = loip(0).ToString
MessageBox.Show(ip)
End Sub
E’ possibile ottenere altre informazioni sulla connessione di rete leggendo questo articolo pubblicato su MSDN
Il metodo usato in Visual Basic 2003 è obsoleto e da evitare:
Dim ip As String = _
System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)
.AddressList(0).ToString
N.B.: l’istruzione deve essere scritta tutta su una singola riga