Dim i As Integer, name_server As String
    Dim CountSQL As Integer
    Dim oApp As SQLDMO.Application   ' Microsoft SQLDMO Object Library
    Dim oSrv As SQLDMO.NameList
    Dim oGrp As SQLDMO.ServerGroup
    Dim oReg As SQLDMO.RegisteredServer

    Set oApp = New SQLDMO.Application
    Set oSrv = oApp.ListAvailableSQLServers
    CountSQL = oSrv.Count

    For i =  1  To CountSQL
        name_server = name_server & oSrv.Item(i) & vbCrLf
    Next i
    
    MsgBox name_server
    
    Dim name_sql As String
    For Each oGrp In oApp.ServerGroups
        For Each oReg In oGrp.RegisteredServers
            name_sql = name_sql & oReg.Name & vbCrLf
        Next
    Next
    MsgBox name_sql

    oApp.Quit