Excel VBA - Clients anpingen und Ausgabe in Datei über Variable

Hallo,

ich befasse mich seit kurzem mit VB und stehe vor einer Herausforderung .

Ich versuche über excel-VB mehrere Clients anzupingen um den Online-Status in einer Spalte über mehrere Zeilen anzeigen zu lassen.
Das funktioniert soweit ganz gut. Nun habe ich aber mehrere Rechner und muss derzeit für jeden Rechner die Prozedur incl. Rechnernamen eintragen.

So sieht das bisher aus:

Hier der Code:

Sub PingClients()


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


Bei vielen Rechnern ist das natürlich sehr aufwendig. Geht das auch über eine Variable?
Habt Ihr evtl. einen Lösungsvorschlag für mich?

Danke!

astrComputer = Array("Client1")

astrComputer = Array("Client1", "Client2", "Client3", "etc")

Sub PingClients()

Dim objWorksheet, Zeile, Spalte

'Excel instanzieren  
Set objWorksheet = Application.ActiveSheet

Zeile = 5
Spalte = "C"  
With objWorksheet
    Do While .Cells(Zeile, Spalte) <> ""  
        Set objPing = GetObject("winmgmts:").Get("Win32_PingStatus.Address='" & _  
          .Cells(Zeile, Spalte) & "'")  
        If objPing.StatusCode = 0 Then
            .Cells(Zeile, Spalte).Interior.ColorIndex = 4
        Else
            .Cells(Zeile, Spalte).Interior.ColorIndex = 3
        End If
        Zeile = Zeile + 1
    Loop
End With

astrComputer = Array("Client1")
> 

astrComputer = Array("Client1", "Client2", "Client3",
> "etc")
> 

For i = 0 To UBound(astrComputer)

objWorksheet.Cells(i + 5, 3).Value = astrComputer(i)

Sub PingClient()

Dim objWorksheet, Zeile, Spalte, astrComputer

'Computer eintragen  

astrComputer = Array("Client1", "Client2", "Client3", "Client4", "Client5", "Client6", "Client7", "Client8", "Client9", "Client10")  

 
'Excel instanzieren  

Set objWorksheet = Application.ActiveSheet

Zeile = 5
Spalte = "C"  
With objWorksheet
Do While .Cells(Zeile, Spalte) <> ""  
Set objPing = GetObject("winmgmts:").Get("Win32_PingStatus.Address='" & _  
.Cells(Zeile, Spalte) & "'")  
If objPing.StatusCode = 0 Then
.Cells(Zeile, Spalte).Interior.ColorIndex = 4
Else
.Cells(Zeile, Spalte).Interior.ColorIndex = 3
End If
Zeile = Zeile + 1
Loop
End With


For i = 0 To UBound(astrComputer)
objWorksheet.Cells(i + 5, 3).Value = astrComputer(i)

    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

End Sub