set oSQLServer =server.createobject("SQLDMO.SQLServer")
oSQLServer.Connect  "數據庫IP,端口","用戶名","密碼"                          ' 連接數據庫

set tables =server.createobject("SQLDMO.Table")
Set tables = oSQLServer.Databases("數據庫名").Tables("表名")

set  idxProductName =server.createobject("SQLDMO.Index")
idxProductName.Name = "索引名"
idxProductName.FileGroup = "文件組"
idxProductName.Type = 索引類型
idxProductName.IndexedColumns = "[字段名]"

tables.Indexes.Add idxProductName

注:索引類型

SQLDMOIndex_Clustered  
SQLDMOIndex_Default
SQLDMOIndex_DRIIndex
SQLDMOIndex_DRIPrimaryKey  
SQLDMOIndex_DRIUniqueKey  
SQLDMOIndex_DropExist 
SQLDMOIndex_Hypothetical 
SQLDMOIndex_IgnoreDupKey  
SQLDMOIndex_NoRecompute  
SQLDMOIndex_PadIndex 
SQLDMOIndex_SortedData
SQLDMOIndex_SortedDataReorg  
SQLDMOIndex_Unique
SQLDMOIndex_Valid