如何得到局域网里的所有数据库服务器的名字，得到后如何得到该服务器里的所有数据库的名字

[tianye606]

如何得到局域网里的所有数据库服务器的名字，得到后如何得到该服务器里的所有数据库的名字？
我现在正在做一个软件，界面会用vb来完成，其中的数据分析可以用其他语言来完成，比如：vc,delphi等等。现在我需要取得局域网里所有数据库服务器的名字，以及这些服务器里的所有数据库的名字，如何实现，向各位高手请教，可以用任何工具，也可用任何计算机语言。
谢谢`

[Augue]

从数据库服务器里，就可以看的到；用ADO也可以看的到。
只要哪个数据库服务器正在运行的话。

简单的方法就是用ADO,不论是SQL Server还是Oracle等等数据库服务器
都能看的到。

[Augue]

补充：用VB操作数据库，比较方便，快捷。

[tianye606]

我知道通过ADO能看到所有的服务器和数据库，我现在需要在程序里实现这个功能，如果ADO能够取得数据库服务器和数据库供我的程序使用也是可以的。
可能是我开始说得不够清楚，希望高手能在指教。还有什么不清楚的清提醒我再次补充
谢谢

[playyuer]

'列印 SQL Server
'引用 Microsoft SQLDMO Objects Libary
Dim i As Integer
Dim SQLDMOAppX As New SQLDMO.Application
Dim NameListX As SQLDMO.NameList
Set NameListX = SQLDMOAppX.ListAvailableSQLServers
For i = 0 To NameListX.Count - 1
Debug.Print NameListX.Item(i + 1)
Next

'至于列印所有数据库,肯定要先 Login
'然后再用 SQLDMO 所含数据库:

Dim SQLServerX As New SQLServer
SQLServerX.Connect "servername", "sa", "password"
Dim i As Long
For i = 0 To SQLServerX.Databases.Count - 1
Debug.Print SQLServerX.Databases.Item(i + 1).Name
Next i

[tianye606]

谢谢playyuer
我的EMail是
[e-mail]
如果方便的话，我们可以多联系联系。
仰慕之极