'如何获取局域网中的所有 SQL Server 服务器
'从类型库中引用Microsoft SQLDMO Object Library (Version 8.0).

Dim objApp As SQLDMO.Application
Dim objNameList As SQLDMO.NameList
Dim i As Integer, n As Integer

Set objApp = New SQLDMO.Application
Set objNameList = objApp.ListAvailableSQLServers
n = objNameList.Count
For i = 1 To n
    List1.AddItem objNameList(i)
Next
Set objNameList = Nothing
Set objApp = Nothing