VBScript函数