One2Many Script Repository

VBS Check Disk

Option Explicit
 
Dim WshShell, fso, d, dc, LogFile, Drive
 
Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
 
Set dc = fso.Drives
For Each d in DC
'Determine drive letter of first fixed disk
'This is the drive that the report will be placed on
If d.DriveType = 2 Then
Drive = d
Exit For
End If
Next
 
LogFile = Drive & "\chkdskreport.txt"
 
WshShell.Run "%comspec% /c echo Starting chkdsk of all hard disks " _
& Now & " >" & LogFile, 0, True
For Each d in dc
If d.DriveType = 2 Then
WshShell.Run "%comspec% /c echo ********* Checking drive " & d _
& " ******** >>" & LogFile, 0, True
WshShell.Run "%comspec% /c chkdsk.exe /f " & d & " >>" & LogFile,1, False
Wscript.Sleep 1000
WshShell.SendKeys "Y"
Wscript.Sleep 10
WshShell.SendKeys "~"
End If
Next
 
WshShell.Run LogFile