谁知道怎样取得SQL Server 2000 服务器的名称？？

Question

取得当前网络中可以使用的数据库服务器名称，以便于在程序运行中连接不同的服务器？？多谢！

Answer 1

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;在精华区里面有