请各位高手帮忙!如何能搜索到局域网内所有的sql server服务器名?

Question

这是用delphi写的完成此功能的一段程序,不知会不会对你有些帮助.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;