How to schedule chkdsk to run at shutdown?! and HDD Health status

1. I like to schedule chkdsk at shutdown for all the 25 systems in our concern, at a regular interval.

2. How to run Hard Disk Diagnostic utility automatically at  regular interval(say once in a month).

Kindly suggest me any built-in options for the above two (or) any Third party Application to achive the result.

Thanks in Advance,
Who is Participating?
d4t2ill4Connect With a Mentor Commented:
Sorry, if you want to know where  the shutdown script policy is located in the Registry, this website can help.

more example on logon/shutdown/logoff scripts

You can specify in computer policy to execute script/command on shutdown/log off.


you can use the AT.exe command to schedule tasks on remote computer.
Saqib Husain, SyedEngineerCommented:
What I think is that chkdsk will only run at startup even before windows gains control over hard disk operations. So I do not think it will be possible at shutdown.

Cloud Class® Course: CompTIA Healthcare IT Tech

This course will help prep you to earn the CompTIA Healthcare IT Technician certification showing that you have the knowledge and skills needed to succeed in installing, managing, and troubleshooting IT systems in medical and clinical settings.

ssaqibh is correct, you can not chkdsk for system drives or drive that contains pagefile. chkdsk will schedule chkdsk on the next boot and the result on be seen in eventviewer. I've got a simple script schedule chkdsk at next boot which I schedule to run at shutdown. I hope this helps.

Option Explicit

Dim objFSO, objShell, objEnv, objReg
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objEnv = objShell.Environment("PROCESS")
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

Dim intExitCode
intExitCode = 0


Dim strScriptPath, objDrive, arrChkdskRegString
strScriptPath = objFSO.GetParentFolderName (WScript.ScriptFullName)
arrChkdskRegString = Array ()

For Each objDrive In objFSO.Drives
      If objDrive.DriveType = 2 Then
            arrChkdskRegString = AddArrayRecord (arrChkdskRegString, "autocheck autochk /r \??\" & objDrive.DriveLetter & ":")
      End If

arrChkdskRegString = AddArrayRecord (arrChkdskRegString, "autocheck autochk *")

Const HKLM = &H80000002
Dim strKeyPath, strValueName
strKeyPath = "SYSTEM\CurrentControlSet\Control\Session Manager"
strValueName = "BootExecute"

objReg.CreateKey HKLM,strKeyPath
objReg.SetMultiStringValue HKLM, strKeyPath, strValueName, arrChkdskRegString

WScript.Quit intExitCode

Function AddArrayRecord (arrTempArray(), strValue)
      ReDim Preserve  arrTempArray (UBound(arrTempArray) + 1)
      arrTempArray (UBound(arrTempArray)) = strValue
      AddArrayRecord = arrTempArray
End Function
kriishvpAuthor Commented:
Hi d4t2ill4,

Is it possible to assign the script as shutdown script and also not allowing the user to skip the chkdsk.

Shutdown scripts run as Local System account (not logoff). you can run this script at shutdown. The script i showed you will schedule chkdsk at next bootup. Once you have passed the allowed cancel time at bootup, user can not cancel except force distruption such as shutdown. But I suggest you don't run chkdsk during business hour because a thorough scan can take up to a few hours to complete depending on the drive size.

This script only takes 1 second to run but there's a way you can hide all shutdown script so the user can not see.
I hope this helps.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.