TraceRoute tracks the route packets taken from an IP network on their way to a given host. It utilizes the IP protocol's time to live (TTL) field and attempts to elicit an ICMP TIME_EXCEEDED response from each gateway along the path to the host.
The TraceRoute object is part of the Network Component. Overview of all Network Component objects:
DnsServer & DnsRecord - Ftp & FtpFile - Http - Icmp - IPtoCountry - Msn - Ntp - Radius - Rsh - Scp - SFtp - Ssh - SnmpManager - SnmpTrapManager - SnmpMibBrowser - Tcp - Tftp - TraceRoute - Udp - Xen - Wake-on-LAN - Xen (Citrix)
Dim objTraceRt, objHop Set objTraceRt = CreateObject("ActiveXperts.TraceRoute") ' Create a traceroute instance objTraceRt.ResolveHostName = True objTraceRt.MaxHops = 30 Set objHop = objTraceRt.FindFirstHop( strHost ) ' Find first hop to www.activexperts.com If( objTraceRt.LastError <> 0 ) Then WScript.Echo "FindFirstHop failed, error #" & objTraceRt.LastError Else While( objTraceRt.LastError = 0 ) WScript.Echo "#" & objHop.Hop & ", IP:" & objHop.IP & " [" & objHop.Host &_ "], Time:" & objHop.ResponseTime & "ms" Set objHop = objTraceRt.FindNextHop ' Find next hop to www.activexperts.com WEnd End If
On ftp.activexperts-labs.com, you can find a lot of Network Component samples. These samples are also part of the Network Component installation.Visit ftp.activexperts-labs.com