Finding all MSSQL dataservers using sqldatasourceenumerator

See more:

VB

SQL

I am trying to find all the MSSQL data servers on my network.

Below is the code:

Option Strict Off
Option Explicit On
Imports System.Data.Common
Imports System.Data.Sql

Public Class Form1

#Region "Class Header"
    Inherits Form

#End Region

#Region "Start-up"

    Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show()
    End Sub

#End Region

#Region "Commands"

    Dim mDT As DataTable ' the data table that will be retrieved from GetDataSources call
    Dim mSqlEnum As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance ' the MSSQL enumerator instance

    Private Sub btnGetDBList_Click(sender As Object, e As EventArgs) Handles btnGetDBList.Click
        mDT = mSqlEnum.GetDataSources
        Dim tstr As String = "Number of MSSQL Servers found = " & mDT.Rows.Count
        MsgBox(tstr)
    End Sub
#End Region

End Class

The result of the

btnGetDBList_Click

method reports zero data servers found. It does not even find the data server running on my machine.

What I have tried:

Reviewed numerous examples found on the web. The above code seems to be correct.