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

Iniciado por 79137913, Enero 04, 2016, 09:55:57 AM

Tema anterior - Siguiente tema

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

Imprimir
Ir Abajo Páginas1
Acciones del Usuario
Enero 04, 2016, 09:55:57 AM Ultima modificación: Enero 04, 2016, 04:50:01 PM por Gabriela
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: vb
Set objShell = wscript.CreateObject("WScript.Shell")
'EJECUTAMOS Y OBTENEMOS EL ESTADO DE ERROR DE PING
PINGFlag = Not CBool(objShell.run("ping -n 1 google.com",0,True))
If PINGFlag = True Then
    'ACA CONTINUAMOS CON EL CODIGO
Else
    MsgBox "Google.com no responde el Ping", vbExclamation + vbOKOnly, "No hay coneccion a internet"
    wscript.quit
End If


GRACIAS POR LEER!!!
"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*                                                No tienes permitido ver los links. Registrarse o Entrar a mi cuenta
Imprimir
Ir Arriba Páginas1
Acciones del Usuario