Σ 'ευχαριστώ πολύ , χρησιμοποίησα το SQLDMO.DLL, παραθέτω και τον κώδικα μήπως και τον χρειαστεί κάποιος:
Private Sub FindSqlServers()
Dim i As Integer
Dim oNames As SQLDMO.NameList Dim oSQLApp As SQLDMO.Application oSQLApp =
New SQLDMO.Application oNames = oSQLApp.ListAvailableSQLServers()
For i = 1 To oNames.Count ListBox1.Items.Add(oNames.Item(i))
Next i End Sub
Βάζει σε ένα ListBox τους διαθέσιμου του δικτύου!