"Pinger" diagnostic program to test robot network.

[Mark McLeod]

Very nice, immediately useful application of LabVIEW.
I downloaded the source posted and only got an executable.

[PhilBot]

Originally Posted by Mark McLeod

I downloaded the source posted and only got an executable.

Oops, that was an early zip. The latest one was in a different folder.

I uploaded the latest, but can't seem to delete the original attachment.

Use the one that says "Full Source".

Phil.

[keen101]

cool. thanks.

Having the extra overhead of all that pinging will just slow it down.

I hadn't thought about that. I will keep that in mind. Thanks again.

[Marlfox]

thank you for the pinger!!!I freakin love you the only problem is that our cRIO is not pinging back to us, so we must have a problem with the cRIO. were re-imaging it now. I will be back if it doesn't work

[lynca]

Originally Posted by Marlfox

thank you for the pinger!!!I freakin love you the only problem is that our cRIO is not pinging back to us, so we must have a problem with the cRIO. were re-imaging it now. I will be back if it doesn't work

I have also seen problems with the cRIO not pinging back in a timely manner. I will ping the cRIO and get "unreachable" 3 or 4 times before the cRio returns a response. During those tests , I can always ping the DS, Router and Bridge with no problem.

[dqmot17]

I was also trying to make a program with a vbs script that does that. It comes to something like this:

set WshShell = CreateObject("WScript.Shell")
PC = Not CBool(WshShell.run("ping 10.2.47.6 -n 1 -w 150 " & vSystemIdentifier,16,True))
DS = Not CBool(WshShell.run("ping 10.2.47.5 -n 1 -w 150" & vSystemIdentifier,0,True))
router = Not CBool(WshShell.run("ping 10.2.47.4 -n 1 -w 150" & vSystemIdentifier,0,True))
bridge = Not CBool(WshShell.run("ping 10.2.47.1 -n 1 -w 150" & vSystemIdentifier,0,True))
cRIO = Not CBool(WshShell.run("ping 10.2.47.2 -n 1 -w 150" & vSystemIdentifier,0,True))

If PC = True and DS = True and router = True and bridge = True and cRIO = True Then
'successful
msgbox "It is Working",vbOkOnly
end if

if not PC = True and DS = True and router = True and bridge = True and cRIO = True then
'Unsuccessful ping
msgbox "Somthing is not Working"
End If
If PC = False then
msgbox "Please fix PC adress",vbRetryCancel
End If
If DS = False then
msgbox "Please fix DS adress",vbRetryCancel
End If
If router = False then
msgbox "Please fix Router adress",vbRetryCancel
End If
If bridge = False then
msgbox "Please fix bridge adress",vbRetryCancel
End If
If cRIO = False then
msgbox "Please fix cRIO adress",vbRetryCancel
End If