Graziano vb.net

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.Smo

Imports

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)

Next

End Sub