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

核心代码

'程序名称:      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.Count1) 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 * @R_360_2150@ 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，需要的朋友可以参考一下

• vbs定期监控 值个班，定期瞄一下
• VBScript 监控并结束指定进程的代码
• VBScript 监控磁盘更改事件实现代码
• VBS监控CPU的使用率(如占用率一直维持在80%超过30秒则运行某程序)
• 网络接口利用率监控VBS脚本代码（Windows）
• 进程监控实现代码[vbs+bat]
• 用VBS调用程序并对程序的运行情况进行监控的两个代码
• 如何使用vb 监控电脑活动记录

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！