列出网络上服务器

Question

列出网络上所有SQL2000数据库的服务器!
就和SQL2000那个注册差不多的东西!

Answer 1

利用API获得当前网络中的所有计算机名称以及获得当前可用的服务器、SQL服务器、RAS服务器的名称、属性等。http://www.applevb.com/sourcecode/getallserveronnet.zip

Answer 2

在查询分析器中：
SET NOCOUNT ON
EXEC MASTER..XP_CMDSHELL 'OSQL -L'获取当前可以访问的sql server，引用sqldmo。 Dim Server As SQLDMO.NameList
    Dim appDMO As New SQLDMO.Application
    Dim i As Integer
        
    On Error GoTo Error
    
    Set Server = appDMO.ListAvailableSQLServers
    
    For i = 1 To Server.Count
        cmbServer.AddItem Server(i)
        'Debug.Print Server(i)
    Next

Answer 3

http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=98391