MOTOBIT.COM - ASP upload, IIS utility Simple trace for VB

  Dim Trace
  Set Trace = CreateObject("TCPIP.Trace")
  Dim I, IP, RoundTripTime, Status, TTL
  Trace.TimeOut = 8000
  For I = 1 To 10
    IP = Trace.OneStep(I, "www.microsoft.com")
    Debug.Print IP & Chr$(9) & Trace.RoundTripTime & Chr$(9) & Trace.TTL & Chr$(9) & Trace.Status
    If Trace.Status = 0 Then I = 100
  Next I