Hagaren76

Bug correction: - $ObjWHDI_ComError object with AutoIt COM error handler was not destroyed after exiting function when there was error detected. Opt("MustDeclareVars", 1) Global $WHDI_InstallComErrorHandler = True, $WHDI_ComError = False Global $ObjWHDI_ComError ; --------------- This part for testing purposes only. --------------- Global $WHDI_FnResult $WHDI_FnResult = WaitHDDsIdle(120000, 3000) MsgBox(0, "WaitHDDsIdle result:", $WHDI_FnResult & " @error: " & @error) ; -------------------------------------------------------------------- ; Waits $MaxTimeToWaitInMs for all HDDs in machine to be idle for $IdleTimeInMs. ; Minimum value (for both) is 500. ; Returns elapsed time in ms on success. ; On failure, sets @error to: ; 1 - failed to install WaitHDDsIdle_COMErrorHandler, because another function already exists. Returns 0. ; 2 - failed to get WMI object. Returns 0. ; 3 - COM error. Returns hex number of COM error. ; 4 - $MaxTimeToWaitInMs elapsed (HDDs was not idle for $IdleTimeInMs). Returns 0. ; $Precision: value from 1-10, 5 by default. 1 is most precise. 10 is for slower computers (not tested on slower machines, did not detect cpu usage increase, but let it be). ; If $WHDI_InstallComErrorHandler is true, we install error handler to intercept COM error, ; but, this is not mandatory for function to work. If you dont use autoit com error handler function, ; do enable this (it is enabled by default). Func WaitHDDsIdle($MaxTimeToWaitInMs, $IdleTimeInMs, $Precision = 5) Local $PrecisionCounter = 0 Local $MaxTimeStartInMs, $IdleTimeStartInMs, $IdleTimerStarted = False, $DoStartIdleTimer = False Local $WMIObj, $ObjCollection, $EnumObj, $TotalQueue, $ErrStr, $ErrNum = 0 If $Precision < 1 Or $Precision > 10 Then $Precision = 5 If $MaxTimeToWaitInMs < 500 Then $MaxTimeToWaitInMs = 500 If $IdleTimeInMs < 500 Then $IdleTimeInMs = 500 If $WHDI_InstallComErrorHandler Then If Not Install_WaitHDDsIdle_COMErrorHandler() Then SetError(1) Return 0 EndIf EndIf $MaxTimeStartInMs = TimerInit() $WMIObj = ObjGet("WinMgmts:\\.\Root\CIMv2") If @error Then SetError(2) $WHDI_ComError = False $ObjWHDI_ComError = 0 Return 0 EndIf While 1 Sleep(10) $ObjCollection = $WMIObj.ExecQuery("Select CurrentDiskQueueLength From Win32_PerfRawData_PerfDisk_PhysicalDisk Where Name='_Total'") If $WHDI_ComError Then $WHDI_ComError = False $ErrNum = 3 ExitLoop EndIf For $EnumObj In $ObjCollection $TotalQueue = $EnumObj.CurrentDiskQueueLength If $WHDI_ComError Then $WHDI_ComError = False $ErrNum = 3 ExitLoop EndIf Next If $TotalQueue = 0 Then If Not $IdleTimerStarted Then $DoStartIdleTimer = True Else $IdleTimerStarted = False EndIf $PrecisionCounter += 1 If $Precision = $PrecisionCounter Then If $MaxTimeToWaitInMs < TimerDiff($MaxTimeStartInMs) Then $ErrNum = 4 ExitLoop EndIf If $DoStartIdleTimer Then $IdleTimeStartInMs = TimerInit() $IdleTimerStarted = True $DoStartIdleTimer = False EndIf If $IdleTimerStarted And ($IdleTimeInMs < TimerDiff($IdleTimeStartInMs)) Then ExitLoop $PrecisionCounter = 0 EndIf WEnd ; Was there errors in the loop? Switch $ErrNum Case 0 $ObjWHDI_ComError = 0 Return TimerDiff($MaxTimeStartInMs) Case 3 SetError(3) $ErrStr = "0x" & Hex($ObjWHDI_ComError.number, 8) $ObjWHDI_ComError = 0 Return $ErrStr Case 4 SetError(4) $ObjWHDI_ComError = 0 Return 0 EndSwitch EndFunc ; Internal function. Func WaitHDDsIdle_COMErrorHandler() $WHDI_ComError = True EndFunc ; Internal function. ; Returns 1 if successfully installed error handler, ; or 0 if error handler function already exists. ; From AutoIt help: You can only have ONE Error Event Handler active per AutoIt script. Func Install_WaitHDDsIdle_COMErrorHandler() Local $ErrFuncName = ObjEvent("AutoIt.Error") If $ErrFuncName <> "" Then Return 0 $ObjWHDI_ComError = ObjEvent("AutoIt.Error", "WaitHDDsIdle_COMErrorHandler") Return 1 EndFunc

