有没有这样一个API，它叫什么名字？

Question

Private Sub Command1_Click()'放一个cmobo控件命名为txtServer，引用Microsoft SQLDMO object Libraray库  Dim oSQLServerDMOApp As SQLDMO.Application
  Set oSQLServerDMOApp = New SQLDMO.Application
  Dim i As Integer
  Dim namX As NameList
  Set namX = oSQLServerDMOApp.ListAvailableSQLServers
  For i = 1 To namX.Count
    txtServer.AddItem namX.Item(i)
  Next
  'Show top server
  txtServer.ListIndex = 0
End Sub

Answer 1

相当不错和完整的程序。利用API获得当前网络中的所有计算机名称以及获得当前可用的服务器、SQL服务器、RAS服务器的名称、属性等。在Win2K下运行，Win9X下部分功能不支持。推荐下载。
http://www.applevb.com/sourcecode/getallserveronnet.zip