Extract all logical table from a physical Model powerdesigner with vbscript

Question

could someone help me please with a vbscript code that list only the logical tables from a PDM model ?