在VB中，如何查出本局域网中，哪些机器安装了SQL SERVER 2000

iceriver提供：

用以下SQL语句    

xp_cmdshell 'osql -L'
返回值是这种格式：
NULL
服务器:
    (local)
    9X1
    9XSERVER1
    AAAAA
NULL



babytony 提供：

列出局域网内所有SQL服务器的另外一个办法    

楼上介绍的是用服务器端sql server提供的SP的方法来返回一个数据集。另外，介绍一个用sql server客户端dmo对象获得sql服务器列表的方法，你需要在VB程序应用#Microsoft SQLDMO Object Library，通常这个文件的路径在/Program Files/Microsoft SQL Server/80/Tools/Binn/SQLDMO.dll：

    Dim oApp As New SQLDMO.Application
    Dim oNameList As NameList
    Dim i As Integer
    
    On Error GoTo errorhandler:
    
    Set oNameList = oApp.ListAvailableSQLServers
    
    For i = 1 To oNameList.Count
        lstServer.AddItem oNameList.Item(i)
    Next i
    
    Set oNameList = Nothing
    Set oApp = Nothing


计算机世界开发者俱乐部 http://www.dev-club.com