如何能够读出本地局域网网段内活动的SQL Server服务器名？

Question

能不能得到IP地址？

Answer 1

没人知道吗？只要读出活动的SQL Server服务器名就行。

Answer 2

早就有人贴过了
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;delphi6通过

Answer 3

呵呵，我想然发贴的人自己找出这个问题的，没想到hlddg说出答案了