Работа с WMI

Определение IP адреса и страны по доменному имени

Макрос определения страны и IP адреса по доменному имени

Макрос предназначен для вывода IP адресов и названий стран, на основании столбца с доменными именами.

В прикреплённом файле - 2 способа реализации:

1) по доменному имени определяется IP адрес (посредством команды PING - выполнения ICMP запроса),
а затем определяется страна (по IP адресу), с использованием сервиса smart-ip.net

2) используется только сервис smart-ip.net
Отправляется запрос на указанный сервис, и из полученных данных вычленяются IP адрес и название страны.

 

Надстройка для администрирования локальной сети

Надстройка предназначена для облегчения управления сетевым оборудованием и диагностики локальной сети из Excel.

 

Надстройка будет полезна, если информация об оборудовании (IP-адреса, логины и пароли) хранится в книгах Excel.

Вы сможете получить доступ к часто используемым действиям из контекстного меню Excel.

Функция PING на VBA с изменяемым размером ICMP пакета

Public Function Ping(ByVal ComputerName As String) As Boolean
    ' возвращает TRUE, если пинг прошел
    Dim oPingResult As Variant
    For Each oPingResult In GetObject("winmgmts://./root/cimv2").ExecQuery _
        ("SELECT * FROM Win32_PingStatus WHERE Address = '" & ComputerName & "'")
        If IsObject(oPingResult) Then
            If oPingResult.StatusCode = 0 Then
                Ping = True        'Debug.Print "ResponseTime", oPingResult.ResponseTime
                Exit Function
            End If
        End If
    Next
End Function

Пример использования:

Sub TestPingFunction()
    If Ping("ComputerName") Then ПутьКПапке = "\\ComputerName\files"
    If Ping("ya.ru") Then MsgBox "Интернет доступен!"
    If Not Ping("192.168.0.2") Then MsgBox "Компьютер с IP адресом 192.168.0.2 недоступен в сети!"
End Sub

Программа формирования отчётов по статистике доступа в интернет

Форма выбора параметров запроса статистики

Программа позволяет формировать отчёты по трафику на основании данных биллинговой системы.

В качестве исходных данных программа принимает:

  • логин абонента
  • дату начала и окончания периода сбора статистики

 

Особенности программы:

Программа учёта и администрирования сети связи телекоммуникационной компании

Поиск трасс и просмотр ресурсов оборудования

Программный комплекс, предназначенный для автоматизации учёта и администрирования сети связи телефонной или телекоммуникационной компании.

Программа позволяет хранить и редактировать базу данных объектов (в виде файлов Excel), просматривать существующие трассы и формировать новые.

 

Особенность программы - возможность учёта и администрирования узлов связи с нестандартными технологическими решениями:

  1. кабели на кроссах могут быть расшиты частично (или с двух сторон по-разному),
  2. часть кабелей на кроссе может быть не расшита на плинты Krone,
  3. поддерживаются различные типы муфт, кабелей и оборудования,
  4. оборудование (например, шлюзы VoIP, уплотнения, модемы со сплиттерами) может подключаться к кабелям напрямую, а может быть расшито на плинты Krone

Дополнительные возможности программы:

  1. возможно применение для администрирования как медной, так и с оптической кабельной сети
    (в программу легко добавить новые типы кабелей и оборудования)
  2. реализована проверка наличия технической возможности на обьектах (программа, к примеру, понимает, что для нового подключения абонента по технологии ADSL совсем не обязательно подыскивать отдельную медную пару - можно пустить ADSL и по используемой телефонной линии, в то же время программа не будет пытаться пустить линию ISDN по паре, занятой под xDSL)
  3. Формирование нарядов на выполнение работ (для монтажников), распечатка трасс (для облегчения поиска неисправностей на линиях связи)

 

Все используемые данные хранятся на сервере, сама же программа (в виде надстройки XLA для Microsoft Excel) запускается на компьютерах пользователей.

Реализовано гибкое разграничение прав доступа (9 уровней), загрузка обновлений программы с сайта.

 

Используется модульная архитектура - к программе подключаются различные модули для расширения функционала.

К примеру, на сегодняшний день реализованы следующие модули:

  1. формирование список абонентов и услуг (телефония, интернет, дополнительные услуги),
  2. загрузка и выгрузка кроссировочных данных в биллинговую систему,
  3. активация и блокировка номеров в АТС Alcatel OmniPCX 4400 нажатием одной кнопки,
  4. регистрация DECT-терминалов (и получение статистики их работы), прочие отчёты на основании данных из АТС,
  5. управление различными устройствами Wi-Fi и VoIP (чтение и запись настроек) через Telnet
  6. формирование отчётов по трафику (выгрузка данных из биллинговой системы, их обработка, автоматическое преобразование IP-адресов в доменные имена, формирование ежедневных и ежемесячных отчётов)
  7. быстрая проверка доступности отдельных узлов сети - отправка серии запросов ping до выбранного IP-адреса нажатием одной кнопки

Посмотреть все скриншоты программы