Sub Ping()
 
 
Dim objExcel, objWorkbook, objWorksheet, astrComputer
 
'Computer eintragen
 
astrComputer = Array("Client1")
 
 
'Excel instanzieren
 
Set objWorksheet = Application.ActiveSheet
 
 
 
For i = 0 To UBound(astrComputer)
 
    Set objPing = GetObject("winmgmts:").Get("Win32_PingStatus.Address='" & _
      astrComputer(i) & "'")
 
    If objPing.StatusCode = 0 Then
 
 
        objWorksheet.Cells(i + 5, 3).Interior.ColorIndex = 4
 
 
 
    Else
 
 
 
        objWorksheet.Cells(i + 5, 3).Interior.ColorIndex = 3
 
    End If
 
Next
 
 
 
'Computer eintragen
 
astrComputer = Array("Client2")
 
 
 
'Excel instanzieren
 
Set objWorksheet = Application.ActiveSheet
 
 
 
For i = 0 To UBound(astrComputer)
 
    Set objPing = GetObject("winmgmts:").Get("Win32_PingStatus.Address='" & _
      astrComputer(i) & "'")
 
    If objPing.StatusCode = 0 Then
 
 
        objWorksheet.Cells(i + 6, 3).Interior.ColorIndex = 4
 
 
 
    Else
 
 
 
        objWorksheet.Cells(i + 6, 3).Interior.ColorIndex = 3
 
    End If
 
Next
 
End Sub