核心代码
'程序名称: 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.ArgumentsIf (Args.Count<1) ThenWscript.Echo MonSubject & " -1:command line error"WScript.Quit(3)End Ifstrcid=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 = nothingend subincludeFile g_strworkdir & "\nagios\libexec\libcomm.vbs"'输出版本和帮助信息getverhelp strcid,"v1.00"," <cid>"strComputer = "."Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")'第1次采样IOSet colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_LogicalDisk where name='_Total' ",,48)For Each objItem in colItems DiskTime1 = objItem.PercentDiskTime BaseTime1 = objItem.PercentDiskTime_BaseDiskBytes1 = objItem.DiskBytesPerSecDiskReadBytes1 = objItem.DiskReadBytesPerSecDiskWriteBytes1 = objItem.DiskWriteBytesPerSecAvgDiskTransfer1 = objItem.AvgDiskSecPerTransferAvgDiskTransferBase1 = objItem.AvgDiskSecPerTransfer_BaseAvgDiskRead1 = objItem.AvgDiskSecPerReadAvgDiskReadBase1 = objItem.AvgDiskSecPerRead_BaseAvgDiskWrite1 = objItem.AvgDiskSecPerWriteAvgDiskWriteBase1 = objItem.AvgDiskSecPerWrite_BaseTimeValue1 = objItem.Timestamp_PerfTimeTimeBase = objItem.Frequency_PerfTimeNext'第2次采样IOWScript.Sleep 1000Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_LogicalDisk where name='_Total' ",,48)For Each objItem in colItems DiskTime2 = objItem.PercentDiskTimeBaseTime2 = objItem.PercentDiskTime_BaseDiskBytes2 = objItem.DiskBytesPerSecDiskReadBytes2 = objItem.DiskReadBytesPerSecDiskWriteBytes2 = objItem.DiskWriteBytesPerSecAvgDiskTransfer2 = objItem.AvgDiskSecPerTransferAvgDiskTransferBase2 = objItem.AvgDiskSecPerTransfer_BaseAvgDiskRead2 = objItem.AvgDiskSecPerReadAvgDiskReadBase2 = objItem.AvgDiskSecPerRead_BaseAvgDiskWrite2 = objItem.AvgDiskSecPerWriteAvgDiskWriteBase2 = objItem.AvgDiskSecPerWrite_BaseTimeValue2 = objItem.Timestamp_PerfTime CurrentDiskQueueLength = objItem.CurrentDiskQueueLengthNext'获取IO利用率If BaseTime2 - BaseTime1 = 0 Thenstrio ="Name=_Toltal" & ",PercentDiskTime=0%"ElsePercentDiskTime =(DiskTime2 - DiskTime1)/(BaseTime2 - BaseTime1)*100strio = "Name=_Total" & ",PercentDiskTime=" & PercentDiskTimeEnd If'获取Disk Bytes/secIf TimeValue2 - TimeValue1 = 0 Then strdiskbyte = ",DiskBytesPerSec=0"Else DiskBytesPerSec = (DiskBytes2 - DiskBytes1) / ( (TimeValue2 - TimeValue1) / TimeBase) strdiskbyte = ",DiskBytesPerSec=" & DiskBytesPerSecEnd If'获取Disk Read Bytes/secIf TimeValue2 - TimeValue1 = 0 Then strdiskreadbyte = ",DiskReadBytesPerSec=0"Else DiskReadBytesPerSec = (DiskReadBytes2 - DiskReadBytes1) / ( (TimeValue2 - TimeValue1) / TimeBase) strdiskreadbyte = ",DiskReadBytesPerSec=" & DiskReadBytesPerSecEnd If'获取Disk Write Bytes/secIf TimeValue2 - TimeValue1 = 0 Then strdiskwritebyte = ",DiskWriteBytesPerSec=0"Else DiskWriteBytesPerSec = (DiskWriteBytes2 - DiskWriteBytes1) / ( (TimeValue2 - TimeValue1) / TimeBase) strdiskwritebyte = ",DiskWriteBytesPerSec=" & DiskWriteBytesPerSecEnd If'获取Avg. Disk sec/TransferIf AvgDiskTransferBase2 - AvgDiskTransferBase1 = 0 Then stravgdisktran = ",AvgDiskSecPerTransfer=0"Else AvgDiskSecPerTransfer = ((AvgDiskTransfer2 - AvgDiskTransfer1) / TimeBase) / (AvgDiskTransferBase2 - AvgDiskTransferBase1) stravgdisktran = ",AvgDiskSecPerTransfer=" & AvgDiskSecPerTransferEnd If'获取Avg. Disk sec/ReadIf AvgDiskReadBase2 - AvgDiskReadBase1 = 0 Then stravgdiskread = ",AvgDiskSecPerRead=0"Else AvgDiskSecPerRead = ((AvgDiskRead2 - AvgDiskRead1) / TimeBase) / (AvgDiskReadBase2 - AvgDiskReadBase1) stravgdiskread = ",AvgDiskSecPerRead=" & AvgDiskSecPerReadEnd If'获取Avg. Disk sec/WriteIf AvgDiskWriteBase2 - AvgDiskWriteBase1 = 0 Then stravgdiskwrite = ",AvgDiskSecPerWrite=0"Else AvgDiskSecPerWrite = ((AvgDiskWrite2 - AvgDiskWrite1) / TimeBase) / (AvgDiskWriteBase2 - AvgDiskWriteBase1) stravgdiskwrite = ",AvgDiskSecPerWrite=" & AvgDiskSecPerWriteEnd If'获取Current Disk Queue Lengthstrdisklength = ",CurrentDiskQueueLength=" & CurrentDiskQueueLengthWscript.Echo MonSubject & " 0:OK|" & strio & strdiskbyte & strdiskreadbyte & strdiskwritebyte & stravgdisktran & stravgdiskread & stravgdiskwrite & strdisklength
用到了WMI，需要的朋友可以参考一下
本文标题: 磁盘IO利用率监控VBS脚本(windows)
以上就上有关磁盘IO利用率监控VBS脚本(windows)的相关介绍，要了解更多VBS,磁盘,IO,利用率内容请登录学步园。