VBscript函数