[VBScript]
function ISYSEngine.GetIndexMetadata(_
  string Indexes, _ 
  string Fields_ 
) as ISYSMetadataRefinement

[C#]
IISYSMetadataRefinement  ISYSEngine.GetIndexMetadata(
  string Indexes, 
  string Fields
);

[ColdFusion/Java]
IISYSMetadataRefinement  IISYSEngine.GetIndexMetadata(
  java.lang.String Indexes, 
  java.lang.String Fields
) throws ComException;

Sub ShowRefinement(Item)
    Print Item.Name
    For I = 1 to Item.Count
        Print Space(4) & Item.Value(I).Name
    Next  
End  Sub  

Set MetadataSummary = ISYSEngine.GetIndexMetadata("c:\isysindex", "")

For  Each Refinement in MetadataSummary
    ShowRefinement Refinement
Next  

' Sample Output  
' Department  
'     HR  
'     Administration  
'     Marketing  
'     Support  
' Author  
'     John Smith  
'     Fred Jones  
' Company  
'     AMCE Inc  
'     Random Aerospace