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

  • 0 Respuestas
  • 3020 Vistas

0 Usuarios y 2 Visitantes están viendo este tema.

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 692
  • Actividad:
    3.33%
  • Reputación 16
  • 4 Esquinas
  • Skype: [email protected]
    • Ver Perfil
    • Doors.Party
    • Email

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

  • 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 Scouts Team*                                                   You are not allowed to view links. Register or Login

 

[Scr] Conexión Inversa

Iniciado por k0ws

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