网络IP地址分配与管理：公司局域网电脑、打印机及监控摄像头地址管控

文/江觅

网络信息化在公司已经基本普及，随之而来的网络设备管理也进入一个相对重要的地位，其中网络地址管理是一项基本内容。

需求分析

如果没有有序地管理网络地址，那么接入网络的设备就不能正常工作。不是断网就是无法连接，这是个让人抓狂的事情。

所以，要做好网络管理，保证网络畅通，就十分必要了。

对于有些小型企业来说，基本不会专门配制专业网络技术人员，如果有，也可能是某些稍懂一点电脑知识的人代为管理。

这种情况很多，为了节省开销，也是没有办法。

且不知，一旦断网，所有工作将变成僵尸状态。工作生活中离不开网络，又不想用专业人员来对网络进行维护，这样的情况下，公司内部的网络就变成一个禁地。

因为谁也不懂，自然就没有人去管理这一方面的事情。

其实，网络管理说难吧，也不难，不难吧，那真是无从入手。

这里主要介绍一下局域网内部网络地址分配的一些内容，实际上是对一个网络地址分配表格进行操作。具体内容可以看图。

主题介绍

主要包括三个方面:1.IP地址分配 2.地址查询 3.统计

新接入网络设备就要给它分配一个IP地址，有些人说，我们的地址不分配照样可以用啊，当然不分配也可以，只不过是设备自动分配了而已。

为什么要人为分配呢?这里主要是因为网络安全方面着想。

如果给接入设备进行地址分配，可以及时操控避免突发网络事件发生。

比如大面积断网，或电脑病毒传播（目前似乎也没有电脑病毒了），还有就是合理利用和分配公司网络硬件资源。

充分利用网络设备性能，不要形成大马拉小车或小马拉大车的现象，这个就十分专业了，这不做分析。

遇到大数据并发可能造成网络堵塞，可表现为玩游戏时突然停顿。

其实，网络管理最重要的一个方面是安全，在工业安全方面，网络安全已经上升到一个很重要的安全生产管理目录里面。

未来的智能工厂，网络安全成为一个必然项进行管理，工人越来越少，网络设备越来越多。

怎么让这些网络设备听话，那就是独立分配一个地址来进行标识和管理。

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

查找很简单，输入想找的IP地址就自动搜索出来了，如果没有搜索到说明此地址还没有分配，可能进行分配。

这个功能十分必要，因为在给设备进行地址分配的时候，可能要选择地址，但是不知道哪些地址已经分配，哪些没有。

当然了，这个在路由器后台里面也可以看到。

统计一目了然地列出了，所有网络设备类别的数量，可以对IP数量进行统计。

一个网络里面的数量是有限的，不可能随意分配数字。

分配前，在设置里面对地址范围进行预设，这个一般网络管理员都知道。

网络设备统计代码

Private Sub UserForm_Initialize()Dim s As Worksheet, w As WorksheetSet s = ThisWorkbook.Worksheets("sets")s.ActivateDim sArrDim iRow As IntegerDim sR As Range, sRm As RangeiRow = s.Range("H65535").End(xlUp).RowSet sRm = s.Range("H2:H" & iRow)ReDim sArr(2 To iRow)Dim sObj As ObjectFor 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 IfNext sRSet w = ThisWorkbook.Worksheets("网络地址")w.ActivateiRow = w.Range("D65535").End(xlUp).RowSet sRm = w.Range("D2:D" & iRow)Set sR = NothingDim x As Variant, e As Integer, n As IntegerFor 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 = 0Next xEnd Sub

展示一下统计代码，其实其它方面代码很多，就不全部贴出来了，主要是说明这个东西是如何做的一个过程，相对不是很难。

如果有需要本内容，可能私信获取使用方法链接。