Monitorowanie wydajności NTFS File Cache
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set col = objRefresher.AddEnum _
(objWMIService, "win32_PerfFormattedData_PerfOS_Cache").ObjectSet
objRefresher.Refresh
For i = 1 to 100
For Each obj in col
Wscript.Echo "Async Copy Reads Per Second" & _
obj.AsyncCopyReadsPerSec
Wscript.Echo "Async Data Maps Per Second" & _
obj.AsyncDataMapsPerSec
Wscript.Echo "AsyncFastReadsPerSecond" & _
obj.AsyncFastReadsPerSec
Wscript.Echo "Async MDL Reads Per Second" & _
obj.AsyncMDLReadsPerSec
Wscript.Echo "Async Pin Reads Per Second" & _
obj.AsyncPinReadsPerSec
......aby zobaczyć cały artykuł zaloguj się lub zarejestruj.....
Share Link: 
