how to identify computer name and ip address using vb.net code?

Private Sub GetIPAddress()

Dim strHostName As String

Dim strIPAddress As String



strHostName = System.Net.Dns.GetHostName()

strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()


MessageBox.Show("Host Name: " & strHostName & "; IP Address: " & strIPAddress)

End Sub

string myHost = System.Net.Dns.GetHostName();
            System.Net.IPHostEntry myIPs = System.Net.Dns.GetHostEntry(myHost);
            foreach (System.Net.IPAddress myIP in myIPs.AddressList)
            {
                TextBox1.Text = myIP.ToString();
            }

Option Strict Off
Imports system
Imports System.Net.DNS
Public Class GetIP
Shared Function GetIPAddress() As String
Dim sam As System.Net.IPAddress
Dim sam1 As String
With system.Net.DNS.GetHostByName(system.Net.DNS.GetHostName())
    sam = New System.Net.IPAddress(.AddressList(0).Address)
    sam1 = sam.ToString
End With
GetIPAddress = sam1
End Function
    Shared Sub main()
      Dim shostname As String
      shostname = system.Net.DNS.GetHostName
      console.writeline("Name of the System is = " & shostname)
      console.writeline("Your IP address is= " & GetIPAddress)
    End Sub
 End Class