Sub Ping()
Dim objPing As Variant
Dim astrComputer() As String
 
'Computer eintragen
 
astrComputer() = Split("client1;localhost;client3", ";")
 
'Excel instanzieren
 
 
For i = 0 To UBound(astrComputer)
 
    ActiveSheet.Cells(i + 5, 3) = astrComputer(i)
 
    Set objPing = GetObject("winmgmts:").get("Win32_PingStatus.Address='" & _
      astrComputer(i) & "'")
 
    ActiveSheet.Cells(i + 5, 3).Interior.ColorIndex = _
    IIf(IsNull(objPing.StatusCode) Or objPing.StatusCode <> 0, 3, 4)
 
Next i
 
End Sub