如何得到SQlserver列表??

Question

给你原代码:
窗体上放一个命令按钮,一个listbox,粘贴下面的代码.
(把servertype参数指定为SV_TYPE_SQLSERVER,即列举启动sqlserver的机器名)Private Const MAX_PREFERRED_LENGTH As Long = -1
Private Const NERR_SUCCESS As Long = 0&
Private Const ERROR_MORE_DATA As Long = 234&Private Const SV_TYPE_WORKSTATION         As Long = &H1
Private Const SV_TYPE_SERVER              As Long = &H2
Private Const SV_TYPE_SQLSERVER           As Long = &H4
Private Const SV_TYPE_DOMAIN_CTRL         As Long = &H8
Private Const SV_TYPE_DOMAIN_BAKCTRL      As Long = &H10
Private Const SV_TYPE_TIME_SOURCE         As Long = &H20
Private Const SV_TYPE_AFP                 As Long = &H40
Private Const SV_TYPE_NOVELL              As Long = &H80
Private Const SV_TYPE_DOMAIN_MEMBER       As Long = &H100
Private Const SV_TYPE_PRINTQ_SERVER       As Long = &H200
Private Const SV_TYPE_DIALIN_SERVER       As Long = &H400
Private Const SV_TYPE_XENIX_SERVER        As Long = &H800
Private Const SV_TYPE_SERVER_UNIX         As Long = SV_TYPE_XENIX_SERVER
Private Const SV_TYPE_NT                  As Long = &H1000
Private Const SV_TYPE_WFW                 As Long = &H2000
Private Const SV_TYPE_SERVER_MFPN         As Long = &H4000
Private Const SV_TYPE_SERVER_NT           As Long = &H8000
Private Const SV_TYPE_POTENTIAL_BROWSER   As Long = &H10000
Private Const SV_TYPE_BACKUP_BROWSER      As Long = &H20000
Private Const SV_TYPE_MASTER_BROWSER      As Long = &H40000
Private Const SV_TYPE_DOMAIN_MASTER       As Long = &H80000
Private Const SV_TYPE_SERVER_OSF          As Long = &H100000
Private Const SV_TYPE_SERVER_VMS          As Long = &H200000
Private Const SV_TYPE_WINDOWS             As Long = &H400000  'Windows95 and above
Private Const SV_TYPE_DFS                 As Long = &H800000  'Root of a DFS tree
Private Const SV_TYPE_CLUSTER_NT          As Long = &H1000000 'NT Cluster
Private Const SV_TYPE_TERMINALSERVER      As Long = &H2000000 'Terminal Server
Private Const SV_TYPE_DCE                 As Long = &H10000000'IBM DSS
Private Const SV_TYPE_ALTERNATE_XPORT     As Long = &H20000000'rtn alternate transport
Private Const SV_TYPE_LOCAL_LIST_ONLY     As Long = &H40000000'rtn local only
Private Const SV_TYPE_DOMAIN_ENUM         As Long = &H80000000
Private Const SV_TYPE_ALL                 As Long = &HFFFFFFFFPrivate Const SV_PLATFORM_ID_OS2       As Long = 400
Private Const SV_PLATFORM_ID_NT        As Long = 500'Mask applied to svX_version_major in
'order to obtain the major version number.
Private Const MAJOR_VERSION_MASK        As Long = &HFPrivate Type SERVER_INFO_100
  sv100_platform_id As Long
  sv100_name As Long
End TypePrivate Declare Function NetServerEnum Lib "Netapi32" _
  (ByVal servername As Long, _
   ByVal level As Long, _
   buf As Any, _
   ByVal prefmaxlen As Long, _
   entriesread As Long, _
   totalentries As Long, _
   ByVal servertype As Long, _
   ByVal domain As Long, _
   resume_handle As Long) As LongPrivate Declare Function NetApiBufferFree Lib "netapi32.dll" _
   (ByVal Buffer As Long) As LongPrivate Declare Sub CopyMemory Lib "kernel32" _
   Alias "RtlMoveMemory" _
  (pTo As Any, uFrom As Any, _
   ByVal lSize As Long)
   
Private Declare Function lstrlenW Lib "kernel32" _
  (ByVal lpString As Long) As Long   
