powerdesigner , vbscript, how to list all columns of a ak (alternate key) via a vbscript or an other way?

Question

I work with a physical model powerdesigner (.pdm). I would like to list in a csv , all the columns of all keys (alternate key or primary key). The result would be in a line