non riesci a chiamare la funzione con vbscript.
Non ho il tempo di convertirtela