| Calculates bandwidth | |
|---|---|
Dim Trace, IP
Set Trace = CreateObject("TCPIP.Trace")
Trace.TimeOut = 8000
Trace.RequestSize = 32768
IP = Trace.OneStep(20, "www.microsoft.com")
MsgBox "Bandwidth : " & Trace.DataSize/Trace.RoundTripTime & " kBytes/s" | |
Provides TraceRoute (See asp or VB samples)
Object for simple IP adress and host name resolution, ASP and VB TraceRoute/ping.
© 1996 - 2009 Antonin Foller, Motobit Software | About, Contacts | e-mail: info@pstruh.cz