Ricerca di un server SQL

Spesso è necessario ricercare i server sql disponibili sul computer in uso e su quelli remoti, per far questo scorrazzando per la rete ho trovato alcune informazioni che mi hanno permesso di creare questa semplice funzioncina che carica su una combo i server trtovati. E' ancora grezza e certamente da continuare a sviluppare ma certamente sul mio computer mi elenca i server disponibili anche inj questa versione. Imports Microsoft.SqlServer.Management.SmoImports Microsoft.SqlServer.Management.Smo.RegisteredServers Private Sub CercaServer(ByRef combo As ComboBox)Dim Servers() As RegisteredServer = SmoApplication.SqlServerRegistrations.EnumRegisteredServers()For Each s As RegisteredServer In Serverscombo.Items.Clear() 'Console.Write(s.Name)combo.Items.Add(s.ServerInstance)NextEnd Sub