IPB

Здравствуйте, гость ( Вход | Регистрация )

> Снятие статистики с интерфейса
LInfo
сообщение Aug 8 2006, 09:55
Сообщение #1


Супер постер
*****

Группа: Posters
Сообщений: 575
Регистрация: 17.11.2005
Из: AfaNet
Пользователь №: 132



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


--------------------
"неправильная" подпись может быть находкой для шпионов

город: Город Афанет (траф)
Yandex.Деньги 4100151149425

#КартинкА#
Вернуться к началу страницы
 
+Цитировать сообщение
 
Создать новую тему
Ответов
pavel
сообщение Aug 8 2006, 12:07
Сообщение #2


Пользователь
**

Группа: Posters
Сообщений: 116
Регистрация: 22.5.2006
Из: Чебоксары
Пользователь №: 616



Может как-то так unsure.gif ?

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...
кстати запускать лучше так smile.gif :
CScript "имя скрипта.vbs" > "имя файла.txt"


Дает смотреть кстати только тем юзерам, кто имеет на это право, ибо WMI cool.gif


Кстати, токо что написал прогу, которая по WMI дает админам смотреть у кого-чего на диске (компы одном в домене) и пошареварить что надо (без лишнего гемороя и втихаря) ninja.gif
зачем я это сделал... пойду стеру
Вернуться к началу страницы
 
+Цитировать сообщение

Сообщений в этой теме


ОтветитьСоздать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



RSS Текстовая версия Сейчас: 4th July 2025 - 11:09