如何利用VB编程获取当前局域网中可用的sql server服务器名称？？？

Question

利用API获得当前网络中的所有计算机名称以及获得当前可用的服务器、SQL服务器、RAS服务器的名称、属性等。在Win2K下运行，Win9X下部分功能不支持。
http://www.applevb.com/sourcecode/getallserveronnet.zip

Answer 1

Dim Server As SQLDMO.NameList
    Dim appDMO As New SQLDMO.Application
    Dim i As Integer
        
    On Error GoTo Error
    
    Set Server = appDMO.ListAvailableSQLServers
    
    For i = 1 To Server.Count
        cmbServer.AddItem Server(i)
        'Debug.Print Server(i)
    Next

Answer 2

楼上的代码正确。
不过首先需要安装SQLDMO，然后引用。

Answer 3

不成啊，报告：sqldmp.namelist用户定义类型无定义。=====================
菜鸟一只，渴望进步。

Answer 4

没有找到有这个库可以引用。
是否需要安装sql server？？=====================
菜鸟一只，渴望进步。

Answer 5

引用Microsoft SQLDMO Object Library