磁盘IO利用率监控VBS脚本(windows)

Windows  /  管理员 发布于 5年前   360

核心代码

'程序名称:      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) Then Wscript.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 = nothing end 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_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_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.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.CurrentDiskQueueLengthNext'获取IO利用率If BaseTime2 - BaseTime1 = 0 Then strio ="Name=_Toltal"  & ",PercentDiskTime=0%"Else PercentDiskTime =(DiskTime2 - DiskTime1)/(BaseTime2 - BaseTime1)*100  strio = "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，需要的朋友可以参考一下