NTFSのファイルキャッシュを監視することができるVBスクリプト。
メモ帳とかに貼りつけて、拡張子をVBSにしてから、ダブルクリックで実行。
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colCache = objRefresher.AddEnum _
(objWMIService, "win32_PerfFormattedData_PerfOS_Cache").ObjectSet
objRefresher.Refresh
For i = 1 to 100
For Each objCache in colCache
Wscript.Echo "Async Copy Reads Per Second" & vbTab & _
objCache.AsyncCopyReadsPerSec
Wscript.Echo "Async Data Maps Per Second" & vbTab & _
objCache.AsyncDataMapsPerSec
Wscript.Echo "AsyncFastReadsPerSecond" & vbTab & _
objCache.AsyncFastReadsPerSec
Wscript.Echo "Async MDL Reads Per Second" & vbTab & _
objCache.AsyncMDLReadsPerSec
Wscript.Echo "Async Pin Reads Per Second" & vbTab & _
objCache.AsyncPinReadsPerSec
Wscript.Echo "Caption" & vbTab & objCache.Caption
Wscript.Echo "Copy Read Hits Percent " & vbTab & _
objCache.CopyReadHitsPercent
Wscript.Echo "Copy Reads Per Second" & vbTab & _
objCache.CopyReadsPerSec
Wscript.Echo "Data Flushes Per Second" & vbTab & _
objCache.DataFlushesPerSec
Wscript.Echo "Data Flush Pages PerSecond" & vbTab & _
objCache.DataFlushPagesPerSec
Wscript.Echo "Data Map Hits Percent " & vbTab & _
objCache.DataMapHitsPercent
Wscript.Echo "Data Map Pins Per Second" & vbTab & _
objCache.DataMapPinsPerSec
Wscript.Echo "Data Maps Per Second" & vbTab & _
objCache.DataMapsPerSec
Wscript.Echo "Description" & vbTab & objCache.Description
Wscript.Echo "Fast Read Not Possibles Per Second" & vbTab & _
objCache.FastReadNotPossiblesPerSec
Wscript.Echo "Fast Read Resource Misses Per Second" & vbTab & _
objCache.FastReadResourceMissesPerSec
Wscript.Echo "Fast Reads Per Second" & vbTab & _
objCache.FastReadsPerSec
Wscript.Echo "Lazy Write Flushes Per Second" & vbTab & _
objCache.LazyWriteFlushesPerSec
Wscript.Echo "Lazy Write Pages Per Second" & vbTab & _
objCache.LazyWritePagesPerSec
Wscript.Echo "MDL Read Hits Percent " & vbTab & _
objCache.MDLReadHitsPercent
Wscript.Echo "MDL Reads Per Second" & vbTab & _
objCache.MDLReadsPerSec
Wscript.Echo "Name" & vbTab & objCache.Name
Wscript.Echo "Pin Read Hits Percent" & vbTab & _
objCache.PinReadHitsPercent
Wscript.Echo "Pin Reads Per Second" & vbTab & _
objCache.PinReadsPerSec
Wscript.Echo "Read Aheads Per Second" & vbTab & _
objCache.ReadAheadsPerSec
Wscript.Echo "Sync Copy Reads Per Second" & vbTab & _
objCache.SyncCopyReadsPerSec
Wscript.Echo "Sync Data Maps Per Second" & vbTab & _
objCache.SyncDataMapsPerSec
Wscript.Echo "Sync Fast Reads Per Second" & vbTab & _
objCache.SyncFastReadsPerSec
Wscript.Echo "Sync MDL Reads Per Second" & vbTab & _
objCache.SyncMDLReadsPerSec
Wscript.Echo "Sync Pin Reads Per Second" & vbTab & _
objCache.SyncPinReadsPerSec
Wscript.Sleep 2000
objRefresher.Refresh
Next
Next 各種パラメータが1つずつポップアップして表示される。
これが1巡で25個ぐらいポップアップするは、これが100巡するわで、
気さくに実行すると、止め方がわからなくてうんざりするので注意。
止めるにはタスクマネージャからwscript.exeを止めればOK。
ネタ元
