Set tcpip = CreateObject("SHOTIP.Connection") Set pdata = tcpip.Ping(thathost) Response.Write "<BR>Averate time: " & pdata.AverageTime