الحصول على IP Address واسم الجهاز باستخدام VB.Net

Imports System
Imports System.net

        Dim strHostName As String
        Dim ipHostEntryData As IPHostEntry
        Dim ipAddress As IPAddress
        strHostName = Dns.GetHostName
        ipHostEntryData = Dns.GetHostByName(strHostName)
        TextBox1.Text = strHostName
        For Each ipAddress In ipHostEntryData.AddressList
            ListBox1.Items.Add(ipAddress.ToString())
        Next