Pour SQL server 2000
strDBServerName = "."strDBToDelete = "nom_de_la_base_de_données"
Set objSQLServer = CreateObject("SQLDMO.SQLServer")objSQLServer.LoginSecure = TrueobjSQLServer.Connect strDBServerName
objSQLServer.KillDatabase strDBToDelete