怎么获得当前可用的sqlserver数据库服务器的列表？？

Question

引用Microsoft SQLDMO Object Library      Private Sub Nsqlser_DropDown()      If Nsqlser.ListCount > 0 Then Exit Sub      Dim Server As SQLDMO.NameList '名字列表namelist      Dim appDMO As New SQLDMO.Application 'sqldmo应用      Dim i As Integer      Set Server = appDMO.ListAvailableSQLServers '得到所有的sql sever 列表      For i = 1 To Server.Count      Nsqlser.AddItem Server(i) 'Nsqlser为下拉列表框      Next      End Sub