如何获得局域网的sqlserver 服务器列表？就像查询分析器的服务器列表一样！(100分)

如何获得局域网的sqlserver 服务器列表？就像查询分析器的服务器列表一样！

我也有这个问题，SQL　SERVER　安装后有一个SQLDMO.dll,
这个应该有用，但我在注册它时出错，：（

这个函数就可以列出局域网的SQL服务器列表，给分吧！

procedure GetNetWorkServer;
var
SQLServer: Variant;
ServerList: Variant;
i,nServers: integer;
begin
try
frmServer.Cursor := crHourGlass;
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
Application.ProcessMessages;
nServers := ServerList.Count;
frmServer.ComboBox1.Items.Clear;
for i := 1 to nservers do
frmServer.ComboBox1.Items.Add(ServerList.Item(i));
frmServer.ComboBox1.ItemIndex := 0;
finally
SQLServer := NULL;
serverList := NULL;
frmServer.Cursor := crDefault;
end;
end;

来自：夜黑风高, 时间：2002-5-8 14:40:00, ID：1089201
uses
comobj;

procedure TForm1.btnButton1Click(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;

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2057477

歇歇！

号