NT계열서버에 MRTG만들기....
아래의 소스는 네트워크 인터페이스 에서 보내고 받은 바이트를 가져오는
vbscript 소스 이다.
응용해서.. 5분마다 한번씩 돌아가게 셋팅하고, 해당값의 차이를 DB혹은 화일로
기록해 둔다면 간단한 MRTG가 될듯합니다.
물론, WMI서비스는 돌아가고 있어야 할듯....
Dim oSvc : set oSvc = GetObject("winmgmts:root\cimv2")
'// 인터페이스 찾기
' strComputer = "."
' Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
' Set colWin32Providers = objWMIService.InstancesOf("Win32_PerfRawData_Tcpip_NetworkInterface")
' For Each colWin32Provider In colWin32Providers
' WScript.Echo colWin32Provider.Name & " ::: "
' Next
Dim wqlQuery
wqlQuery = "select BytesReceivedPersec,BytesSentPersec from Win32_PerfRawData_Tcpip_NetworkInterface where Name = 'Broadcom NetXtreme Gigabit Ethernet _2'"
for each oData in oSvc.ExecQuery(wqlQuery)
for each oProperty in oData.Properties_
'if oProperty.Name = "BytesReceivedPersec" then
' bytesReceived = oProperty.Value
'elseif oProperty.Name = "BytesSentPersec" then
' bytesSent = oProperty.Value
'end if
wscript.echo oProperty.Name & ":" & oProperty.Value
next
next
'wscript.echo "-------------------------------"
'wscript.echo bytesReceived
'wscript.echo bytesSent
'wscript.echo "-------------------------------"
