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
