怎样象SQLSERVER2000的客户端一样列出局域网中所有SQLSERVER2000实例。(50分)

或是找出装有SQLSERVER2000的机器的IP也可啊。

下面的过程可以在ListBox中列出SQL Server服务器列表,别忘了引用Comobj单元。
procedure GetSQLServerList;
var
SQLServer:Variant;
SQLServerList:Variant;
i,nServers:Integer;
sRatvalue:string;
begin
SQLServer:=CreateOLEObject('SQLDMO.Application');
SQLServerList:=SQLServer.ListAvailableSQLServers;
nServers:=SQLServerList.Count;
for i:=1 to nServers do
ListBox1.Items.Add(SQLServerList.Item(i));
SQLServer:=null;
SQLServerList:=null;
end;

高，实在是高，I服了U，THANKS！

用SQL Server就必须装SQL Server才可，那么我想用ADO该如何？

请教各位？