SQL SERVER服务器查找

Question

请问我如果想搜索我当前网段中的所有的SQL SERVER器的服务器名，应如何实现？
例如：
本网段内应该有两台SQL SERVER服务器，名称分别为server1和server2,实现点界面上的刷新按钮，能自动搜索到这两个服务器名，并显示在窗体上的COMBOBOX控件中。
谢谢！

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 := 0 to nservers - 1 do
      ListBox1.Items.Add(ServerList.Item(i));
  SQLServer:=NULL;
  serverList:=NULL;
end;

Answer 2

如何得到这个SQLDMO的OLE对象链接库？？？

Answer 3

CreateOleObject ，在ComObj 单元。