调试易

也可以引用SQLDMO对象来实现,不会写vb.net的代码,下面的vb代码仅供参考:
'*************************************************************************
'**函 数 名：s_ListSQLSrv
'**功能描述：在立即窗口打印出所有的 SQL Server 组及各组的 SQL Server
'**输    入：无
'**输    出：无
'**调用模块：引用: Microsoft SQLDMO Object Library
'**作    者：邹建
'**日    期：2003年11月26日
'*************************************************************************
Sub s_ListSQLSrv()
    Dim iSql As SQLDMO.Application
    Dim iI&, iJ&
    
    Set iSql = New SQLDMO.Application
    
    With iSql.ServerGroups
        For iI = 1 To .Count
            Debug.Print .Item(iI).Name
            With .Item(iI).RegisteredServers
                For iJ = 1 To .Count
                    Debug.Print vbTab & .Item(iJ).Name
                Next
            End With
        Next
    End With
    
    Set iSql = Nothing
End Sub

osql /L
服务器:
    (local)
    211.155.27.149