list of sql servers

[jas_alien2]

is it possible to find out all the list of sql servers using vb????

[monte96]

I know it's possible cuz I've seen Serge do it...

[jas_alien2]

but how??? can u or your friend give me a sample code?? pls help

[Serge]

It is possible only in NT/2000 environment.
If you're running under NT or 2000 then you can do this. Add a Listbox (List1), Command Button (Command1) and a Label (Label1):

Private Declare Function NetServerEnum Lib "Netapi32.dll" (vServername As Any, ByVal lLevel As Long, vBufptr As Any, lPrefmaxlen As Long, lEntriesRead As Long, lTotalEntries As Long, vServerType As Any, ByVal sDomain As String, vResumeHandle As Any) As Long
Private Declare Sub RtlMoveMemory Lib "kernel32" (dest As Any, vSrc As Any, ByVal lSize As Long)
Private Declare Sub lstrcpyW Lib "kernel32" (vDest As Any, ByVal sSrc As Any)
Private Declare Function NetApiBufferFree Lib "Netapi32.dll" (ByVal lpBuffer As Long) As Long
Private Type SERVER_INFO_101
    dw_platform_id As Long
    ptr_name As Long
    dw_ver_major As Long
    dw_ver_minor As Long
    dw_type As Long
    ptr_comment As Long
End Type
Private Const SV_TYPE_SQLSERVER = &H4
 
Private Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128
End Type
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Const VER_PLATFORM_WIN32_NT = 2
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32s = 0
 
 
Private Type WKSTA_INFO_101
   wki101_platform_id As Long
   wki101_computername As Long
   wki101_langroup As Long
   wki101_ver_major As Long
   wki101_ver_minor As Long
   wki101_lanroot As Long
End Type
 
Private Type WKSTA_USER_INFO_1
   wkui1_username As Long
   wkui1_logon_domain As Long
   wkui1_logon_server As Long
   wkui1_oth_domains As Long
End Type
Private Declare Function NetWkstaGetInfo Lib "Netapi32" (strServer As Any, ByVal lLevel As Long, pbBuffer As Any) As Long
Private Declare Function NetWkstaUserGetInfo Lib "Netapi32" (reserved As Any, ByVal lLevel As Long, pbBuffer As Any) As Long
 
Function GetDomainName()
    Dim lngRet As Long
    Dim arrByteBuffer(512) As Byte
    Dim i As Integer
    Dim tWK_INFO As WKSTA_INFO_101
    Dim lngWK_Ptr As Long
    Dim tWK_USER As WKSTA_USER_INFO_1
    Dim lngWK_USER_Ptr As Long
    Dim strDomain As String
 
    If IfWinNT Then
        lngRet = NetWkstaGetInfo(ByVal 0&, 101, lngWK_Ptr)
        RtlMoveMemory tWK_INFO, ByVal tWK_INFO, Len(tWK_INFO)
        lngRet = NetWkstaUserGetInfo(ByVal 0&, 1, lngWK_USER_Ptr)
        RtlMoveMemory tWK_USER, ByVal lngWK_USER_Ptr, Len(tWK_USER)
        lstrcpyW arrByteBuffer(0), tWK_USER.wkui1_logon_domain
        'Get Every other byte of the array
        i = 0
        Do While arrByteBuffer(i) <> 0
            strDomain = strDomain & Chr(arrByteBuffer(i))
            i = i + 2
        Loop
        lngRet = NetApiBufferFree(lngWK_USER_Ptr)
 
        GetDomainName = strDomain
    Else
        GetDomainName = ""
    End If
End Function
 
Private Function IfWinNT() As Boolean
    Dim os As OSVERSIONINFO
    Dim lngRet As Long
    
    os.dwOSVersionInfoSize = Len(os)
    lngRet = GetVersionEx(os)
    
    If lngRet <> 0 Then
        Select Case os.dwPlatformId
            Case VER_PLATFORM_WIN32_NT
                IfWinNT = True
            Case Else
                IfWinNT = False
        End Select
    End If
End Function
 
 
 
Private Sub Command1_Click()
    Dim lngRet As Long
    Dim Server_Info As Long
    Dim lngEntries As Long
    Dim lngTotal As Long
    Dim lngMax As Long
    Dim varResume As Variant
    Dim tServer_info_101 As SERVER_INFO_101
    Dim strServer As String
    Dim strDomain As String
    Dim lngServerInfo101StructPtr As Long
    Dim lngCount As Long
    Dim i As Long
    Dim arrByteBuffer(512) As Byte
    
    
    
    If Not IfWinNT Then
        MsgBox "You're not running under Window NT/2000."
    End If
    
    
    strDomain = GetDomainName
    
    
    lngRet = NetServerEnum(ByVal 0&, 101, Server_Info, lngMax, _
                            lngEntries, lngTotal, _
                            ByVal SV_TYPE_SQLSERVER, StrConv(strDomain, vbUnicode), varResume)
 
    If lngRet <> 0 Then
        MsgBox "Error Getting SQL Servers."
        Exit Sub
    End If
 
    lngCount = 1
    lngServerInfo101StructPtr = Server_Info
 
    Do While lngCount <= lngTotal
        RtlMoveMemory tServer_info_101, ByVal lngServerInfo101StructPtr, Len(tServer_info_101)
 
        lstrcpyW arrByteBuffer(0), tServer_info_101.ptr_name
 
        i = 0
        Do While arrByteBuffer(i) <> 0
            strServer = strServer & Chr(arrByteBuffer(i))
            i = i + 2
        Loop
        
        If Len(Trim(strServer)) > 0 Then List1.AddItem strServer
        
        lngCount = lngCount + 1
        strServer = ""
        lngServerInfo101StructPtr = lngServerInfo101StructPtr + Len(tServer_info_101)
    Loop
 
    lngRet = NetApiBufferFree(Server_Info)
    
    
    Label1.Caption = "There are " & lngTotal & " SQL Servers in Domain: " & strDomain
End Sub