DDR爱好者之家 Design By 杰米
核心代码
'程序名称: 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"," <cid>" 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
用到了WMI,需要的朋友可以参考一下
DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米
暂无评论...
P70系列延期,华为新旗舰将在下月发布
3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。
而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?
根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。
更新日志
2024年12月26日
2024年12月26日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]