如何获得局域网下所有SQLSERVER服务器名称及各参数

Question

如何获得局域网下所有SQLSERVER服务器名称及各参数

Answer 1

Dim sqldmo As New sqldmo.ServerGroup
    Dim nMax As Integer
    
    nMax = sqldmo.Application.ListAvailableSQLServers.Count
    For i = 1 To nMax
        Me.List1.AddItem sqldmo.Application.ListAvailableSQLServers(i)
    Next

Answer 2

安装 MS SQL Server server/client
引用 Microsoft SQLDMO Object Library'CODE
Option ExplicitPrivate Sub Command1_Click()
On Error GoTo Err1
    Dim dmoObj As New SQLDMO.Application
    Dim I       As Long
 
    For I = 1 To dmoObj.ListAvailableSQLServers.Count
        List1.AddItem dmoObj.ListAvailableSQLServers.Item(I)
    Next
Err1:
End Sub