怎样获取当前局域网内所有sql server 服务器名的列表阿？请高手指点！

Question

我编写的一个程序需要获取当前局域网内所有sql server 服务器名的列表，不知该怎么办，请高手指点！

Answer 1

见：http://www.e5e.cn/bbs/showthread.php?t=31
其中有对象可以获取

Answer 2

引用Microsoft SQLDMO OBJECT Libraryprivate sub command1_click()
onerror goto err1
dim dmoobj as new sqldmo.application
dim i as long
for i=1 to dmoobj.listavailablesqlservers.count
list1.additem  dmoobj.listavailablesqlserver.item(i)
nexterr1:
end sub

Answer 3

不好意思楼上稍微改一下，不过谢谢你的指教
Private Sub command1_click()
On Error GoTo err1
Dim dmoobj As New SQLDMO.ApplicationDim i As Long
For i = 1 To dmoobj.ListAvailableSQLServers.Count
List1.AddItem dmoobj.ListAvailableSQLServers.Item(i)
Nexterr1:
End Sub

Answer 4

http://www.china-askpro.com/msg49/qa28.shtml