Public Sub pingme(ByVal s As String)
        Dim pingsender As Ping = New Ping
        Dim reply As PingReply
 
        Try
            reply = pingsender.Send(s)
 
            Select Case reply.Status
                Case IPStatus.Success
                    ListView1.Items.Add("Address: " + reply.Address.ToString)
                    ListView1.Items.Add("RoundTrip time: " + _
                      reply.RoundtripTime.ToString)
                    ListView1.Items.Add("Time to live: " + _
                    reply.Options.Ttl.ToString)
                    ListView1.Items.Add("Don't fragment: " + _
                    reply.Options.DontFragment.ToString)
                    ListView1.Items.Add("Buffer size: " + _
                    reply.Buffer.Length.ToString)
                    ListView1.Items.Add("Status: " + reply.Status.ToString)
                    ListView1.Refresh()
                Case Else
                    MessageBox.Show(reply.Status.ToString)
            End Select
        Catch ex As PingException
            MessageBox.Show(ex.InnerException.Message.ToString)
        End Try
 
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov

IPStatus.Success

IPStatus.DestinationHostUnreachable

If reply.Address isNot Nothing then
   ' Items füllen
 
endif

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control

reply = pingsender.Send(s)
If reply.Address IsNot Nothing Then
        'Mach irgendwas
End If

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control

IPStatus.Success

IPStatus.DestinationHostUnreachable

Imports System.Net.NetworkInformation
 
Public Class Form1
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      Me.pingme(TextBox1.Text.Trim)
   End Sub
 
   Public Sub pingme(ByVal s As String)
      Dim pingsender As Ping = New Ping
      Dim reply As PingReply
 
      Try
         reply = pingsender.Send(s)
 
         Select Case reply.Status
            Case IPStatus.Success
               Label1.Text = reply.Status.ToString
            Case Else
               MessageBox.Show(reply.Status.ToString)
         End Select
      Catch ex As PingException
         MessageBox.Show("Inner Exception: " & ex.InnerException.Message)
      End Try
 
   End Sub
 
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control