Удаленное мониторинг сетевых ресурсов и соединений с помощью Delphi

Delphi , ОС и Железо , Windows

Иногда возникает необходимость получить информацию о сетевых ресурсах и соединениях удаленной системы без использования сторонних приложений. В данной статье мы рассмотрим, как это можно сделать с помощью языка программирования Object Pascal в среде разработки Delphi 2010.

Проблема

Разработчики часто сталкиваются с необходимостью получения информации о сетевых ресурсах и соединениях удаленной машины. Примеры таких команд в консоли:

• net use - отображение списка сетевых дисков, подключенных к системе.
• net share - отображение списков общих ресурсов.
• netstat -ano - отображение активных сетевых соединений.

Традиционно для выполнения таких операций удаленно используют утилиту psexec, однако это требует установки стороннего ПО. Если у вас есть административные права на удаленной машине, есть альтернативные способы.

Решение

Одним из способов является использование WMI (Windows Management Instrumentation) для удаленного выполнения запросов. WMI предоставляет множество возможностей для мониторинга и управления системой. Существуют компоненты для Delphi, которые позволяют осуществлять удаленный доступ к WMI.

Компоненты для работы с WMI

1. MagWmi - компонент, поддерживающий Delphi 2010 и предоставляемый бесплатно вместе с исходным кодом. Сайт разработчика: MagWmi.

2. WMISet/NTSet - компонент для управления общими ресурсами и сессиями. Это не бесплатный продукт, но предоставляет широкие возможности для работы с общими ресурсами и сетевыми соединениями.

3. GLibWMI - еще один компонент, поддерживающий Delphi 2010 и распространяемый бесплатно. Сайты для скачивания: Neftali.clubdelphi.com, SourceForge.

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

uses
  GlibWmi; // Подключаем компоненты GLibWMI

var
  SharedInfo: TSharedInfo;
  Info: TSharedResourceInfo;
  i: Integer;
begin
  SharedInfo := TSharedInfo.Create(nil);
  try
    SharedInfo.ConnectToWmiService('RemoteComputerName', 'RemoteUser', 'RemotePassword');
    for i := 0 to SharedInfo.GetCount - 1 do
    begin
      Info := SharedInfo.GetSharedResourceInfo(i);
      // Обработка информации о ресурсах
      // Например, вывод в консоль
      Writeln(Format('Share: %s, Path: %s, Description: %s', [Info.Name, Info.Path, Info.Description]));
    end;
  finally
    SharedInfo.Free;
  end;
end;

Альтернативные методы

Также можно использовать функции NetShareEnum и WNet для перечисления сетевых ресурсов. Для перечисления подключенных сетевых дисков подойдет метод EnumNetworkDrives объекта WshNetwork.

Для получения информации о сетевых соединениях с помощью WMI можно использовать запрос к классу Win32_TCPConn.

Заключение

В данной статье мы рассмотрели, как с помощью компонентов для Delphi и Object Pascal можно удаленно получить информацию о сетевых ресурсах и соединениях, не прибегая к использованию сторонних утилит. Это может быть полезно для автоматизации задач по мониторингу сетевой инфраструктуры и управления доступом к общим ресурсам в корпоративных сетях.

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

Создано по материалам из источника по ссылке.

Удаленный мониторинг сетевых ресурсов и соединений с помощью Delphi и компонентов WMI для получения информации без использования сторонних утилит.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::