如何列举局域网内的所有SQL server服务器？？（在线）

Question

如何列举局域网内的所有SQL　server服务器？？（在线）

Answer 1

在你的sql server服务管理器中刷新服务，就可以了
如果是在delphi 中，那我还要去研究下。

Answer 2

Function GetSQLServerList(var List: Tstringlist): boolean;
var
   i: integer;
   sRetValue: String;
   SQLServer: Variant;
   ServerList: Variant;
begin
  Result := False;
  List.Clear;
  try
    SQLServer := CreateOleObject('SQLDMO.Application');
    ServerList := SQLServer.ListAvailableSQLServers;
    for i := 1 to Serverlist.Count do
      list.Add (Serverlist.item(i));
    Result := True;
  Finally
    SQLServer := NULL;
    ServerList := NULL;
  end;
end;

Answer 3

// 搜搜 , 原来有的 ; 列举 Sql Server 2000 数据库服务器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   // for i := 1 to NServers do 也可以
      ListBox1.Items.Add(ServerList.Item(i));
  SQLServer:=NULL;
  serverList:=NULL;
end;

Answer 4

这个我用过，怎么有时候能列举到5台，有些时候能列举到3台。
实际情况是：本局域网内有7台SQL server服务器，
怎么会出现这种情况？？