vb.net枚舉網絡中所有的SQL 2000服務器

　　對於SQL Server2000來說，打開SQL Server客戶端准備連接，當拉開服務器列表的時候，整個局域網所有的SQL Server服務器都被列出來了。於是我發現，從我自己的機器(192.168.0.1)上從1434端口廣播(192.168.0.255)了這個UDP包，然後，整個局域網中的SQL Server服務器都開始響應這個UDP數據包，這時，我的客戶端能夠得到所有服務器信息。

　　這就是客戶端進行連接的過程：當客戶端連接到服務器時，應用程序請求連接遠端計算機，Dbnetlib.dll 將打開到連接中所指定的計算機網絡名上的 UDP 端口 1434 的連接。所有運行 SQL Server 2000 的計算機都監聽此端口。當一個客戶端 Dbnetlib.dll 連接到該端口時，服務器將返回一個監聽服務器上運行的所有實例的數據包。對於每個實例，該數據包報告該實例正在監聽的服務器 Net-Library 和網絡地址。應用程序計算機上的 Dbnetlib.dll 收到該數據包後，選擇在應用程序計算機和 SQL Server 實例上都啟用的 Net-Library，然後連接為此數據包中的 Net-Library 列出的地址。

　　通過1434端口傳輸特定的UDP數據包，然後服務器開始回應，所有這些都是明文傳輸的，我們可以很容易探測一個IP地址的1434端口，獲得該IP地址上運行的SQL Server的相關信息。這些信息包括：主機名稱、實例名稱、版本、管道名稱以及使用的端口等。這個端口是微軟自己使用，而且不象默認的1433端口那樣可以改變，1434是不能改變的，呵呵，那麼我們為了安全，去改變這個1433端口能起什麼作用呢？

　　我們可以來捕獲這些數據報，可以發現，通過1434端口的數據非常簡單，客戶端僅僅簡單地發送了02一個字節出去。不過多次捕獲，發現有時候發送的是 03。於是我就用下面程序一個一個測試，發送其他數據。不過最後只有02、03、04有回應。看來這三種字節用來做SQL Server探測的。而且你可以發送 02 00 00，也可以發送 02 00 00 00 00等等都能夠得到SQL Server的回應，但是發送 02 03就不可以了。

　　詳細代碼：

　　

Imports System.Net 
Imports System.Net.Sockets 
Imports System.Net.Sockets.Socket 
Imports System.Collections.Specialized 
Public Class GetServers
'采用udp協議 
 Private m_Client As Sockets.UdpClient
'廣播地址，表示整個網絡 
 Private StrHost As String = "255.255.255.255"
'廣播端口 
 Private IntPort As Integer = 1434
'要發送的數據,發送這個數據所有的sqlserver就會響應了 
 Private B() As Byte = New Byte() {&H2}
'因為 send 裡面有個死循環，這裡用個定時器來處理超時間 
 Private WithEvents t As New Timers.Timer
'發送數據出去 
 Function Send() As ArrayList 
 m_Client = New UdpClient
'用來存儲獲取的sql列表 
 Dim atemp As New ArrayList
'發送的目標，廣播地址 
 Dim host As New IPEndPoint(IPAddress.Parse(Me.StrHost), Me.IntPort) 
 Try 
 '這裡發送數據 
 m_Client.Send(B, 1, host)
'下面開始讀取，因為網絡內sql server數量眾多,數據包一個一個的返回 
 '所以這裡循環處理了。 
 While True
'開定時器 
 t.Interval = 1000 
 t.Enabled = True
'接收的字節數組 
 Dim BR As Byte() = m_Client.Receive(host) 
 Dim A As System.Text.Encoding = System.Text.Encoding.Default
'用來存儲當前字符串 
 Dim S As String = ""
'從第4個數字開始，前三個字符為非打印字符 
 S = A.GetString(BR, 3, BR.Length - 3) 
 Console.WriteLine(S)
'這裡解析獲取的文本 
 atemp.Add(New SqlServer(S))
'關閉 
 t.Enabled = False 
 End While 
 Catch ex As Exception 
 Console.WriteLine(ex.Message) 
 Finally 
 m_Client.Close() 
 End Try 
 Return atemp 
 'Console.WriteLine("檢查完畢。。") 
 End Function
'超時後強制結束網絡等待。 
 Private Sub t_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles t.Elapsed 
 'Console.WriteLine("關閉。。") 
 m_Client.Close() 
 t.Dispose() 
 End Sub 
End Class
Public Class SqlServer 
 'sql server解析類 
 ' 
 '因為返回的字符串類似 name1;value1;name2;value2;name3;value3; .... 
 '而且不固定長度 
 '所以這裡用NameValueCollection返回。 
 Private Nv As NameValueCollection
Sub New(ByVal Str As String) 
 Nv = New NameValueCollection 
 Dim a As String() = Str.Split(";") 
 For i As Integer = 0 To a.Length - 1 Step 2 
 Dim t As Integer = i 
 Nv(a(t)) = a(t + 1) 
 Next 
 End Sub
'因為要添加到combobox，這裡重載了一下tostring以顯示文本 
 Overrides Function tostring() As String 
 Return Nv("ServerName") 
 End Function
End Class

　　調用代碼

　　

Sub GetSqlServers() 
 Me.Cursor = Cursors.WaitCursor 
 Dim a As ArrayList 
 Dim g As New GetServers 
 a = g.Send() 
 For Each c As SqlServer In a 
 Me.cb_Server.Items.Add(c) 
 Next 
 Me.Cursor = Cursors.Default 
 End Sub