Was looking for this, very nice, thank you Ascend4nt!

Hello, after more than 2 years of using AutoIt and reading this forum, my first post, better late than never So, needed to detect idle time after windows booting up, saw this post, decided to modify code, hope somebody will find it usefull. ps. Yes, it has error checking Opt("MustDeclareVars", 1) Global $WHDI_InstallComErrorHandler = True, $WHDI_ComError = False Global $ObjWHDI_ComError ; --------------- This part for testing purposes only. --------------- Global $WHDI_FnResult $WHDI_FnResult = WaitHDDsIdle(5000, 1000) MsgBox(0, "WaitHDDsIdle result:", $WHDI_FnResult & " @error: " & @error) ; -------------------------------------------------------------------- ; Waits $MaxTimeToWaitInMs for all HDDs in machine to be idle for $IdleTimeInMs. ; Minimum value (for both) is 500. ; Returns elapsed time in ms on success. ; On failure, sets @error to: ; 1 - failed to install WaitHDDsIdle_COMErrorHandler, because another function already exists. Returns 0. ; 2 - failed to get WMI object. Returns 0. ; 3 - COM error. Returns hex number of COM error. ; 4 - $MaxTimeToWaitInMs elapsed (HDDs was not idle for $IdleTimeInMs). Returns 0. ; $Precision: value from 1-10, 5 by default. 1 is most precise. 10 is for slower computers (not tested on slower machines, did not detect cpu usage increase, but let it be). ; If $WHDI_InstallComErrorHandler is true, we install error handler to intercept COM error, ; but, this is not mandatory for function to work. If you dont use autoit com error handler function, ; do enable this (it is enabled by default). Func WaitHDDsIdle($MaxTimeToWaitInMs, $IdleTimeInMs, $Precision = 5) Local $PrecisionCounter = 0 Local $MaxTimeStartInMs, $IdleTimeStartInMs, $IdleTimerStarted = False, $DoStartIdleTimer = False Local $WMIObj, $ObjCollection, $EnumObj, $TotalQueue If $Precision < 1 Or $Precision > 10 Then $Precision = 5 If $MaxTimeToWaitInMs < 500 Then $MaxTimeToWaitInMs = 500 If $IdleTimeInMs < 500 Then $IdleTimeInMs = 500 If $WHDI_InstallComErrorHandler Then If Not Install_WaitHDDsIdle_COMErrorHandler() Then SetError(1) Return 0 EndIf EndIf $MaxTimeStartInMs = TimerInit() $WMIObj = ObjGet("WinMgmts:\\.\Root\CIMv2") If @error Then SetError(2) Return 0 EndIf While 1 Sleep(10) $ObjCollection = $WMIObj.ExecQuery("Select CurrentDiskQueueLength From Win32_PerfRawData_PerfDisk_PhysicalDisk Where Name='_Total'") If $WHDI_ComError Then $WHDI_ComError = False SetError(3) Return "0x" & Hex($ObjWHDI_ComError.number, 8) EndIf For $EnumObj In $ObjCollection $TotalQueue = $EnumObj.CurrentDiskQueueLength If $WHDI_ComError Then $WHDI_ComError = False SetError(3) Return "0x" & Hex($ObjWHDI_ComError.number, 8) EndIf Next If $TotalQueue = 0 Then If Not $IdleTimerStarted Then $DoStartIdleTimer = True Else $IdleTimerStarted = False EndIf $PrecisionCounter += 1 If $Precision = $PrecisionCounter Then If $MaxTimeToWaitInMs < TimerDiff($MaxTimeStartInMs) Then SetError(4) Return 0 EndIf If $DoStartIdleTimer Then $IdleTimeStartInMs = TimerInit() $IdleTimerStarted = True $DoStartIdleTimer = False EndIf If $IdleTimerStarted And ($IdleTimeInMs < TimerDiff($IdleTimeStartInMs)) Then ExitLoop $PrecisionCounter = 0 EndIf WEnd ; $IdleTimeInMs reached. $WMIObj = 0 $ObjCollection = 0 $EnumObj = 0 $TotalQueue = 0 $ObjWHDI_ComError = 0 Return TimerDiff($MaxTimeStartInMs) EndFunc ; Internal function. Func WaitHDDsIdle_COMErrorHandler() $WHDI_ComError = True EndFunc ; Internal function. ; Returns 1 if successfully installed error handler, ; or 0 if error handler function already exists. ; From AutoIt help: You can only have ONE Error Event Handler active per AutoIt script. Func Install_WaitHDDsIdle_COMErrorHandler() Local $ErrFuncName = ObjEvent("AutoIt.Error") If $ErrFuncName <> "" Then Return 0 $ObjWHDI_ComError = ObjEvent("AutoIt.Error", "WaitHDDsIdle_COMErrorHandler") Return 1 EndFunc