hacer un ping con shell

tengo un problema con el comando shell en access 2000
Quiero hacer un ping y el resultado enviarlo a un fichero de texto,
pero aunque el ping se ejecuta correctamente, no escribe en el
fichero.

Esto es lo que hago:
valor = Shell("ping direccionIP > C:\limpia\c.txt", 1)

He probado con un bat, y me ocurre lo mismo, se ejecuta el bat, pero
el fichero permanece vacio, aunque si ejecuto el bat manualmente
funciona correctamente.

Existe alguna otra funcion que permita hacer el ping y que no sea la
funcion shell?

Alguien puede ayudarme?

Gracias