Макросы и программы для Excel в категории «Ping»
Макросы для выполнения команды Ping из VBA (время отклика, проверка доступности оборудования или сетевого ресурса)
-
Программный комплекс, предназначенный для автоматизации учёта и администрирования сети связи телефонной или телекоммуникационной компании. Программа позволяет хранить и редактировать базу данных объектов (в виде файлов 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 -... -
Самый простой способ получить 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 _...