Private Sub Form_Load()
   Command1.Caption = "Net Server Enum"
End SubPrivate Sub Command1_Click()
   Call GetServers(vbNullString)
End SubPrivate Function GetServers(sDomain As String) As Long  'lists all servers of the specified type
  'that are visible in a domain.
  
   Dim bufptr          As Long
   Dim dwEntriesread   As Long
   Dim dwTotalentries  As Long
   Dim dwResumehandle  As Long
   Dim se100           As SERVER_INFO_100
   Dim success         As Long
   Dim nStructSize     As Long
   Dim cnt             As Long   nStructSize = LenB(se100)
   
   success = NetServerEnum(0&, _
                           100, _
                           bufptr, _
                           MAX_PREFERRED_LENGTH, _
                           dwEntriesread, _
                           dwTotalentries, _
                           SV_TYPE_ALL, _
                           0&, _
                           dwResumehandle)  'if all goes well
   If success = NERR_SUCCESS And _
      success <> ERROR_MORE_DATA Then
      
    'loop through the returned data, adding each
    'machine to the list
      For cnt = 0 To dwEntriesread - 1
         
        'get one chunk of data and cast
        'into an SERVER_INFO_100 struct
        'in order to add the name to a list
         CopyMemory se100, ByVal bufptr + (nStructSize * cnt), nStructSize
            
         List1.AddItem GetPointerToByteStringW(se100.sv100_name)
         
      Next
      
   End If
   
  'clean up regardless of success
   Call NetApiBufferFree(bufptr)
   
  'return entries as sign of success 
   GetServers = dwEntriesread End Function
Public Function GetPointerToByteStringW(ByVal dwData As Long) As String
  
   Dim tmp() As Byte
   Dim tmplen As Long
   
   If dwData <> 0 Then
   
      tmplen = lstrlenW(dwData) * 2
      If tmplen <> 0 Then
         ReDim tmp(0 To (tmplen - 1)) As Byte
         CopyMemory tmp(0), ByVal dwData, tmplen
         GetPointerToByteStringW = tmp
     End If
   End If
End Function

Answer 1

'引用 Microsoft SQLDMO Objects Libary
Private Sub Command1_Click()
Dim i As Integer
Dim SQLDMOAppX As New SQLDMO.Application
Dim NameListX As SQLDMO.NameList
Set NameListX = SQLDMOAppX.ListAvailableSQLServers
For i = 0 To NameListX.Count - 1
    Debug.Print NameListX.Item(i + 1)
Next
End Sub

Answer 2

仅能列出 SQL Server 列表,对等网可能不行!

Answer 3

To chenhw:
可是会出现如下错误提示:找不到Dll入口点NetServerEnum IN Netapi32不是到是为什么?

Answer 4

netServerEnum 只能在 NT or 2000 上用!!! 谁有完整的获得一个局域网中所有机器信息的源代码？
http://www.csdn.net/expert/topic/160/160319.shtm
huanggx(大侠),进来,拿80分!
http://www.csdn.net/expert/topic/172/172122.shtm我的(playyuer)引用 Microsoft SQLDMO Objects Libary 的代码肯定没问题!

Answer 5

To Playyuser:
但用你的那个看不到自己的SQLServer,奇怪.

Answer 6

SQL 7 的桌面版都必须用 SQL 7 的 客户端工具配置一个 TCP/IP 的服务(别名),才能被别的机器识别!
配置一个 TCP/IP 的服务(别名)就可以用 SQLDMO 列出了!

Answer 7

to：playyuer(女㊣爱)
还是你高！！

Answer 8

'其实之所以用别名,就是不愿意让其他人知道实际的机器名!
'应该让人只知有 逻辑服务(相对位置),而不应知道 物理机器(绝对位置)
'如果非要得到机器名,必须先 Login Connect 
Dim i As Integer
Dim SQLDMOAppX As New SQLDMO.Application
Dim NameListX As SQLDMO.NameList
Set NameListX = SQLDMOAppX.ListAvailableSQLServers
Dim SQLServerX As New SQLServer
For i = 0 To NameListX.Count - 1
    SQLServerX.Connect NameListX.Item(i + 1), "sa", "password"
    Debug.Print SQLServerX.NetName
    Debug.Print SQLServerX.Name
    SQLServerX.Close
Next