 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: Monitor Physical Disk Drive Performance
|
||
|
' Description: Uses cooked performance counters to monitor performance of the physical disk drives installed on a computer.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") set objRefresher = CreateObject("WbemScripting.SWbemRefresher") Set colDisks = objRefresher.AddEnum _ (objWMIService, "win32_perfformatteddata_perfdisk_physicaldisk"). _ objectSet objRefresher.Refresh For i = 1 to 100 For Each objDisk in colDisks Wscript.Echo "Average Disk Bytes Per Read: " & vbTab & _ objDisk.AvgDiskBytesPerRead Wscript.Echo "Average Disk Bytes Per Transfer: " & vbTab & _ objDisk.AvgDiskBytesPerTransfer Wscript.Echo "Average Disk Bytes Per Write: " & vbTab & _ objDisk.AvgDiskBytesPerWrite Wscript.Echo "Average Disk Queue Length: " & vbTab & _ objDisk.AvgDiskQueueLength Wscript.Echo "Average Disk Read Queue Length: " & vbTab & _ objDisk.AvgDiskReadQueueLength Wscript.Echo "Average Disk Seconds Per Read: " & vbTab & _ objDisk.AvgDiskSecPerRead Wscript.Echo "Average Disk Seconds Per Transfer: " & vbTab & _ objDisk.AvgDiskSecPerTransfer Wscript.Echo "Average Disk Seconds Per Write: " & vbTab & _ objDisk.AvgDiskSecPerWrite Wscript.Echo "Average Disk Write Queue Length: " & vbTab & _ objDisk.AvgDiskWriteQueueLength Wscript.Echo "Current Disk Queue Length: " & vbTab & _ objDisk.CurrentDiskQueueLength Wscript.Echo "Disk Bytes Per Second: " & vbTab & _ objDisk.DiskBytesPerSec Wscript.Echo "Disk Read Bytes Per Second: " & vbTab & _ objDisk.DiskReadBytesPerSec Wscript.Echo "Disk Reads Per Second: " & vbTab & _ objDisk.DiskReadsPerSec Wscript.Echo "Disk Transfers Per Second: " & vbTab & _ objDisk.DiskTransfersPerSec Wscript.Echo "Disk Write Bytes Per Second: " & vbTab & _ objDisk.DiskWriteBytesPerSec Wscript.Echo "Disk Writes Per Second: " & vbTab & _ objDisk.DiskWritesPerSec Wscript.Echo "Name: " & vbTab & objDisk.Name Wscript.Echo "Percent Disk Read Time: " & vbTab & _ objDisk.PercentDiskReadTime Wscript.Echo "Percent Disk Time: " & vbTab & _ objDisk.PercentDiskTime Wscript.Echo "Percent Disk Write Time: " & vbTab & _ objDisk.PercentDiskWriteTime Wscript.Echo "Percent Idle Time: " & vbTab & _ objDisk.PercentIdleTime Wscript.Echo "Split IO Per Second: " & vbTab & _ objDisk.SplitIOPerSec Wscript.Sleep 2000 objRefresher.Refresh Next Next | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
