<%
' Cria uma instância do controle
Set NetDll = Server.CreateObject("NETDLL.Network")
Response.Write "<b>Ping:</b> "& netDLL.Ping("209.85.193.147", "5", True) &"<br />"
Response.Write "<b>GetHostFromIP:</b> "& netDLL.GetHostFromIP("209.85.193.147") &"<br />"
Response.Write "<b>GetIPAddress:</b> "& netDLL.GetIPAddress("www.google.com.br") &"<br />"
Response.Write "<b>GetIPHostName:</b> "& netDLL.GetIPHostName() &"<br />"
Response.Write "<b>Using GetIPAddress with GetIPHostName:</b> "& netDLL.GetIPAddress( netDLL.GetIPHostName() ) &"<br />"
' Tira o objeto da memória
Set NetDll = Nothing
%>