Visual Basic para Aplicaciones - Hacer ping a servidores con IP o Hostname.

Hola a todos,

Estoy creando un Excel con Hostnames e IP de una lista de servidores que hay en una fila.

Necesitaria para a traves de un excel saber el estado de los servidores.

Tengo dos codigos que me funcionan pero solo funciona con una IP o Hostname.

Necesitaria que con una funcion pueda coger un rango de una columna del excel y al aldo me ponga si esta "online" o "offiline".

Imports System.Net
Imports System.Runtime.InteropServices
Imports System.Net.Sockets


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Globals.ThisWorkbook.ThisApplication.Visible = True
Dim hoja1 As ApLibroExcel.Hoja1 = Globals.Hoja1
Dim i As Integer
Dim eco As New System.Net.NetworkInformation.Ping
Dim res As System.Net.NetworkInformation.PingReply
Dim ip As IPAddress

ip = IPAddress.Parse("187.0.0.3")

For i = 1 To 4

res = eco.Send(ip)

If res.Status = NetworkInformation.IPStatus.Success Then

hoja1.Cells(3.1) = "ONLINE"

Else

hoja1.Cells(3.1) = "OFFLINE"

End If

Next

End Sub

Como digo me funiciona pero sólo con una IP.

Muchas gracias,