Comprimir Archivos Con VbScript

Hola Foro, 
¿alguien me podría ayudar con algún código ejemplo en vbscript para que pueda comprimir en formato .zip  cualquier archivo indicado?
He encontrado en varias paginas el siguiente código pero la verdad no he podido hacerlo correr, únicamente necesito especificar que archivo se desea comprimir y eso sería todo.
Saludos.