如何获取SQL服务器1434的端口信息？

Question

看网上有些文章介绍可以利用1434端口取得主机名称、实例名称、版本、管道名称等信息，我搜了一下也有介绍用VB.NET来枚举网内的SQL服务器，但没有找到用VB6.0的。刚才我用Winsock对我的SQL服务器的1434端口尝试发送了&H2的数据，结果返回了一个|p，这并不是我想获取的资料，请教各位怎么用VB6.0取得某一局域网内某个固定IP的1434端口的信息？

Answer 1

利用API获得当前网络中的所有计算机名称以及获得当前可用的服务器、SQL服务器、RAS服务器的名称、属性等。
http://www.applevb.com/sourcecode/getallserveronnet.zip

Answer 2

我下载了，好像不能枚举SQL服务器,倒是系统的信息很详细。

Answer 3

SQLDMO这个控件
可以操作SQL Server

Answer 4

各位请帮帮忙
Private Sub Form_Load()
    Dim cnn As ADODB.Connection
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\lcsys\mysjk\图书.mdb;"
    cnn.Open
    If cnn.State = adStateOpen Then
        MsgBox "打开数据库"
    End If
    cnn.Close
    If cnn.State = adStateClosed Then
        MsgBox "关闭数据库"
    End If
    
End Sub
这段程序运行后，出现以提示：
“对象变量或with块变量未设置”
请问这是什么原因？？