Todavia no he podido sacar lo que quiero,de momento solo consigo sacar la ip de mi puesto aunque tambien consigo sacar el nombre del servidor dandole su ip.Les dejo mi codigo por si ha alguien le sirve o por si se les ocurre como hacer lo otro.
Código HTML:
''''''''Obtener ip automaticamente de mi host
Dim ip As Net.Dns
Dim nombre_Host As String = ip.GetHostName
Dim este_Host As Net.IPHostEntry = ip.GetHostByName(nombre_Host)
Dim direccion_Ip As String = este_Host.AddressList(0).ToString
Me.TextBox1.Text = direccion_Ip
''''''''''''
Código HTML:
''''funcion para obtener el nombre del host atraves de su IP
Function ObtenerHost(ByVal IP As IPAddress) As String()
Dim miHost As Net.IPHostEntry
miHost = Net.Dns.GetHostByAddress(IP)
'ObtenerHost = MiHost.HostName
End Function