Esempio LANCIO SUB VBscript