读取服务器的连接个数?

Question

各位大哥，我想开发一个系统，用ADO读出本机网络上所有SQL服务器，并把他们数据库全部读出来，请问怎么处理?

Answer 1

显示SQL Server服务器
--------------------------------
转贴：如何显示装有SQL SEVER2000的机器名
如有三台电脑a,b,c,a和b装有SQL SEVER2000,如何在一个列表里显示a和b?： qiubolecn(来自差生市)
  两个方法，一个是用 
netenumserver它的servertype为SV_TYPE_SQLSERVER    二是用procedure TForm1.Button1Click(Sender: TObject);
var
   SQLServer:Variant;
   ServerList:Variant;
   i,nServers:integer;
   sRetValue:String;
begin
  SQLServer := CreateOleObject('SQLDMO.Application');
  ServerList:= SQLServer.ListAvailableSQLServers;
  nServers:=ServerList.Count;
  for i := 1 to nservers do
      ListBox1.Items.Add(ServerList.Item(i));
  SQLServer:=NULL;
  serverList:=NULL;
end; 
--------------------------------

Answer 2

得到数据库名称：
SELECT * FROM sysdatabases