'In such cases, the most commonly performed test is running the PING program, which generates one or more ICMP packets. 'I think this is the source of most of the code: 'Testing IP Connectivity With WMI 'Janu'When writing a script to perform a task on a remote computer, it is beneficial to know whether a network connection to this computer can be established. I was having problems with my local network from my home file server and got tired of going down to the basement to reboot the machine every time it lost network connectivity so I adopted some code I found on the net to ping my local router and if network connectivity was lost then reboot the file server. Run('%comspec% /c ping.exe -n ' & iPings & ' -w ' & iTO _ & ' ' & sHost & ' | find ''TTL='' > nul 2>&1', 0, True) End With IsConnectible = (nRes = 0) End Function The Host can be either an IP address, computer name or a domain name (Pinging through a proxy is a problem that I have never had to address, so I can't advise you on that.Īs an alternative answer perhaps the script below may be useful.

Cells(Row, 1) = '' End With End Sub Function IsConnectible(sHost, iPings, iTO) ' Returns True or False based on the output from ping.exe ' ' Authors: Alex Angelopoulos/Torgeir Bakken ' Modified by: Tom Lavedas ' Works an 'all' WSH versions ' sHost is a hostname or IP ' iPings is number of ping attempts ' iTO is timeout in milliseconds ' if values are set to '', then defaults below used Dim nRes If iPings = '' Then iPings = 1 ' default number of pings If iTO = '' Then iTO = 250 ' default timeout per ping With CreateObject('WScript.Shell') nRes =. Cells(Row, 1) '' Then output.Cells(Row, 1) = IsConnectible(.Cells(Row, 1), 1, 250) End If Row = Row + 1 Loop Until.

Sub Do_ping() Set output = ActiveWorkbook.Worksheets(2) With ActiveWorkbook.Worksheets(1) Row = 2 Do If. Maybe something like this will work for you.

Ping program in vb.net