This is a script that generates the SQL DDL for all indexes. 
It is useful if one wants to generate the SQL of all indexes separated from the SQL of tables. 


To run it:

1) bring up the Script Explorer

2) right click on "User Defined" and select "New Script"

3) copy/paste the attachment into the edit control

4) hit the run button (the first icon in the toolbar above the edit control)

Note: you can undo/redo the effects of this script as with any Model changes


/********** start of script *************/

Sub Evaluate_OnLoad()
 Set Context = CreateObject("SCF.ScriptContext")
 Set Document = Context.ScriptDocument
 Set ThisScript = Context.Object
 Set Options = Context.Options
 Dim CreateStmt
 Set Model = ThisScript.Model
 Set Tables = Model.AsObject.Children("Table")
 For Each Table In Tables
  Set Indexes = Table.Children("Index")
  For Each Index in Indexes
   CreateStmt = Index.Evaluate("Create Script")
   Document.Write(CreateStmt & vbNewLine)
  Next
 Next
End Sub