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