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

Макросы для выполнения команды Ping из VBA (время отклика, проверка доступности оборудования или сетевого ресурса)
  • Поиск трасс и просмотр ресурсов оборудования
    Программный комплекс, предназначенный для автоматизации учёта и администрирования сети связи телефонной или телекоммуникационной компании. Программа позволяет хранить и редактировать базу данных объектов (в виде файлов 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 Отправляется запрос на...
  • Самый простой способ получить IP-адрес машины, зная имя хоста, - применить функцию ResolveAddress: Function ResolveAddress(ByVal ComputerName$) As String ' выполняет ICMP запрос (ping) до адреса ComputerName ' возвращает IP-адрес ComputerName$ Dim oPingResult As Variant: On Error Resume Next For Each oPingResult In GetObject("winmgmts://./root/cimv2").ExecQuery _...