Ping IP Address and Write Result to next Cell

**tomlancaster** · 10-28-2009, 11:41 AM

Hello,

I am wondering if you could help me adapt this code to my workbook example attached?

Basically, I would like to “ping” each computer ip address to check if it is online or offline and then write the result in Column C.

Can anyone help? There needs to be no limit to how many ip addresses the script can ping.

Thanks in advance!

Please Login or Register  to view this content.

**Rick_Stanich** · 10-28-2009, 02:09 PM

Ty this out.
Original code from: (romperstomper)
http://www.excelforum.com/excel-prog...om-a-cell.html

See attached.

HTH

**Leith Ross** · 10-28-2009, 02:36 PM

Hello tomlanacaster,

This macro will return the status of ping on the IP address. It is more complete than "connected"/ "not connected". This macro code has been added to the attached workbook. Run the macro GetIPStatus. This may take some time because each address has to respond or timeout before the WMI will return to the calling macro.

Please Login or Register  to view this content.

**Rick_Stanich** · 10-28-2009, 02:39 PM

Nice Leith, very nice.

**tomlancaster** · 10-28-2009, 02:46 PM

Absolutely superb - thanks to both!

**pradeepsingh** · 10-25-2012, 12:29 AM

[Solved]
Thanks a lot Leith Ross.

Your provided excel file worked for me out of the box.
One more thing i want to ask you.
can we change the background color of the to green if result is "online"
& red color for remaining else.

thirdly can we export this file as a daily record?

Your help in the above subject will be much more helpful.

Thanks again.! :-)
Have A nice day.

**peetsno2** · 09-04-2014, 01:25 PM

Thanks, Leith Ross. This code worked for me in Windows 7 professional, and saved me a bunch of headaches in troubleshooting. Brilliant work.

**RC4G** · 08-12-2015, 06:02 PM

Implemented Leith's code but it returns "Connected" if the cell containing the IP address is empty.

Is there an easy way to modify the code to validate the IP field data prior to running the PING? In other words if the cell is empty or not in x.x.x.x format then bypass the ping for that cell and move on to the next one?

**FDibbins** · 08-12-2015, 06:06 PM

RC4G welcome to the forum

Unfortunately your post does not comply with Rule 2 of our Forum RULES. Do not post a question in the thread of another member -- start your own thread.

If you feel an existing thread is particularly relevant to your need, provide a link to the other thread in your new thread.

Old threads are often only monitored by the original participants. New threads not only open you up to all possible participants again, they typically get faster response, too.

Besides, this thread is essentially almost 6 years old