vbscript: Implemented TypeName