Painel de Monitoramento com PING

[lifenetwork 0]

Bom dia

 

 

Alguém sabe me dizer como posso fazer um sistema assim

 

Tenho uma página onde preciso monitorar alguns DDNS e Sites ex : xxx.ddns-intelbras.com.br

 

Gostaria que a sistema desse um Ping de 5 em 5 min ou ate mais tempo para ver se ele esta on-line caso seja sim fica uma bolinha verde caso seja não fica um bolinha vermelha.

 

 

Obrigado

[xanburzum 169]

eu faço assim:

 

<% Response.Buffer = true %> 
<% 
    url = "www.espn.com" 
 
    Set objWShell = CreateObject("WScript.Shell") 
    Set objCmd = objWShell.Exec("ping " & url) 
    strPResult = objCmd.StdOut.Readall() 
    set objCmd = nothing: Set objWShell = nothing 
 
    strStatus = "offline" 
    if InStr(strPResult,"TTL=")>0 then strStatus = "online" 
 
    response.write url & " is " & strStatus 
    response.write ".<br>" & replace(strPResult,vbCrLf,"<br>") 
%>

Se você estiver executando o Windows XP ou Windows.NET Server, você pode usar o novo namespace Win32_PingStatus do WMI, por exemplo:

<%
url = "www.espn.com"

WMI = "winmgmts:{impersonationLevel=impersonate}"

wqlQuery = "SELECT StatusCode FROM Win32_PingStatus WHERE Address" & _
" = '" & url & "'"

set PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48)


Response.write url & " is "
For Each result in PingResult
if clng(result.StatusCode)>0 then
response.write "offline"
else
response.write "online"
end if
Next
%>

 

Se por algum motivo você não pode usar o shell ou WMI, existem muitos componentes que podem lidar com a tarefa, ou para aqueles hosts que não tem componente de ping, senão você pode usar um componente, como:

 

ASPPing

DesPing

DSPing Pro

DynuDNS

kutil

NETDLL
(currently the download link is 404)

w3 Utils