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