Para el que necesite, esto funciona en cliente
<script language="vbscript">
'Función de Shell
function ejecutar()
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell") WSHShell.run("C:\listados.xls ")
set WSHShell = nothing
end function
</script>
nabina