Public Structure ServerInfo
Friend ServerName As String
Friend InstanceName As String
Friend IsClustered As Boolean
Friend Version As String
Friend TCPPort As Long
Friend IPAddress As String
End Structure

Public Sub Start()
Dim objSQLServers() As ServerInfo = EnumSQLServer()
End Sub

Friend Function EnumSQLServer() As ServerInfo()
Dim objUDPClient As New System.Net.Sockets.UdpClient
Dim objRemoteIP As System.Net.IPEndPoint
Dim objAllServers() As ServerInfo
Dim bytData() As Byte = { 2 ,  0 ,  0 ,  0 ,  0 ,  0 ,  0 ,  0 ,  0 ,  0 ,  0 ,  0 ,  0 ,  0 ,
 0 ,  0 ,  0 ,  0 }
Dim bytReceived() As Byte
Dim strInfo() As String
Dim strHostHeaders() As String
Dim booDone As Boolean = False
Dim i As Long
Dim x As Int16

ReDim strHostHeaders( 0 )
objUDPClient.Send(bytData,  18 , "255.255.255.255", "1434")
While booDone = False
Try
bytReceived = objUDPClient.Receive(objRemoteIP)
Catch
booDone = True
Exit While
End Try
If strHostHeaders(strHostHeaders.Length -  1 ) <> "" Then
ReDim Preserve strHostHeaders(strHostHeaders.Length)
End If
strHostHeaders(strHostHeaders.Length -  1 ) =
Mid(System.Text.ASCIIEncoding.ASCII.GetString(bytReceived),  4 )
strHostHeaders(strHostHeaders.Length -  1 ) &= ";IPADDRESS;" &
objRemoteIP.Serialize.Item( 4 ).ToString & "." &
objRemoteIP.Serialize.Item( 5 ).ToString & "." &
objRemoteIP.Serialize.Item( 6 ).ToString & "." &
objRemoteIP.Serialize.Item( 7 ).ToString
If strHostHeaders.Length >  1  Then
If strHostHeaders(strHostHeaders.Length -  1 ) =
strHostHeaders(strHostHeaders.Length -  2 ) Then ReDim Preserve
strHostHeaders(strHostHeaders.Length -  2 )
End If
End While
objUDPClient.Close()
objUDPClient = Nothing

ReDim objAllServers(strHostHeaders.Length -  1 )
For i =  0  To strHostHeaders.Length -  1 
strInfo = Split(strHostHeaders(i), ";")
For x =  0  To strInfo.Length -  1 
Select Case LCase(strInfo(x))
Case "servername"
objAllServers(i).ServerName = strInfo(x +  1 )
Case "instancename"
objAllServers(i).InstanceName = strInfo(x +  1 )
Case "isclustered"
objAllServers(i).IsClustered = IIf(LCase(strInfo(x +
 1 )) = "no", False, True)
Case "version"
objAllServers(i).Version = strInfo(x +  1 )
Case "tcp"
objAllServers(i).TCPPort = CLng(strInfo(x +  1 ))
Case "ipaddress"
objAllServers(i).IPAddress = strInfo(x +  1 )
End Select
Next
Next
Return objAllServers
End Function