复制代码 代码如下:
DB_SIZE_IN_MEGABYTES=5
strDBServerName="."
SetobjSQLServer=CreateObject("SQLDMO.SQLServer")
objSQLServer.LoginSecure=True
objSQLServer.ConnectstrDBServerName
SetobjDB=CreateObject("SQLDMO.Database")
SetobjFG=CreateObject("SQLDMO.Filegroup")
SetobjDBFile=CreateObject("SQLDMO.DBFile")
SetobjLogFile=CreateObject("SQLDMO.LogFile")
objDB.Name="ScriptingGuysTestDB"
objDBFile.Name="ScriptingGuysTestDB_Data"
objDBFile.PhysicalName="C:ProgramFilesMicrosoftSQLServerMSSQLdataScriptingGuysTestDB_Data.MDF"
objDBFile.Size=DB_SIZE_IN_MEGABYTES
objDB.FileGroups("PRIMARY").DBFiles.Add(objDBFile)
objSQLServer.Databases.Add(objDB)
