Banda Ancha EU

Comunidad de usuarios
de fibra, móvil y ADSL

Fijo

Desconexiones esporádicas

vircotto

Hola.

Desde hace bastantes meses soy un sufridor más de las "desconexiones esporádicas" de Euskaltel (pierdo la navegación http aunque sigo teniendo IP válida). No es que sea demasiado preocupante, porque con un IPCONFIG /RELEASE y un IPCONFIG /RENEW se soluciona. De hecho tengo un script puesto para que cada tres horas lo haga y me va bien.

Lo que andaba preguntándome yo es si no habrá algún programa que detecte la pérdida de http y que ejecute el script sólo en ese caso. ¿Conocéis algún programa que me pudiera servir?

Gracias por las respuestas.

Este tema está cerrado a nuevas respuestas. Abre un nuevo tema para retomar la conversación.
Ari

Aunque es un problema causado por tu conexión con Euskaltel, no sé si sería mejor que preguntaras en el foro de windows: es sólo una sugerencia. He leido preguntar este tema en alguna ocasión, aunque no recuerdo que se haya respondido de forma afirmativa o negativa.

Puedes intentarlo allí, si quieres y lo ves conveniente.

Un saludo

arrainahoa

Entiendo que estás conectado al modem directamente (sin router, me refiero) y por cable ethernet.
¿Has probado a desactivar la opción de ahorro de energía en propiedades de tu tarjeta de red?

🗨️ 6
vircotto

Pues no, no lo había probado pero lo acabo de hacer, tendré que dejar unas horas para comprobar el resultado.

De todas formas siempre había pensado que podría ser cosa de Euskaltel, porque me pasa en el ordenador nuevo y me pasaba en el antiguo. Mi intención era más bien buscar un programa que me ayude a detectar la pérdida de la conexión y retomarla. Preguntaré como también me habéis sugerido en el foro de Windows, a ver si saco algo en claro.

Gracias.

🗨️ 5
arrainahoa

Prueba lo dicho. De todos modos te dejo aquí un script VBS que hace ping a máquinas y anota resultados en un LOG.
En caso de PING sin respuesta hace un RENEW para obtener nueva IP y opcionalmente puede enviar aviso por mail.
Copia y pega el código a un archivo y lo llamas PING2.VBS
Echale un ojo a ver si te sirve.

/---------------- INICIO DEL ARCHIVO PING2.VBS ---------------

'***************************************************
' PARAMETROS DE CONFIGURACION
'***************************************************
'
'Indica aquí el archivo que contendrá la lista de IPs a las que hacer PING
'Debe contener solo los destinos (sin descripción) y a razón de uno por fila
'Ejemplo:
' 212.55.8.132
' smtp.euskalnet.net
' 194.224.52.4
Const ServersListFile="c:\servers.txt"

'Indica aquí el archivo LOG para anotar los resultados obtenidos
Const sOutPutLogFile="c:\ping.log"

'Valor respuesta devuevlto por comando PING
'en función del idioma del Sistema Operativo
' English "Reply"
' Español "Respuesta"
Const sReply="Respuesta"

'valores para envío de notificación por email
'Activar (1) o desactivar(0) enviar alerta por email
'en caso de producirse error de PING
Const SendMailAlert=0
'Dirección del emisor de la alerta (puede ser ficticia)
Const sMailSender="origen@midominio.com"
'Dirección del destinatario de la alerta (debe ser una dirección válida)
Const sMailRecipient="destino@midominio.com"

'Valor necesario para correcto funcionamiento. No cambiar
Const ForReading = 1

'***************************************************
' INICIO DEL SCRIPT
'***************************************************

Main

Sub Main
On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(ServersListFile, ForReading)

Do Until objTextFile.AtEndOfStream
strComputer = objTextFile.Readline

Set objShell = CreateObject("WScript.Shell")
strCommand = "%comspec% /c ping -n 3 -w 1000 " & strComputer & " >>" & sOutPutLogFile
Set objExecObject = objShell.Exec(strCommand)

Do While Not objExecObject.StdOut.AtEndOfStream
strText = objExecObject.StdOut.ReadAll()
If Instr(strText, sReply) > 0 Then
'PING OK
Exit Do
Else
'PING ERROR
strCommand2 = "%comspec% /c ipconfig /renew >>" & sOutPutLogFile
Set objExecObject = objShell.Exec(strCommand2)
strText2 = objExecObject.StdOut.ReadAll()
Exit Do

If SendMailAlert=1 Then
'envío de alerta por email
Set objEmail = CreateObject("CDO.Message")

objEmail.From = sMailSender
objEmail.To = sMailRecipient
objEmail.Subject = "Server down"
objEmail.Textbody = strComputer & "Server is no longer accessible over the network."'
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"my-smtp-server"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
End If

End If
Loop
Loop

objTextFile.Close
End Sub

/---------------- FIN DEL ARCHIVO PING2.VBS ---------------

🗨️ 3
vircotto

Voy a probarlo. No sé si me servirá, pero tiene muy muy buena pinta. Muchas gracias.

🗨️ 2
jonnysword

No será que usas Windows Vista, ¿¿Verdad??

WOW!!

🗨️ 17
HANNIBALSMITH

WOW que mierda de S.O. ;-)

🗨️ 6
Bilbokoa

Un fiasco en toda regla.

🗨️ 5
HANNIBALSMITH

Y encima con el DRM

🗨️ 4
Bilbokoa
🗨️ 3
vircotto

¡Ni loco! Uso Windows XP, que ya tiene bastante delito, y no pienso cambiarlo hasta dentro de muuuuuuuuucho tiempo o hasta que me fuercen a hacerlo.

🗨️ 9
jonnysword

ok! Pensaba que vo vaya a ser otro problemilla de esos del Windows WOW ;-)

Bilbokoa

Ya somos dos.

🗨️ 7
Bilbokoa
🗨️ 5
Bilbokoa
🗨️ 3
Bilbokoa
🗨️ 1
BocaDePez
BocaDePez

ayer y hoy en basauri llebo sufriendo perdida de paketes (12%), y en ping en los juegos se dispara, a 550 o asi, eso si, la velocidad sigue igual a saber porke sera

🗨️ 11
Bilbokoa

Tranquilo, es pasajero, a mi me tocó el otro día. Soy de Bilbao.

🗨️ 10
jonnysword

a mi lphant se le cae el upload cada dos por tres, el download de momento va bien, pero la barra roja sube y baja, va todo el día así...

🗨️ 9
Bilbokoa

Yo no lo uso...¿has probado el utorrent? Va de lujo.

🗨️ 8
Ari
🗨️ 6
Ari
🗨️ 4