ListalltheDatabasesonaSQLServer.

SupportedPlatforms

SQLServer2000

Yes

ScriptCode

strDBServerName="."

SetobjSQLServer=CreateObject("SQLDMO.SQLServer")

objSQLServer.LoginSecure=True

objSQLServer.ConnectstrDBServerName

SetcolDatabases=objSQLServer.Databases

ForEachobjDatabaseIncolDatabases

WScript.EchoobjDatabase.Name

Next