For Each objInstance1 in objService.ExecQuery("Select * from Win32_PerfRawData_PerfProc_Process") N1 = objInstance1.PercentProcessorTime D1 = objInstance1.TimeStamp_Sys100NS
WScript.Sleep(500)
For Each perf_instance2 in objService.ExecQuery("Select * from Win32_PerfRawData_PerfProc_Process") N2 = perf_instance2.PercentProcessorTime D2 = perf_instance2.TimeStamp_Sys100NS