"
strComputer="."
SetobjWMIService=GetObject("winmgmts:"&"{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2")
'第1次采样IO
SetcolItems=objWMIService.ExecQuery("Select*fromWin32_PerfRawData_PerfDisk_LogicalDiskwherename='_Total'",,48)
ForEachobjItemincolItems
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.Sleep1000
SetcolItems=objWMIService.ExecQuery("Select*fromWin32_PerfRawData_PerfDisk_LogicalDiskwherename='_Total'",,48)
ForEachobjItemincolItems
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利用率
IfBaseTime2-BaseTime1=0Then
strio="Name=_Toltal" &",PercentDiskTime=0%"
Else
PercentDiskTime=(DiskTime2-DiskTime1)/(BaseTime2-BaseTime1)*100
strio="Name=_Total" &",PercentDiskTime=" &PercentDiskTime
EndIf
'获取DiskBytes/sec
IfTimeValue2-TimeValue1=0Then
strdiskbyte=",DiskBytesPerSec=0"
Else
DiskBytesPerSec=(DiskBytes2-DiskBytes1)/((TimeValue2-TimeValue1)/TimeBase)
strdiskbyte=",DiskBytesPerSec=" &DiskBytesPerSec
EndIf
'获取DiskReadBytes/sec
IfTimeValue2-TimeValue1=0Then
strdiskreadbyte=",DiskReadBytesPerSec=0"
Else
DiskReadBytesPerSec=(DiskReadBytes2-DiskReadBytes1)/((TimeValue2-TimeValue1)/TimeBase)
strdiskreadbyte=",DiskReadBytesPerSec=" &DiskReadBytesPerSec
EndIf
'获取DiskWriteBytes/sec
IfTimeValue2-TimeValue1=0Then
strdiskwritebyte=",DiskWriteBytesPerSec=0"
Else
DiskWriteBytesPerSec=(DiskWriteBytes2-DiskWriteBytes1)/((TimeValue2-TimeValue1)/TimeBase)
strdiskwritebyte=",DiskWriteBytesPerSec=" &DiskWriteBytesPerSec
EndIf
'获取Avg.Disksec/Transfer
IfAvgDiskTransferBase2-AvgDiskTransferBase1=0Then
stravgdisktran=",AvgDiskSecPerTransfer=0"
Else
AvgDiskSecPerTransfer=((AvgDiskTransfer2-AvgDiskTransfer1)/TimeBase)/(AvgDiskTransferBase2-AvgDiskTransferBase1)
stravgdisktran=",AvgDiskSecPerTransfer=" &AvgDiskSecPerTransfer
EndIf
'获取Avg.Disksec/Read
IfAvgDiskReadBase2-AvgDiskReadBase1=0Then
stravgdiskread=",AvgDiskSecPerRead=0"
Else
AvgDiskSecPerRead=((AvgDiskRead2-AvgDiskRead1)/TimeBase)/(AvgDiskReadBase2-AvgDiskReadBase1)
stravgdiskread=",AvgDiskSecPerRead=" &AvgDiskSecPerRead
EndIf
'获取Avg.Disksec/Write
IfAvgDiskWriteBase2-AvgDiskWriteBase1=0Then
stravgdiskwrite=",AvgDiskSecPerWrite=0"
Else
AvgDiskSecPerWrite=((AvgDiskWrite2-AvgDiskWrite1)/TimeBase)/(AvgDiskWriteBase2-AvgDiskWriteBase1)
stravgdiskwrite=",AvgDiskSecPerWrite=" &AvgDiskSecPerWrite
EndIf
'获取CurrentDiskQueueLength
strdisklength=",CurrentDiskQueueLength=" &CurrentDiskQueueLength
Wscript.EchoMonSubject&"0:OK|"&strio&strdiskbyte&strdiskreadbyte&strdiskwritebyte&stravgdisktran&stravgdiskread&stravgdiskwrite&strdisklength
用到了WMI，需要的朋友可以参考一下