Utilize este componente para verificar se um computador está online, retornar o tempo de resposta e até mesmo converter endereços para IP.
Copie o código abaixo:
<%
' Cria objeto utilizando o componente ping
Set objPing = Server.CreateObject("Caiac.Ping")
' Executa o comando
objPing.Executar("www.caiac.com.br")
If objPing.Retorno = 0 Then ' SUCESSO
Response.Write "Sucesso!<br><br>"
Response.Write "Endereço IP: " & objPing.IP & "<br>"
Response.Write "Mensagem: " & objPing.Mensagem & "<br>"
Response.Write "Latência: " & objPing.Latencia & "<br>"
Else ' ERRO
Response.Write "Erro: " & objPing.Retorno & "<br><br>"
Response.Write "Endereço IP: " & objPing.IP & "<br>"
Response.Write "Mensagem: " & objPing.Mensagem & "<br>"
End If
' Retira objeto da memória
Set objPing = Nothing
%>
Em caso de dúvidas, entre em contato conosco. Teremos o maior prazer em atendê-lo.
Qualidade superior de acesso: Velocidade com conexão digital, acesso rápido com economia.
Saiba maisTrata-se da nova geração de acessos à internet em alta velocidade, várias vezes mais rápido do que a conexão...
Saiba maisA netWIZARD, voltada para o foco corporativo, implementou serviços de conectividade perma-nente...
Saiba maisÉ extremamente importante que você registre seu domínio na Internet (sua_empresa.com.br)...
Saiba maisNetwizard Informática Ltda. © 2010 | Todos os direitos reservados
Caiac