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

來源:互聯網
上載者:User
伺服器|網路

對於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
 


 



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。