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.
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!!!