Detectar perdida de conexion de Red

[lcisternas]

Hola amigos
Tengo una consulta, es posible detectar a traves de javascript o de VisualBasic script la perdida de conexion de un equipo a un Servidor?.

Me explico desde un equipo cliente inserto los registros un sistema en PHP con mysql(Ocupo tipo de tablas MYSAM), pero estoy casi seguro que cuando va a ser algun insert , existe perdida de conectividad por lo tanto no se realiza la insercion, ante eso quiero detectar la perdida de conexion y enviar un respectivo mensaje.

Se agradece cualquier ayuda.

[Aijoona]

Herramienta:
https://developer.mozilla.org/en/Onl...offline_events

Polyfill:
https://github.com/remy/polyfills/bl...line-events.js

[lcisternas]

El primer link esta bueno , pero no me sirve ya que verifica solo la conexion a internet.
Ando buscando alguna funcion que me haga algun ping.

[lcisternas]

Encontre este codigo:

<script language="VBScript" type="text/vbscript" >
Host="nemesis"
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonat e}")._
ExecQuery("Select * from Win32_PingStatus Where Address = '" & Host & "'")
For Each objStatus in objPing
strResult = "" & "Result: "
Select Case objStatus.StatusCode
Case 0 strResult = strResult & "Success"
Case 11001 strResult = strResult & "Buffer too small"
Case 11002 strResult = strResult & "Destination net unreachable"
Case 11003 strResult = strResult & "Destination host unreachable"
Case 11004 strResult = strResult & "Destination protocol unreachable"
Case 11005 strResult = strResult & "Destination port unreachable"
Case 11006 strResult = strResult & "No resources"
Case 11007 strResult = strResult & "Bad option"
Case 11008 strResult = strResult & "Hardware error"
Case 11009 strResult = strResult & "Packet too big"
Case 11010 strResult = strResult & "Request timed out"
Case 11011 strResult = strResult & "Bad request"
Case 11012 strResult = strResult & "Bad route"
Case 11013 strResult = strResult & "Time-To-Live (TTL) expired transit"
Case 11014 strResult = strResult & "Time-To-Live (TTL) expired reassembly"
Case 11015 strResult = strResult & "Parameter problem"
Case 11016 strResult = strResult & "Source quench"
Case 11017 strResult = strResult & "Option too big"
Case 11018 strResult = strResult & "Bad destination"
Case 11032 strResult = strResult & "Negotiating IPSEC"
Case 11050 strResult = strResult & "General failure"
Case Else strResult = strResult & "Unknown host"
End Select
strResult = strResult & " Host : " & UCase(Host)
Next
msgbox strResult
Set objPing = Nothing

</script>
Lo probe y funciona.