2 Теоретическое обоснование
В данной работе исследовалась компьютерная сеть и её трафик. Для расчетов была написана программа в Visual Basic for Applications (VBA), исходными данными которой был файл формата xls, в котором была представлена статистика входящего, исходящего и внутреннего трафика за сутки. Рассматриваемая нами сеть имеет адрес вида: 202.202.205.х, где x – параметр, характеризующий принадлежность IP адреса к соответствующей группе адресов. В нашей сети их всего 3.
1) x = 1..153, 155..199
2) x = 200
3) x = 201..252
Программа считала входящий трафик, исходящий трафик в зависимости от времени для каждой из групп и входящий трафик внутри рассматриваемой нами сети. На основе полученных результатов была построена круговая диаграмма распределения входящего трафика по группам, гистограмма распределения исходящего трафика групп по часам. Также в программе была предусмотрена функция поиска по IP адресу тех адресов, от которых были отправлены пакеты данных к искомому адресу(входящий трафик).
В исходном файле формата xls предварительно были созданы листы “Отделы” и “Загрузка канала” на которых в последствии выполнения программы были размещены круговая.
3 Практическое решение и обоснование программы
1)Создаем листы “Отделы”,“Загрузка канала”,“Компьютеры”.
2)Создаем скрипт № 1 рассчитывающий входящий трафик для трех групп и исходящий трафик групп по часам, выводящий результаты в листе “1”. Отлаживаем скрипт.
Рисунок 5 - Результат работы скрипта №1
3)Создаем скрипт №2, выбирающий значения входящего трафика групп из яйчеек F1 – F3 листа “1” и строющий круговую диаграмму распределениятрафика в листе “Отделы”. Отлаживаем скрипт.
Рисунок 6 - Результат работы скрипта №3
ЗАКЛЮЧЕНИЕ
Нужно было создать скрипт VBA, выполняющий подготовку данных и построение сводных диаграмм для анализа сетевого трафика.
Создан скрипт VBA, выполняющий подготовку данных и построение сводных диаграмм для анализа сетевого трафика. Время выполнения скрипта – около 2 минут, что на порядок быстрее ручной обработки данных. Максимальная сумма входящего трафика рассчитанного программой оказалась для третьей группы и составила 485949360 (байт) – 51% от общего числа входящего трафика.
Недостатком данной программы является предварительное создание листов
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1.http://ru.wikipedia.org/ Соколов А.Е., 2009г., Программы для обработки сетевого трафика
2.http://www.google.ru/analytics/ Костров С.В., 2011г., Программы для предприятий
3.http://metrika.yandex.ru/ Горбунов М.А., 2011г., Софт для обработки и визуализации трафика
4.http://spylog.ru/ Воробьева А.Я., 2010г., TrafficInspector
ПРИЛОЖЕНИЕ
Sub работа()
Dim d() As String
For i = 1 To 65281 Step 1
n = 0
a = Range("a" & i)
If IsEmpty(Range("a" & i)) = True Or Range("a" & i) = "source" Or IsDate(Range("a" & i)) = True Then
i = i + 1
Else
ip = Range("a" & i)
s = Split(ip, ".")
ip2 = Range("b" & i)
d = Split(ip2, ".")
If s(0) = 202 And s(1) = 202 And s(2) = 205 And d(0) = 202 And d(1) = 202 And d(2) = 205 Then
Range("f1") = Range("f1") + Range("d" & i)
If d(3) > 0 And d(3) <= 154 Then
Range("g1") = Range("g1") + Range("g" & i)
n1 = n1 + 1
End If
If d(3) > 200 And d(3) <= 253 Then
Range("h1") = Range("h1") + Range("d" & i)
n2 = n2 + 1
End If
If d(3) = 200 Then
Range("j1") = Range("j1") + Range("d" & i)
n3 = n3 + 1
End If
End If
End If
Next i
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("лист1").Select
Sheets("лист1").Name = "отдел"
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("лист2").Select
Sheets("лист2").Name = "загрузка канала"
Sheets("отделы").Select
ActiveCell.FormulaR1C1 = "=отделы!RC[6]"
Range("b1").Select
ActiveCell.FormulaR1C1 = "='7'!RC[6]"
Range("a1").Select
ActiveCell.FormulaR1C1 = "='7'!RC[6]"
Range("c1").Select
ActiveCell.FormulaR1C1 = "='7'!RC[6]"
Range("a1:c1").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("отдел!$a$1:$c$1")
ActiveChart.ChartType = xl3DPieExploded
ActiveChart.ApplyLayout (2)
ActiveChart.Legend.Select
Sheets("загрузка канала").Select
End Sub