Check hostname + port status

For Each GridViewRow As GridViewRow In GridView2.Rows

<pre>Dim dz = New DataTable()
        dz.Columns.Add(New DataColumn("Hostname", GetType(String)))
        dz.Columns.Add(New DataColumn("Port", GetType(String)))
        dz.Columns.Add(New DataColumn("Status", GetType(String)))
        Dim row = dz.NewRow()

        row("Hostname") = "host1"
        row("Port") = 7777
        dz.Rows.Add(row)

        row = dz.NewRow()
        row("Hostname") = "host2"
        row("Port") = 8888
        dz.Rows.Add(row)
      
        For Each GridViewRow As GridViewRow In GridView2.Rows
            Dim ping = New Ping()
            Dim result As PingReply = Nothing
            Dim status As IPStatus
            Dim hos As String = GridViewRow.Cells(1).Text.ToString()
            Dim po As String = GridViewRow.Cells(2).Text.ToString()
           
            Try
                result = ping.Send(hos, po)
                status = result.Status
                If status = IPStatus.DestinationHostUnreachable Then

                Else
                    row("Status") = result.Status

                End If
            Catch ex As Exception
               

            End Try
        Next
        dz.AcceptChanges()
        GridView2.DataSource = dz
        GridView2.DataBind()