以前は、SQL-DMO を使用して VBS でスクリプトを実行し、新しいデータベースを作成していました。これは SQL Server 2000 で行われましたが、SQL Server 2008 R2 では機能しなくなりました。
スクリプトは次のようになります。
Const C_SQL_UID = "sa"
Const C_SQL_PWD = "sa"
Const C_SQL_SERVER = "dbserver"
Const C_SQL_TMPDBNAME = "TMP_DB"
Const C_SQLDIR = "d:\data"
Dim SqlServer: Set SqlServer = CreateObject("SQLDMO.SqlServer")
SqlServer.Connect C_SQL_SERVER, C_SQL_UID, C_SQL_PWD
Dim database: Set database = CreateObject("SQLDMO.Database")
Dim dbDataFile: Set dbDataFile = CreateObject("SQLDMO.DBFile")
Dim dbLogFile: Set dbLogFile = CreateObject("SQLDMO.LogFile")
database.Name = C_SQL_TMPDBNAME
dbDataFile.Name = C_SQL_TMPDBNAME
dbDataFile.PhysicalName = C_SQLDIR & "\" & C_SQL_TMPDBNAME & "_Data.mdf"
dbDataFile.PrimaryFile = True
dbDataFile.Size = 2
dbDataFile.FileGrowthType = 0 'SQLDMOGrowth_MB
dbDataFile.FileGrowth = 1
database.FileGroups.Item("PRIMARY").DBFiles.Add(dbDataFile)
dbLogFile.Name = C_SQL_TMPDBNAME & "Log"
dbLogFile.PhysicalName = C_SQLDIR & "\" & C_SQL_TMPDBNAME & "_Log.ldf"
dbLogFile.Size = 2
database.TransactionLog.LogFiles.Add(dbLogFile)
On Error Resume Next
SqlServer.Databases.Add(database)
If Err Then
wscript.echo Now & " Error creating DB (" & Err.Number & ") " & Err.Description
End If
On Error GoTo 0
最後の命令 ("SqlServer.Databases.Add(database)") を実行すると、エラー番号 -2147219701 が表示されます ... これには説明が含まれていません。どこから来るのかわかりません。Microsoft が DMO を削除したことは知っていますが、SMO は VBScript をサポートしていないため、選択肢がありません。
何か案は?