'*****************************************************
'		Script Written by Larry Heintz
'		Dec 2007 www.windowsadminscripts.com
' This script will display all sql dbases on the
' sql server name you enter.
'
' usage cscript enumsql.vbs  *will use local pc for server
' or
' usage cscript enumsql.vbs /computer:[sql server name]
'*****************************************************
Dim args,strDBServerName
Dim objSQLServer,colDatabases,objDatabase
Set args = Wscript.Arguments.Named

if args.Item("computer") <> "" then
	strDBServerName = args.Item("computer")
else
	strDBServerName = getComputer()
end if

'Connects to SQL Server
'Displays all SQL Dbases
Set objSQLServer = CreateObject("SQLDMO.SQLServer")
objSQLServer.LoginSecure = True
objSQLServer.Connect strDBServerName

Set colDatabases = objSQLServer.Databases

For Each objDatabase In colDatabases
   WScript.Echo objDatabase.Name
Next

set colDatabases = nothing
set objSQLServer = nothing

Function getComputer()
	Dim objNet
	Set objNet = WScript.CreateObject("WScript.Network") 
	getComputer = objNet.ComputerName 
	Set objNet = Nothing 
End Function