XDJM帮帮吗吧！如何取得局域网中的装有SqlServer的计算机名称！来者有分！！！

Question

公司准备开发一套自己的管理软件。我想用SqlServer做数据库，如何取得局域网中安装SqlServer的计算机名称呢？

Answer 1

先引用Microsoft SQLDMO Object Librarb，在窗体上放ComboBox，运行时将名称传给下面的过程即可Sub GetSQLServer(CboObj As ComboBox)     '获取网络内可用SQL服务器名称
  Dim SQLDMOApp As New Application
  Dim NamLst As NameList
  Set NamLst = SQLDMOApp.ListAvailableSQLServers
  For I = 1 To NamLst.Count
    CboObj.AddItem NamLst.Item(I)
  Next
  Set NamLst = Nothing
End Sub

Answer 2

谢谢winehero(编程人生)，可以实现了，不过程序运行后挺慢的，有没有快一些的方法

Answer 3

关键是不知道引用Microsoft SQLDMO Object Librarb，非常感谢

Answer 4

我的办法是在局域网里用Winsok进行UDP广播.
思路如下:客户在局域网里广播一个请求.服务器收到请求以后向客户机发送服务器的地址数据.这样的速度很快,反应时间少于0.5秒.