Снятие статистики с интерфейса Опции

[LInfo]

Какой программой/драйвером можно снимать статистику с сетевых интерфейсов в реальном времени под Windows 5.хи желательно с занесением по нужному шаблону в БД MySQL, или хотя бы подсказать куда копать?

[LInfo]

Код

strComputerName = "." ' Для локальной машины

Set objSWbemServices = GetObject("winmgmts:\\" & strComputerName & "\root\cimv2")

Set colRawData = objSWbemServices.ExecQuery("select * from Win32_PerfRawData_Tcpip_NetworkInterface")
Set colCookedData = objSWbemServices.ExecQuery("select * from Win32_PerfFormattedData_Tcpip_NetworkInterface")

Const doBother = 13
For i = 1 To doBother
    For Each objRawData In colRawData
        objRawData.Refresh_
        
        WScript.Echo "-- Необработанные данные as is " & String(80, "-")
        WScript.Echo objRawData.Name & ":" & CDate(objRawData.Timestamp_PerfTime)
        WScript.Echo "BytesReceivedPerSec: " & objRawData.BytesReceivedPerSec
        WScript.Echo "BytesSentPerSec: " & objRawData.BytesSentPerSec
        WScript.Echo "BytesTotalPerSec : " & objRawData.BytesTotalPerSec
        
        WScript.Echo vbCRLF & "Все свойства: "
        For Each objClassProperty In objRawData.Properties_
            WScript.Echo String(5, " ") & objClassProperty.Name & ": " & objClassProperty.Value
        Next    
    Next
    
    For Each objCookedData In colCookedData
        objCookedData.Refresh_

        WScript.Echo "-- Обработанные данные (как в системном мониторе) " & String(80, "-")
        WScript.Echo objCookedData.Name & ":"
        WScript.Echo "BytesReceivedPerSec: " & objCookedData.BytesReceivedPerSec
        WScript.Echo "BytesSentPerSec: " & objCookedData.BytesSentPerSec
        WScript.Echo "BytesTotalPerSec : " & objCookedData.BytesTotalPerSec

        WScript.Echo vbCRLF & "Все свойства: "
        For Each objClassProperty In objCookedData.Properties_
            WScript.Echo String(5, " ") & objClassProperty.Name & ": " & objClassProperty.Value
        Next
    Next

    WScript.Echo String(80, "-")

    WScript.Sleep 1000

Next

несколько вопросов по скрипту. Почему 13 проходов он делает? причем с периодом в 1 секунду

и еще такое: у меня есть 4 интерфейса, мне нужно выцеплять только с 2х, а не со всех. где прописать это?
или же мне нужно выцеплять ИПишники и в зависимости от ИП-адреса обрабатывать по разному