'程序名称:      btlwchk_DiskIO.vbs

'版权信息:      Copyright (c)  2011 guangzhou bluetech technology Incorporated.All rights reserved

'程序用途:      监测windows主机IO利用率

'创建日期:      2011-08-10

'作者信息:      zhangkai

'运行环境:      vbs

'处理参数

MonSubject="DiskIO"

Set Args=WScript.Arguments

If (Args.Count<1) Then

Wscript.Echo MonSubject & " -1:command line error"

WScript.Quit(3)

End If

strcid=Args(0)

'获取工作目录

tmparr=Split(Wscript.ScriptFullName,"\",-1)

g_strworkdir=tmparr(0)

narr=UBound(tmparr,1)

For i=1 to narr-3

g_strworkdir=g_strworkdir & "\" & tmparr(i)

Next

'装载公共库

set g_fileSys = createObject ("Scripting.FileSystemObject")

Sub includeFile (fSpec)

dim file, fileData

set file = g_fileSys.openTextFile (fSpec)

fileData = file.readAll ()

file.close

executeGlobal fileData

set file = nothing

end sub

includeFile g_strworkdir & "\nagios\libexec\libcomm.vbs"

'输出版本和帮助信息

getverhelp strcid,"v1.00"," "

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

'第1次采样IO

Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_LogicalDisk where name='_Total' ",,48)

For Each objItem in colItems

DiskTime1 = objItem.PercentDiskTime

BaseTime1 = objItem.PercentDiskTime_Base

DiskBytes1 = objItem.DiskBytesPerSec

DiskReadBytes1 = objItem.DiskReadBytesPerSec

DiskWriteBytes1 = objItem.DiskWriteBytesPerSec

AvgDiskTransfer1 = objItem.AvgDiskSecPerTransfer

AvgDiskTransferBase1 = objItem.AvgDiskSecPerTransfer_Base

AvgDiskRead1 = objItem.AvgDiskSecPerRead

AvgDiskReadBase1 = objItem.AvgDiskSecPerRead_Base

AvgDiskWrite1 = objItem.AvgDiskSecPerWrite

AvgDiskWriteBase1 = objItem.AvgDiskSecPerWrite_Base

TimeValue1 = objItem.Timestamp_PerfTime

TimeBase = objItem.Frequency_PerfTime

Next

'第2次采样IO

WScript.Sleep 1000

Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_LogicalDisk where name='_Total' ",,48)

For Each objItem in colItems

DiskTime2 = objItem.PercentDiskTime

BaseTime2 = objItem.PercentDiskTime_Base

DiskBytes2 = objItem.DiskBytesPerSec

DiskReadBytes2 = objItem.DiskReadBytesPerSec

DiskWriteBytes2 = objItem.DiskWriteBytesPerSec

AvgDiskTransfer2 = objItem.AvgDiskSecPerTransfer

AvgDiskTransferBase2 = objItem.AvgDiskSecPerTransfer_Base

AvgDiskRead2 = objItem.AvgDiskSecPerRead

AvgDiskReadBase2 = objItem.AvgDiskSecPerRead_Base

AvgDiskWrite2 = objItem.AvgDiskSecPerWrite

AvgDiskWriteBase2 = objItem.AvgDiskSecPerWrite_Base

TimeValue2 = objItem.Timestamp_PerfTime

CurrentDiskQueueLength = objItem.CurrentDiskQueueLength

Next

'获取IO利用率

If BaseTime2 - BaseTime1 = 0 Then

strio ="Name=_Toltal"  & ",PercentDiskTime=0%"

Else

PercentDiskTime =(DiskTime2 - DiskTime1)/(BaseTime2 - BaseTime1)*100

strio = "Name=_Total"  & ",PercentDiskTime="  & PercentDiskTime

End If

'获取Disk Bytes/sec

If TimeValue2 - TimeValue1 = 0 Then

strdiskbyte = ",DiskBytesPerSec=0"

Else

DiskBytesPerSec = (DiskBytes2 - DiskBytes1) / ( (TimeValue2 - TimeValue1) / TimeBase)

strdiskbyte = ",DiskBytesPerSec="  & DiskBytesPerSec

End If

'获取Disk Read Bytes/sec

If TimeValue2 - TimeValue1 = 0 Then

strdiskreadbyte = ",DiskReadBytesPerSec=0"

Else

DiskReadBytesPerSec = (DiskReadBytes2 - DiskReadBytes1) / ( (TimeValue2 - TimeValue1) / TimeBase)

strdiskreadbyte = ",DiskReadBytesPerSec="  & DiskReadBytesPerSec

End If

'获取Disk Write Bytes/sec

If TimeValue2 - TimeValue1 = 0 Then

strdiskwritebyte = ",DiskWriteBytesPerSec=0"

Else

DiskWriteBytesPerSec = (DiskWriteBytes2 - DiskWriteBytes1) / ( (TimeValue2 - TimeValue1) / TimeBase)

strdiskwritebyte = ",DiskWriteBytesPerSec="  & DiskWriteBytesPerSec

End If

'获取Avg. Disk sec/Transfer

If AvgDiskTransferBase2 - AvgDiskTransferBase1 = 0 Then

stravgdisktran = ",AvgDiskSecPerTransfer=0"

Else

AvgDiskSecPerTransfer = ((AvgDiskTransfer2 - AvgDiskTransfer1) / TimeBase) / (AvgDiskTransferBase2 - AvgDiskTransferBase1)

stravgdisktran = ",AvgDiskSecPerTransfer="  & AvgDiskSecPerTransfer

End If

'获取Avg. Disk sec/Read

If AvgDiskReadBase2 - AvgDiskReadBase1 = 0 Then

stravgdiskread = ",AvgDiskSecPerRead=0"

Else

AvgDiskSecPerRead = ((AvgDiskRead2 - AvgDiskRead1) / TimeBase) / (AvgDiskReadBase2 - AvgDiskReadBase1)

stravgdiskread = ",AvgDiskSecPerRead="  & AvgDiskSecPerRead

End If

'获取Avg. Disk sec/Write

If AvgDiskWriteBase2 - AvgDiskWriteBase1 = 0 Then

stravgdiskwrite = ",AvgDiskSecPerWrite=0"

Else

AvgDiskSecPerWrite = ((AvgDiskWrite2 - AvgDiskWrite1) / TimeBase) / (AvgDiskWriteBase2 - AvgDiskWriteBase1)

stravgdiskwrite = ",AvgDiskSecPerWrite="  & AvgDiskSecPerWrite

End If

'获取Current Disk Queue Length

strdisklength = ",CurrentDiskQueueLength="  & CurrentDiskQueueLength

Wscript.Echo MonSubject & " 0:OK|" & strio & strdiskbyte & strdiskreadbyte & strdiskwritebyte & stravgdisktran & stravgdiskread & stravgdiskwrite & strdisklength