如何显示装有SQL SEVER2000的机器名

如何显示装有SQL SEVER2000的机器名 如有三台电脑a,b,c,a和b装有SQL SEVER2000,如何在一个列表里显示a和b?
： qiubolecn(来自差生市)
两个方法，一个是用
netenumserver
它的servertype为SV_TYPE_SQLSERVER
二是用
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;