本机上安装了sqlserver2000，如何通过vb程序获知其实例名？

Question

http://www.china-askpro.com/msg49/qa28.shtml
如何列举出网络上所有的SQL Server服务器让用户选择

Answer 1

'或者引用SQLDMO
'*************************************************************************
'**函 数 名：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