如何在dephi中通过函数获得局域网所有的服务器名字和服务器中数据库的名字！

转贴：
function TFormDataSet.GetSQLServer(ComboBox: TComboBox): Boolean;
var
  SQLServer: Variant;
  ServerList: Variant;
  i, nServers: integer;
  sRetValue: string;
begin
  ComboBox.Items.Clear;
  Result := False;
  try
    Screen.Cursor := crHourGlass;
    SQLServer := CreateOleObject('SQLDMO.Application');
    ServerList := SQLServer.ListAvailableSQLServers;
    nServers := ServerList.Count;
    for i := 1 to nServers do
      ComboBox.Items.Add(ServerList.Item(i));
    SQLServer := NULL;
    ServerList := NULL;
    Result := True;
    cbSQLServer.Style := csDropDownList;
  except
  end;
  Screen.Cursor := crDefault;
end;