Ip адреса сети

lv1.View = View.Details
        lv1.GridLines = True
        lv1.Columns.Add("Comps IPs", 200)

  lv1.SmallImageList = ImageList1

 Private Sub fillIPs(ByVal ip1() As Byte, ByVal ip2() As Byte)
         lv1.Items.Clear()
        For n As UInt32 = BitConverter.ToUInt32(ip1.Reverse.ToArray, 0) + 1 To BitConverter.ToUInt32(ip2.Reverse.ToArray, 0) - 1
            lv1.Items.Add(New ListViewItem(New Net.IPAddress(BitConverter.GetBytes(n).Reverse.ToArray).ToString, 0))
        Next
    End Sub

 Try
            Dim computerName = TextBox1.Text
            Dim options As New ConnectionOptions With { _
                .Impersonation = ImpersonationLevel.Impersonate _
            }
            Dim scope As New ManagementScope("\\" & computerName & "\root\cimv2", options)
            Dim query As New ObjectQuery("SELECT * FROM Win32_ComputerSystem")
            Using searcher As New ManagementObjectSearcher(scope, query)
                Using results As ManagementObjectCollection = searcher.Get()
                    Dim wmiObj As ManagementObject = results.Cast(Of ManagementObject)().FirstOrDefault()
 
                    If wmiObj IsNot Nothing Then
                        MsgBox("UserName: " & wmiObj.GetPropertyValue("UserName").ToString())
                    Else
                        MsgBox("UserName: Не удалось определить Имя пользователя")
                    End If
                End Using
            End Using
        Catch ex As Exception
            MsgBox("UserName: Не удалось определить Имя пользователя")
        End Try

Private Shared Function GetMachineNameFromIPAddress(ByVal ipAdress As String) As String
        Dim machineName As String = String.Empty
 
        Try
            Dim hostEntry As IPHostEntry = Dns.GetHostEntry(ipAdress)
            machineName = hostEntry.HostName
        Catch ex As Exception
        End Try
 
        Return machineName
    End Function

lv1.View = View.Details
        lv1.GridLines = True
        lv1.Columns.Add("Comps IPs", 200)
        lv1.Columns.Add("UserName", 200)
        lv1.Columns.Add("HostName", 200)

     lv1.Columns.Add("Comps IPs", 200)
        lv1.Columns.Add("HostName", 200)
        lv1.Columns.Add("UserName", 200)

Function LoggedUserName(ByVal pcname As String) As String
        Try
            Dim computerName = pcname
            Dim options As New ConnectionOptions With {
                .Impersonation = ImpersonationLevel.Impersonate
            }
            Dim scope As New ManagementScope("\\" & computerName & "\root\cimv2", options)
            Dim query As New ObjectQuery("SELECT * FROM Win32_ComputerSystem")
            Using searcher As New ManagementObjectSearcher(scope, query)
                Using results As ManagementObjectCollection = searcher.Get()
                    Dim wmiObj As ManagementObject = results.Cast(Of ManagementObject)().FirstOrDefault()
 
                    If wmiObj IsNot Nothing Then
                        Return wmiObj.GetPropertyValue("UserName").ToString()
                    Else
                        Return "Не удалось определить Имя пользователя"
                    End If
                End Using
            End Using
        Catch ex As Exception
            Return "Не удалось определить Имя пользователя"
        End Try
 
    End Function

Private Sub p_pingCompleted(ByVal sender As Object, ByVal e As System.Net.NetworkInformation.PingCompletedEventArgs)
        Dim server As String = e.UserState
        Dim lvi As ListViewItem = lv1.FindItemWithText(server)
        If e.Reply.Status = IPStatus.Success Then
            lvi.ImageIndex = 1
            Dim PcName As String = GetMachineNameFromIPAddress(server)
            lvi.SubItems.Add(PcName)
            lvi.SubItems.Add(LoggedUserName(PcName))
        Else
            lvi.Remove()
        End If
        DirectCast(d(server), IDisposable).Dispose()
        d.Remove(server)
    End Sub