'ScanFragAll.vbs - ScanDisk and DeFrag on all hard drives.
'© Bill James - billjames.geo@yahoo.com - rev 10 Oct 1999
Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "scandskw  /all /n /silent",1,true
WshShell.Run "defrag /all /noprompt",1,true