update program/VBScript/template/commFun.vbs