SupportedPlatforms
SQLServer2000
Yes
ScriptCode
strDBServerName="."
SetobjSQLServer=CreateObject("SQLDMO.SQLServer")
objSQLServer.LoginSecure=True
objSQLServer.ConnectstrDBServerName
SetcolDatabases=objSQLServer.Databases
ForEachobjDatabaseIncolDatabases
WScript.EchoobjDatabase.Name
Next
