急呀大侠们你们知道怎么取得局域网中安有数据库的机器名及数据库名（SQL Server2000）

Question

我刚好写过这个函数，应该对你有用：用sql服务器的名字填充ComboBox的下拉列表：
procedure  GetSQLServer(ComboBox:TComboBox);
//搜索sql服务器的名字
var
   SQLServer:Variant;
   ServerList:Variant;
   i,nServers:integer;
   sRetValue:String;
begin
  SQLServer := CreateOleObject('SQLDMO.Application');
  ServerList:= SQLServer.ListAvailableSQLServers;
  nServers:=ServerList.Count;
  ComboBox.Clear;
  for i := 1 to nservers do
      ComboBox.Items.Add(ServerList.Item(i));
  SQLServer:=NULL;
  serverList:=NULL;
end;