怎样得到局域网内所有的SQLServer实例列表？？？

Question

命令行(MS-DOS方式)下输入 OSQL -L或用查询分析器执行：
 exec xp_cmdshell ' OSQL -L '

Answer 1

命令行(MS-DOS方式)下输入 OSQL -L或用查询分析器执行：
 exec master..xp_cmdshell ' OSQL -L '

Answer 2

引用ms sqldmo
Public Sub SearchSvr()
    'exec master..xp_cmdshell ' OSQL -L '
    '执行上面的存储过程一样可以得到
    
    Dim i As Integer
    Login.lblSearch.Caption = "正在查找！请稍候……"
    Login.Refresh
    For i = 1 To sqldmo.ListAvailableSQLServers.Count
        AddSvrRecord (sqldmo.ListAvailableSQLServers.Item(i))
        Login.lblSearch.Caption = "发现服务器" + sqldmo.ListAvailableSQLServers.Item(i) + "……"
        Login.Refresh
    Next i
    Login.lblSearch.Caption = "查找完成！共发现" & sqldmo.ListAvailableSQLServers.Count & "台服务器!"
End Sub