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

Life is soft - evento anual de software empresarial
   
Vista:

Hacer ping a servidores con IP o Hostname.

Publicado por jose (3 intervenciones) el 06/09/2013 21:24:25
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,
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder