Sub Evaluate_OnLoad()
 Set Context = CreateObject("SCF.ScriptContext")
 Set ThisScript = Context.Object
 Set Options = Context.Options
 Set Model = ThisScript.Model

 Dim NumRows, x1, col
 NumRows = 2
 Set ExcelDoc = CreateObject("Excel.Application")
 ExcelDoc.Visible = true 
 ExcelDoc.Workbooks.Add
 ExcelDoc.Range("A1").Value = "Table"
 ExcelDoc.Range("B1").Value = "Column"
 ExcelDoc.Range("C1").Value = "Datatype"
 Set Tables = Model.AsObject.Children("Table")
 For Each Table In Tables
  TableName = Table.Property("Name").AsString
  Set Columns = Table.Children("Column")
  For Each Column in Columns
   ExcelDoc.Range("A" + Cstr(NumRows)).Value = TableName
   ExcelDoc.Range("B" + Cstr(NumRows)).Value = Column.Property("Name").AsString
   ExcelDoc.Range("C" + Cstr(NumRows)).Value = Column.Property("Datatype").AsString    
   NumRows = NumRows + 1
  Next
 Next

 ExcelDoc.Columns("A:C").EntireColumn.AutoFit                    
 ExcelDoc.Rows("1:" + cstr(NumRows)).EntireRow.AutoFit 
    

End Sub