set oSQLServer =server.createobject("SQLDMO.SQLServer")
oSQLServer.Connect "数据库IP,端口","用户名","密码" \' 连接数据库
set oSQLServer =server.createobject("SQLDMO.Database")
set oDBFileData =server.createobject("SQLDMO.DBFile")
set oLogFile =server.createobject("SQLDMO.LogFile")
oDatabase.Name = "test"
oDBFileData.Name = "test1"
oDBFileData.PhysicalName = "c:program filesmicrosoft sql servermssqldatatest.mdf"
oDBFileData.PrimaryFile = True
oDBFileData.FileGrowthType = SQLDMOGrowth_MB
oDBFileData.FileGrowth = 1

oDatabase.FileGroups("PRIMARY").DBFiles.Add oDBFileData

oLogFile.Name = "test1"
oLogFile.PhysicalName = "c:program filesmicrosoft sql servermssqldatatest.ldf"
oDatabase.TransactionLog.LogFiles.Add oLogFile

oSQLServer.Databases.Add oDatabase