<div>
I hope you know what you are asking for... As you have to go deeply inside the Windows API But somebody has collected some code together... <a href="https://blog.protocolsyntax.com/2014/01/17/followup-dns-lookup-and-ping-in-excel" rel="ugc">https://blog.protocolsyntax.com/2014/01/17/followup-dns-lookup-and-ping-in-excel</a> A bit easier is this tool... <a href="http://www.oette.info/" rel="ugc">http://www.oette.info/</a> WOL2 rather a tool for Wake up on LAN, but you can scan your network and it collects all available machines together as well as you can add your owns and scans on the fly if they are online or not.
</div>

System Security Manager

John Sheehy

<div>
That's all 32bit BTW and it has Ping() and DoPing(). Jim.
</div>

<div>
I like it and I was able to modify it to 64Bit. &nbsp;However, how do I get it to loop through the table tblHostName, and update the field fldStatus? Thanks John 
</div>

<div>
Dim db as DAO.Database Dim rs as DAO.Recordset Dim bolRet as Boolean Set db = CurrentDB() Set rs = db.Openrecordset("tblHostName") Do until rs.EOF &nbsp; &nbsp; &nbsp;bolRet = Ping(....... &nbsp; &nbsp; &nbsp; rs.Edit &nbsp; &nbsp; &nbsp; rs![fldStatus] = bolRet &nbsp; &nbsp; &nbsp; rs.Update Loop rs.close set rs = nothing set db = nothing
</div>

<div>
I get a Expected variable or procedure, not module compile error it is highlighting Ping on the bolRet line I entered this: bolRet = Ping("Host_Name") Host_Name is the name of the field that contains the data. Does it need to be bolRet = Ping(rs![host_name]) Thanks John 
</div>

<div>
John, &nbsp;The Ping() call is this: Public Function Ping(Address As String, RoundTripTime As String, DataMatch As Boolean, Optional DataSize As Long = 32, Optional TimeOut As Long = PING_TIMEOUT) At a minimum, you need to supply the address, and a variable for round trip time, and data match. &nbsp;The last two are used to pass values back to you from the function. &nbsp; &nbsp; Only data size and timeout are optional in the call. &nbsp;and yes, it would be rs![host_name] &nbsp;So: &nbsp;Dim strRoundTripTime as string &nbsp;Dim bolDataMatch as Boolean &nbsp;bolRet = Ping (rs![host_name], strRoundTripTime, bolDataMatch) Jim.
</div>

<div>
Jim, Appreciate the explanation. &nbsp;However I am still getting the same error on the word Ping <pre><code class="code-10 nolinks" id="code-20-43314113-1">So I have this as the button code:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim bolRet As Boolean

DoCmd.Hourglass True

Set db = CurrentDb()
Set rs = db.OpenRecordset("tblHostName")

Do Until rs.EOF
&nbsp; &nbsp; &nbsp; bolRet = Ping(rs![Host_Name], strRoundTripTime, bolDataMatch)
&nbsp; &nbsp; &nbsp; rs.Edit
&nbsp; &nbsp; &nbsp; rs![fldStatus] = bolRet
&nbsp; &nbsp; &nbsp; rs.Update
Loop
DoCmd.Hourglass False

rs.Close
Set rs = Nothing
Set db = Nothing
</code></pre>Then everything else is in a module.
</div>

<div>
 Jim, So Figured out that error. &nbsp;I had the module named Ping. &nbsp;Changed the name and the error went away. &nbsp;Now I have a new one. Compile Error: ByRef Argument type mismatch It is highlighting strRoundTripTime John 
</div>

<div>
Make sure you add the dim statements: Dim strRoundTripTime as string &nbsp;Dim bolDataMatch as Boolean Since they are not dimmed, they end up as a variant, which is the wrong data type. and you should be using Option Explicit in every module. &nbsp; You'd catch an error like that when you went to compile. Jim.
</div>

<div>
Jim, That worked.....sort of. &nbsp; I have two records in the table for testing right now, &nbsp;But it keeps looping on the first record. &nbsp;So I tried it with the real data with over 1200 records and it is doing the same thing. &nbsp;Only loops on the first record. John 
</div>

<div>
my apologies, I forgot: &nbsp; &nbsp; &nbsp; rs.Update &nbsp; &nbsp;&nbsp; rs.Movenext Loop DoCmd.Hourglass False
</div>

<div>
I guess Jim made a good job, the code is similar to the code behind my link. There are some additional functions in the link... Beside this, have a look on the WOL2 tool as it collects all devices together (which are online) and stores their IP, MAC and Name in an XML file which can be used to see all the time the online status. You can also manually add devices if you know the MAC. The basic purpose of the Tool was Wake up on &nbsp;Lan, but I usually use it th check my infrastructure.&nbsp; 
</div>

<div>
Bembi, That is the issue I have. &nbsp;IT is telling me everything is online but when I run the Ping test it comes back with about 200 that are unreachable. &nbsp;I report those to IT and they tell me it's because the system isn't connected. &nbsp;Which to me means offline. I will check out the WOL2 tool this morning. Thanks John 
</div>

<div>
Sounds more like a routing or switch issue... Possibly the ionformation of the IT is correct, the systems are online, but if a router or switch doesn't work as expected, you just can not reach them. You may try to trace the path... tracert IP to see, if there is a routing path to the target.&nbsp;
</div>

<div>
<div class="content wysiwyg-content fr-view">
I have a table (tblHostNames) that has a list of all our PC names in it. These hostnames are displayed on a form. &nbsp;I would like to have button that pings each host name and if it is reachable it changes the color to green and if not then to red. &nbsp;I know I can use conditional formatting for the color changes so that's not an issue. &nbsp;I just can't find much when it comes to using a table to ping host names. &nbsp;Is there a way to do this? Thanks John 
</div>
</div>


I have a table (tblHostNames) that has a list of all our PC names in it. These hostnames are displayed on a form.  I would like to have button that pings each host name and if it is reachable it changes the color to green and if not then to red.  I know I can use conditional formatting for the color changes so that's not an issue.  I just can't find much when it comes to using a table to ping host names.  Is there a way to do this?
Thanks
John

How do I ping a list of computers from a table

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.