vbscript ping que muestre ok

[ergabifda]

Hola,
Estado mirando por el foro, y hay un script que te muestra todo el resultado de realizar un ping a un host:

Set objshell = createobject("wscript.shell")
Set ping = objshell.exec("cmd /c ping www.google.com")
Msgbox ping.stdout.readall

Mi pregunta es, si me podiais ayudar a que solo mostrará 1 si se realiza ping, y 0 en caso contrario.
Es decir, si recibidos es = 4, que muestre un 1.

Gracias de antemano.