![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
![]()
Сообщение
#1
|
|
![]() Супер постер ![]() ![]() ![]() ![]() ![]() Группа: Posters Сообщений: 575 Регистрация: 17.11.2005 Из: AfaNet Пользователь №: 132 ![]() |
Какой программой/драйвером можно снимать статистику с сетевых интерфейсов в реальном времени под Windows 5.хи желательно с занесением по нужному шаблону в БД MySQL, или хотя бы подсказать куда копать?
-------------------- "неправильная" подпись может быть находкой для шпионов
город: Город Афанет (траф) Yandex.Деньги 4100151149425 #КартинкА# |
|
|
![]() |
![]()
Сообщение
#2
|
|
Пользователь ![]() ![]() Группа: Posters Сообщений: 116 Регистрация: 22.5.2006 Из: Чебоксары Пользователь №: 616 ![]() |
Может как-то так
![]() 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 у меня "cooked" данные нашлись только под Win2003... кстати запускать лучше так ![]() CScript "имя скрипта.vbs" > "имя файла.txt" Дает смотреть кстати только тем юзерам, кто имеет на это право, ибо WMI ![]() Кстати, токо что написал прогу, которая по WMI дает админам смотреть у кого-чего на диске (компы одном в домене) и пошареварить что надо (без лишнего гемороя и втихаря) ![]() зачем я это сделал... пойду стеру |
|
|
![]()
Сообщение
#3
|
|
Настоящий ADSL'щик ![]() ![]() ![]() ![]() Группа: Posters Сообщений: 462 Регистрация: 8.10.2005 Пользователь №: 97 ![]() |
Кстати, токо что написал прогу, которая по WMI дает админам смотреть у кого-чего на диске (компы одном в домене) и пошареварить что надо (без лишнего гемороя и втихаря) ![]() зачем я это сделал... пойду стеру Ух Паша разошелся ![]() -------------------- We do what we must because we can
|
|
|
![]() ![]() |
![]() |
Текстовая версия | Сейчас: 4th July 2025 - 11:08 |