Макросы и программы для Excel в категории «Работа с WMI»
Макросы, использующие инструментарий управления Windows (WMI, Windows Management Instrumentation)
-
Программный комплекс, предназначенный для автоматизации учёта и администрирования сети связи телефонной или телекоммуникационной компании. Программа позволяет хранить и редактировать базу данных объектов (в виде файлов Excel), просматривать существующие трассы и формировать новые. Особенность программы - возможность учёта и администрирования узлов связи с нестандартными... -
Надстройка предназначена для облегчения управления сетевым оборудованием и диагностики локальной сети из Excel. Надстройка будет полезна, если информация об оборудовании (IP-адреса, логины и пароли) хранится в книгах Excel. Вы сможете получить доступ к часто используемым действиям из контекстного меню Excel. В частности, прямо из контекстного меню ячейки можно запустить в консоли PING...
-
Function Ping(ByVal addr$) As Boolean On Error Resume Next Ping = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = '" & addr$ & "'").ItemIndex(0).StatusCode = 0 End Function Функция проверки доступа в интернет, с использованием функции PING (версия 2024 года) Function InetAvailable() As Boolean InetAvailable = Ping...
-
Макрос предназначен для вывода IP адресов и названий стран, на основании столбца с доменными именами. По состоянию на 2024 год, этот макрос не работает ввиду недоступности сайта smart-ip.net (можно переделать код на использование другого аналогичного веб-сервиса) В прикреплённом файле - 2 способа реализации: 1) по доменному имени определяется IP адрес (посредством команды PING -... -
Программа позволяет формировать отчёты по трафику на основании данных биллинговой системы. В качестве исходных данных программа принимает: логин абонента дату начала и окончания периода сбора статистики Особенности программы: формирование отчётов по всему трафику, или только по оплачиваемому создание листа итогов с диаграммой (сразу видно, с какого сайта был... -
Макрос создаёт файл 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 =...
