Test ( Ping ) IP Address Class - ICMP

[Dave Sell]

Found this code out there and re-tooled it into a Class with 5 Public Members:


Dim ICMP as cls_ICMP
Dim blnValid as Boolean
'
Set ICMP = New cls_ICMP
'
blnValid = ICMP.IsAddressValid "HostName or IP"
'
blnValid = ICMP.IsAddressAlive "HostName or IP"
'
MsgBox ICMP.TraceRoute "HostName or IP", "timeout_val"
'
MsgBox ICMP.AverageResponseTime "HostName or IP", "chars", "packets", "timeout_val"
'
MsgBox ICMP.SendEcho "HostName or IP", "chars", "packets", "timeout_val"
'


Supposedly works on all Windows systems but only tested on XP Pro.