ใช้ System.Net.Dns.GetHostEntry().HostName() แล้วได้ชื่อเครื่องไม่ถูกต้อง

Imports System.Windows.Forms
Imports System.IO
Imports System.Net

    Public MyComputerIP As String = ""
    Public MyComputerName As String = ""
    'ค้นหาไอพีและชื่อเครื่องตนเอง
    Sub GetMyName_IP()
        Dim LocalHostName As String
        Dim i As Integer
        LocalHostName = Dns.GetHostName()
        Dim ipEnter As IPHostEntry = Dns.GetHostByName(LocalHostName)
        Dim IpAdd() As IPAddress = ipEnter.AddressList
        MyComputerIP = ""
        For i = 0 To IpAdd.LongLength - 1
            MyComputerIP &= (IpAdd(i).ToString)
            Exit For
        Next
        MyComputerName = System.Net.Dns.GetHostName()
    End Sub