vb.net枚舉網路中所有的SQL 2000伺服器

伺服器|網路

對於SQL Server2000來說，開啟SQL Server用戶端準備串連，當拉開伺服器列表的時候，整個區域網路所有的SQL Server伺服器都被列出來了。

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
 

    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