如何在VB中查询网络中有哪些机器上提供了SQLSERVER服务呢？(无内容)

Question

查找当前网络中有的所有主机，然后跟每个主机通信，检查是否有sql server服务。

Answer 1

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

Answer 2

up补充一点：工程->引用->选Microsoft SQLDMO Object Library->确定不然会报错：用户自定义的变量没找到！

Answer 3

up补充一点：工程->引用->选Microsoft SQLDMO Object Library->确定不然会报错：用户自定义的变量没找到！

Answer 4

引用Microsoft sqldmo object library
其后同duckcn(duck)