Prova con questa funzione:
Private Function GetIPAddress() As String
Dim oAddr As System.Net.IPAddress
Dim sAddr As String
With system.Net.DNS.GetHostByName(system.Net.DNS.GetHostName())
If .AddressList.Length > 0 Then
oAddr = New System.Net.IPAddress(.AddressList(0).Address)
sAddr = oAddr.ToString
End If
End With
GetIPAddress = sAddr
End Function
Verifica dentro AddressList possono esserci più IP tra cui quello LAN e quello PPP.
Fammi sapere se funzia.
Ciao
David De Giacomi | Microsoft MVP
http://blogs.dotnethell.it/david/