Know List Database And Table In SQL Server

I use this macro to list in A column of sheet the name of sql server on
my lan.
Is possible to "scan server by server" and insert into column B the
name of database and related table?
Tks.
Sub test_sql()
Dim TEST As String
Dim RIGA As String

Set sqlApp = CreateObject("SQLDMO.Application")


Set serverList = sqlApp.ListAvailableSQLServers


numServers = serverList.Count
RIGA = 2


For I = 1 To numServers


TEST = serverList(I)


Range("A" + RIGA) = TEST
RIGA = RIGA + 1
Next


Set sqlApp = Nothing


End Sub