update program/VBScript/template/commFun.vbs

Add AdGetUserUPN