获得本机机器名和IP地址

        Dim IPAdress As System.Net.IPAddress
        Dim HostName As String = System.Net.Dns.GetHostName '获得本机的机器名
        IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP