Non mi ricordo cosa fa esattamente, ma prova questo

codice:
        Dim ipEntry As System.Net.IPHostEntry
        ipEntry = System.Net.Dns.GetHostByName(Me.Server.MachineName)
        Dim addr As System.Net.IPAddress() = ipEntry.AddressList
        Response.Write(addr(0).ToString)