如何用Delphi取得局域网上的数据库服务器？(200分)

[?]各位大虾，我现在需要取得局域网上的数据库服务器，不是全部的局域网机器，我用了第三方控件，但只能得出全部的局域网机器，如果谁能教我，就谢谢啦！
zmylch@163.com

得到网络中的SQL Server服务器：

来自：夜黑风高, 时间：2002-5-8 14:40:00, ID：1089201
------------------------------------------------------------------
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;
end.

嘿嘿！我来了！

接受答案了.