Aspping komponet fejl

Hvorfor virker dette ikke... den giver bare en blank side???
og det er min egen computer der har 192.168.1.3

<%
  rem ***********************************************************
  rem * Create the object
  rem ***********************************************************
  Set Pinger = Server.CreateObject(\"AspPing.Conn\")

  rem ***********************************************************
  rem * Set the host we\'ll be pinging
  rem ***********************************************************
  Pinger.RemoteHost = \"192.168.1.3\"

  rem ***********************************************************
  rem * Optional count for number of times to ping remotehost
  rem * defaults to 1
  rem ***********************************************************
  Pinger.PingCount = 1


  rem ***********************************************************
  rem * Ping and then dump the results
  rem ***********************************************************
  Response.Write \"<pre>\" & Pinger.Ping & \"</pre>\"

  rem ***********************************************************
  rem * Release the object
  rem ***********************************************************
  Set Pinger = nothing

%>