Both problems are easy to solve.
This is your computer name:
Dim machineName As String = System.Environment.MachineName
As to IP, what you can find is actually an array, as one machine can have more than one IP address. You need to use DNS:
Dim strHostName As String = System.Net.Dns.GetHostName()
Dim ipEntry As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName)
Dim addr As System.Net.IPAddress() = ipEntry.AddressList
That's it!
[DISCLAIMER]
This answer was given in response to the version #1 of this question.
—SA