Макросы и программы для Excel в категории «Работа с WMI»

Макросы, использующие инструментарий управления Windows (WMI, Windows Management Instrumentation)
  • Поиск трасс и просмотр ресурсов оборудования
    Программный комплекс, предназначенный для автоматизации учёта и администрирования сети связи телефонной или телекоммуникационной компании. Программа позволяет хранить и редактировать базу данных объектов (в виде файлов Excel), просматривать существующие трассы и формировать новые.   Особенность программы - возможность учёта и администрирования узлов связи с нестандартными...
  • Надстройка предназначена для облегчения управления сетевым оборудованием и диагностики локальной сети из Excel.   Надстройка будет полезна, если информация об оборудовании (IP-адреса, логины и пароли) хранится в книгах Excel. Вы сможете получить доступ к часто используемым действиям из контекстного меню Excel. В частности, прямо из контекстного меню ячейки можно запустить в консоли PING...
  • 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....
  • Макрос определения страны и IP адреса по доменному имени
    Макрос предназначен для вывода IP адресов и названий стран, на основании столбца с доменными именами. В прикреплённом файле - 2 способа реализации: 1) по доменному имени определяется IP адрес (посредством команды PING - выполнения ICMP запроса), а затем определяется страна (по IP адресу), с использованием сервиса smart-ip.net 2) используется только сервис smart-ip.net Отправляется запрос на...
  • Форма выбора параметров запроса статистики
    Программа позволяет формировать отчёты по трафику на основании данных биллинговой системы. В качестве исходных данных программа принимает: логин абонента дату начала и окончания периода сбора статистики   Особенности программы: формирование отчётов по всему трафику, или только по оплачиваемому создание листа итогов с диаграммой (сразу видно, с какого сайта был...
  • Макрос создаёт файл Excel, и выводит в него 2000 последних событий из журнала Windows:   Sub NTLogEvent() ' © 2022 ExcelVBA.ru Dim i&, sh As Worksheet Set sh = Workbooks.Add.Worksheets(1) ' создаём новый файл под вывод данных Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set colLoggedEvents =...