Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[VBS] Saber si hay conexión a internet.

  • 0 Respuestas
  • 2867 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado 79137913

« en: Enero 04, 2016, 09:55:57 am »
HOLA!!!

Este codigo en si no es malintencionado pero nos ahorra muchos errores en caso que nuestros scripts se ejecuten en una pc sin internet.

Código: Visual Basic
  1. Set objShell = wscript.CreateObject("WScript.Shell")
  2. 'EJECUTAMOS Y OBTENEMOS EL ESTADO DE ERROR DE PING
  3. PINGFlag = Not CBool(objShell.run("ping -n 1 google.com",0,True))
  4. If PINGFlag = True Then
  5.     'ACA CONTINUAMOS CON EL CODIGO
  6. Else
  7.     MsgBox "Google.com no responde el Ping", vbExclamation + vbOKOnly, "No hay coneccion a internet"
  8.     wscript.quit
  9. End If

GRACIAS POR LEER!!!
« Última modificación: Enero 04, 2016, 04:50:01 pm por Gabriela »
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scout Team*                                                   DOORS.PARTY

 

¿Te gustó el post? COMPARTILO!



[Scr] Conexión Inversa

Iniciado por k0ws

Respuestas: 0
Vistas: 2460
Último mensaje Enero 29, 2013, 05:12:32 am
por k0ws