update program/VBScript/template/commFun.vbs

add ad functions