Здравствуйте, гость ( Вход | Регистрация )
Aug 8 2006, 09:55
Сообщение
#1
|
|
![]() Супер постер ![]() ![]() ![]() ![]() ![]() Группа: Posters Сообщений: 575 Регистрация: 17.11.2005 Из: AfaNet Пользователь №: 132 |
Какой программой/драйвером можно снимать статистику с сетевых интерфейсов в реальном времени под Windows 5.хи желательно с занесением по нужному шаблону в БД MySQL, или хотя бы подсказать куда копать?
-------------------- "неправильная" подпись может быть находкой для шпионов
город: Город Афанет (траф) Yandex.Деньги 4100151149425 #КартинкА# |
|
|
|
![]() |
Aug 8 2006, 12:07
Сообщение
#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 дает админам смотреть у кого-чего на диске (компы одном в домене) и пошареварить что надо (без лишнего гемороя и втихаря) зачем я это сделал... пойду стеру |
|
|
|
Aug 8 2006, 14:26
Сообщение
#3
|
|
|
Настоящий ADSL'щик ![]() ![]() ![]() ![]() Группа: Posters Сообщений: 462 Регистрация: 8.10.2005 Пользователь №: 97 |
Кстати, токо что написал прогу, которая по WMI дает админам смотреть у кого-чего на диске (компы одном в домене) и пошареварить что надо (без лишнего гемороя и втихаря) зачем я это сделал... пойду стеру Ух Паша разошелся -------------------- We do what we must because we can
|
|
|
|
LInfo Снятие статистики с интерфейса Aug 8 2006, 09:55
LInfo мне как раз под вин2003 нужно
а сбрасывать может ... Aug 8 2006, 12:10
pavel А сбрасывать будет куда напишешь!!!
А... Aug 8 2006, 12:19
LInfo Цитата(pavel @ Aug 8 2006, 13:19)
А сбр... Aug 8 2006, 12:25
pavel надо зайти Администрирование->Источники данных ... Aug 8 2006, 12:42
LInfo КодstrComputerName = "." ' Для локальн... Aug 8 2006, 14:58
pavel Про 13 раз я ничего не скажу
Запрос можно изме... Aug 8 2006, 16:03
pavel Хотя ладно скажу
ЦитатаFor i = 1 To doBother
значи... Aug 8 2006, 17:38
LInfo но у тебя же
КодConst doBother = 13
For i = 1 To d... Aug 8 2006, 21:50
pavel Цитата(LInfo @ Aug 8 2006, 22:50) или я н... Aug 8 2006, 22:46![]() ![]() |
|
Текстовая версия | Сейчас: 28th October 2025 - 00:26 |