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.[B]IsAddressValid [/B]"HostName or IP"
'
blnValid = ICMP.[B]IsAddressAlive [/B]"HostName or IP"
'
MsgBox ICMP.[B]TraceRoute [/B]"HostName or IP", "timeout_val"
'
MsgBox ICMP.[B]AverageResponseTime [/B]"HostName or IP", "chars", "packets", "timeout_val"
'
MsgBox ICMP.[B]SendEcho [/B]"HostName or IP", "chars", "packets", "timeout_val"
'

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