Ping Host Name Column A IP address Result column B Response time Column c

**NickMac** · 04-07-2011, 05:27 PM

I am trying to create a spread sheet that is able to take the Host Name in the first column and ping it. Result being the IP address in the second column and response time in the third. Which in turn tells me the health of the network connection. I have applications that do this, but i would like this excel based. Dont know too much about vbs code.

Thanks in advance!
-Nick

**Leith Ross** · 04-07-2011, 10:45 PM

Hello NickMac,

Here is a macro that will read the URLs in column "A" of the active sheet. The IP address, the response time in milliseconds, and the status are returned in columns "B:D". The URLs are assumed to start in "A2" with headers in row 1. The URL should just be "www.server.com" and not include the protocol.

Ping Macro

Please Login or Register  to view this content.

**NickMac** · 04-08-2011, 10:12 AM

[SOLVED]

This is great! Thanks for the quick response Leith!

**hoad85** · 05-19-2011, 08:12 PM

Hi,

I'm unsure if I've done something wrong - however - I've created a new module, copied - pasted word for word the block of code above - my url list is in the required www.server.com format - however when i click run the ms appears in cell C2 but there is a Run-time error '94': Invalid use of null and when i select debug the below line is highlighted..

Cell.Offset(0, 3) = GetPingStatus(objPing.StatusCode)

in the block

'Translate the query results to either True or False
For Each objPing In colPings
If Not objPing Is Nothing Then
Cell.Offset(0, 1) = objPing.ProtocolAddress
Cell.Offset(0, 2) = objPing.ResponseTime & " ms"
Cell.Offset(0, 3) = GetPingStatus(objPing.StatusCode)
End If
Next objPing

thoughts?

thanks!

**NickMac** · 06-12-2012, 03:46 PM

Kinda on the same topic, maybe in reverse. How would i go about creating a subnet scanner? Would return items from DNS such as Host name, IP address, status based on a subnet. ex. 10.10.10.0 - 10.10.10.255.