获取server 服务器失败

[unicornhx]

编了个数据库程序在自己的机器上测试通过，可以读取并登陆本机的服务器，但是在另一台机器上就不能读取。。感觉应该不是代码问题，而是配置问题，请高手给解答下。代码如下

Dim Enumerator As Sql.SqlDataSourceEnumerator = Sql.SqlDataSourceEnumerator.Instance
        Dim dt As Data.DataTable
        dt = Enumerator.GetDataSources()

        Dim servername, instance As String
        For Each row As DataRow In dt.Rows
            For Each col As DataColumn In dt.Columns
                Console.WriteLine("{0} = {1}", col.ColumnName, row(col))
                If col.ColumnName = "ServerName" Then
                    servername = row(col)
                End If
                If col.ColumnName = "InstanceName" Then
                    instance = servername + "\" + row(col)
                    ComboBox1.Items.Add(instance)
                End If
          Next
         Next

测试机: 服务器登陆身份 LocalSystem
服务器和browser 服务已经开启 ，可以用management studio 登陆

[KevinLiu]

代码获得INSTANCENAME是不是你要连接的INSTANCENAME? 如果是的话代码没有问题。 那么连接失败报什么错误呢？

[unicornhx]

没有报失败，就是读取的服务器列表是空的..

引用 1 楼 SmithLiu328 的回复:

代码获得INSTANCENAME是不是你要连接的INSTANCENAME? 如果是的话代码没有问题。 那么连接失败报什么错误呢？

[KevinLiu]

你如果用SSMS连接的话可以找到这个INSTANCE吗？是不是端口被屏蔽了，所以 Sql.SqlDataSourceEnumerator 类无法找到这个INSTANCE?（查了查文档没有看到SqlDataSourceEnumerator 的工作原理，但是好像是通过网络查的，所以如果SQL Server本身没有问题的话，个人感觉应该是被网络屏蔽了。）