Dim PingErgebnis As Boolean
        Dim Rechnername As String = "DeinServername"
 
        Try
            PingErgebnis = My.Computer.Network.Ping(Rechnername)
        Catch ex As Exception
            PingErgebnis = False
        End Try
 
        If PingErgebnis = True Then
            MessageBox.Show("Der Computer ist erreichbar!")
        Else
            MessageBox.Show("Der Computer ist nicht erreichbar!")
        End If

EALA FREYA FRESENA