<% rem * Crea el objeto Set Pinger = Server.CreateObject("AspPing.Conn") rem * Servidor Pinger.RemoteHost = "www.servidor.com" rem * Numero de veces a hacer ping al servidor, por defecto 1 Pinger.PingCount = 2 rem * Resultado del ping rem * Debe ser tratato correctamente para visualizarlo con terminal movil Response.Write "Resultado:
" & Pinger.Ping rem * Libera el objeto Set Pinger = nothing %>