31 lines
1.1 KiB
Plaintext
31 lines
1.1 KiB
Plaintext
|
' nettraffic.vbs
|
||
|
|
' Pandora FMS Agent Plugin for Microsoft Windows (All platfforms)
|
||
|
|
' (c) 2014 Sancho Lerena <slerena@artica.es>
|
||
|
|
' Returns total bytes in network since bootup and % of network use
|
||
|
|
' ----------------------------------------------------------------
|
||
|
|
' usage: cscript //B nettraffic.vbs
|
||
|
|
|
||
|
|
strComputer = "."
|
||
|
|
Set objWMIService = GetObject("winmgmts:" _
|
||
|
|
& "{impersonationLevel=impersonate}!\\" & strComputer & "\Root\CIMV2")
|
||
|
|
Set colItems = objWMIService.ExecQuery _
|
||
|
|
("select * from Win32_PerfRawData_Tcpip_NetworkInterface ")
|
||
|
|
|
||
|
|
BytesSUM = 0
|
||
|
|
|
||
|
|
For Each objItem in colItems
|
||
|
|
bytesTotal = objitem.BytesTotalPersec * 8
|
||
|
|
BytesSUM = BytesSUM + bytesTotal
|
||
|
|
|
||
|
|
Next
|
||
|
|
|
||
|
|
Wscript.StdOut.WriteLine "<module>"
|
||
|
|
Wscript.StdOut.WriteLine " <name><![CDATA[Network_Usage_Bytes]]></name>"
|
||
|
|
Wscript.StdOut.WriteLine " <description><![CDATA[Total network usage in bytes]]></description>"
|
||
|
|
Wscript.StdOut.WriteLine " <unit>bytes/sec</unit>"
|
||
|
|
Wscript.StdOut.WriteLine " <type>generic_data_inc</type>"
|
||
|
|
Wscript.StdOut.WriteLine " <data><![CDATA[" & BytesSUM & "]]></data>"
|
||
|
|
Wscript.StdOut.WriteLine "</module>"
|
||
|
|
|
||
|
|
Wscript.StdOut.flush
|
||
|
|
' End script
|