vbs

Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl
Set mdl = ActiveModel
If(mdl Is Nothing) Then
MsgBox " there is no current model"
ElseIf  Not mdl.IsKindOf(PdPDM.cls_Model) Then
MsgBox " there is not an physical data model"
Else ProcessFolder mdl
End If

Private sub ProcessFolder(folder)
Dim Tab
for each Tab in folder.tables
Dim col
for each col in tab.columns

MsgBox "table "+ tab
next

next
End sub