Client IP Address, Client MAC Address, Client Computer Name , VB.NET, Windows Application

Imports System.Net.NetworkInformation
strVersion = My.Application.Info.Version.ToString
strMACAddress = getMacAddress().ToString
strHostName = System.Net.Dns.GetHostName()
strIPAddress = System.Net.Dns.GetHostEntry(strHostName).AddressList(1).ToString()
Function getMacAddress()
    Dim nics() As NetworkInterface = _
        NetworkInterface.GetAllNetworkInterfaces
    Return nics(0).GetPhysicalAddress.ToString
End Function