如何列举出网络上所有的SQL Server服务器

 引用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 

本文地址：http://com.8s8s.com/it/it44377.htm