nodeside script to monitor network
Posted: Wed Apr 20, 2011 10:35 am
I tried the nodeside script for Windows. Works great on my Windows Server 2003.
I added a few lines to the script to monitor the network (KBytes received and sent) :
'--phil
Set colNetwork = objRefresher.AddEnum(objWMIService, "Win32_PerfFormattedData_TCPIP_NetworkInterface").objectSet
Make sure to paste the code below after existing line, indeed the "sleep" and "refresh" are required :
objRefresher.Refresh ' weirder than usual values.
'--phil
For Each objItem in colNetwork
if instr(objItem.Name,"Loopback")=0 then
KBytesReceivedPersec = cint(objItem.BytesReceivedPersec/1024)
KBytesSentPersec = cint(objItem.BytesSentPersec/1024)
TestName="net." & SafeString(objItem.Name) & ".KBytesReceivedPersec"
AddTest TestName,"Network [" & objItem.Name & "] KBytes Received/sec",SafeString(KBytesReceivedPersec),0
TestName="net." & SafeString(objItem.Name) & ".BytesSentPersec"
AddTest TestName,"Network [" & objItem.Name & "] KBytes Sent/sec",SafeString(KBytesSentPersec),0
end if
next
I added a few lines to the script to monitor the network (KBytes received and sent) :
'--phil
Set colNetwork = objRefresher.AddEnum(objWMIService, "Win32_PerfFormattedData_TCPIP_NetworkInterface").objectSet
Make sure to paste the code below after existing line, indeed the "sleep" and "refresh" are required :
objRefresher.Refresh ' weirder than usual values.
'--phil
For Each objItem in colNetwork
if instr(objItem.Name,"Loopback")=0 then
KBytesReceivedPersec = cint(objItem.BytesReceivedPersec/1024)
KBytesSentPersec = cint(objItem.BytesSentPersec/1024)
TestName="net." & SafeString(objItem.Name) & ".KBytesReceivedPersec"
AddTest TestName,"Network [" & objItem.Name & "] KBytes Received/sec",SafeString(KBytesReceivedPersec),0
TestName="net." & SafeString(objItem.Name) & ".BytesSentPersec"
AddTest TestName,"Network [" & objItem.Name & "] KBytes Sent/sec",SafeString(KBytesSentPersec),0
end if
next