文/江覓

網絡信息化在公司已經基本普及，随之而來的網絡設備管理也進入一個相對重要的地位，其中網絡地址管理是一項基本内容。

如果沒有有序地管理網絡地址，那麼接入網絡的設備就不能正常工作。不是斷網就是無法連接，這是個讓人抓狂的事情。

所以，要做好網絡管理，保證網絡暢通，就十分必要了。

對于有些小型企業來說，基本不會專門配制專業網絡技術人員，如果有，也可能是某些稍懂一點電腦知識的人代為管理。

這種情況很多，為了節省開銷，也是沒有辦法。

且不知，一旦斷網，所有工作将變成僵屍狀态。工作生活中離不開網絡，又不想用專業人員來對網絡進行維護，這樣的情況下，公司内部的網絡就變成一個禁地。

因為誰也不懂，自然就沒有人去管理這一方面的事情。

其實，網絡管理說難吧，也不難，不難吧，那真是無從入手。

這裡主要介紹一下局域網内部網絡地址分配的一些内容，實際上是對一個網絡地址分配表格進行操作。具體内容可以看圖。

主要包括三個方面:1.IP地址分配 2.地址查詢 3.統計

新接入網絡設備就要給它分配一個IP地址，有些人說，我們的地址不分配照樣可以用啊，當然不分配也可以，隻不過是設備自動分配了而已。

為什麼要人為分配呢?這裡主要是因為網絡安全方面着想。

如果給接入設備進行地址分配，可以及時操控避免突發網絡事件發生。

比如大面積斷網，或電腦病毒傳播（目前似乎也沒有電腦病毒了），還有就是合理利用和分配公司網絡硬件資源。

充分利用網絡設備性能，不要形成大馬拉小車或小馬拉大車的現象，這個就十分專業了，這不做分析。

遇到大數據并發可能造成網絡堵塞，可表現為玩遊戲時突然停頓。

其實，網絡管理最重要的一個方面是安全，在工業安全方面，網絡安全已經上升到一個很重要的安全生産管理目錄裡面。

未來的智能工廠，網絡安全成為一個必然項進行管理，工人越來越少，網絡設備越來越多。

怎麼讓這些網絡設備聽話，那就是獨立分配一個地址來進行标識和管理。

IP地址就如人的身份證号一樣，具有唯一性。

查找很簡單，輸入想找的IP地址就自動搜索出來了，如果沒有搜索到說明此地址還沒有分配，可能進行分配。

這個功能十分必要，因為在給設備進行地址分配的時候，可能要選擇地址，但是不知道哪些地址已經分配，哪些沒有。

當然了，這個在路由器後台裡面也可以看到。

統計一目了然地列出了，所有網絡設備類别的數量，可以對IP數量進行統計。

一個網絡裡面的數量是有限的，不可能随意分配數字。

分配前，在設置裡面對地址範圍進行預設，這個一般網絡管理員都知道。

網絡設備統計代碼

Private Sub UserForm_Initialize() Dim s As Worksheet, w As Worksheet Set s = ThisWorkbook.Worksheets("sets") s.Activate Dim sArr Dim iRow As Integer Dim sR As Range, sRm As Range iRow = s.Range("H65535").End(xlUp).Row Set sRm = s.Range("H2:H" & iRow) ReDim sArr(2 To iRow) Dim sObj As Object For Each sR In sRm If VBA.Len(sR) <> 0 Then sArr(sR.Row) = sR.Value Set sObj = Me.Controls.Add("Forms.Label.1", "L" & sR.Row) With sObj .Top = 26 * sR.Row 30 .Left = 150 .Caption = sR.Value .Font.Size = 12 .Font.Name = "微軟雅黑" End With End If Next sR Set w = ThisWorkbook.Worksheets("網絡地址") w.Activate iRow = w.Range("D65535").End(xlUp).Row Set sRm = w.Range("D2:D" & iRow) Set sR = Nothing Dim x As Variant, e As Integer, n As Integer For Each x In sArr e = e 1 For Each sR In sRm If sR.Value = x Then n = n 1 Next sR Set sObj = Me.Controls.Add("Forms.Label.1", "T" & n) With sObj .Top = 26 * e 56 .Left = 320 .Caption = n .Font.Size = 12 .Font.Name = "微軟雅黑" .ForeColor = RGB(255, 21, 21) End With n = 0 Next x End Sub

展示一下統計代碼，其實其它方面代碼很多，就不全部貼出來了，主要是說明這個東西是如何做的一個過程，相對不是很難。

如果有需要本内容，可能私信獲取下載鍊接。

,

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!

查看全部