The version of defrag that comes with most recent installs of Windows does not allow for scheduling…to get around this limitation, the following VBScript will enumerate all fixed harddrives on a machine, and launch defrag via command like for that drive. Set it up as a scheduled task and forget about it.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
'* Copyright (C) 2004 Andrew Loree '* $Id: defrag.vbs,v 1.2 2004/06/04 11:59:39 andy Exp $ '**************************************************************************** '* defrag.vbs - Enumerates all fixed hard drives on '* running 'degrag {drive_letter} -f' to defrag the drives '* from a commandline. Create as a scheduled task '**************************************************************************** '* This program is free software; you can redistribute it and/or '* modify it under the terms of the GNU General Public License '* as published by the Free Software Foundation; either version 2 '* of the License, or (at your option) any later version. '* '* This program is distributed in the hope that it will be useful, '* but WITHOUT ANY WARRANTY; without even the implied warranty of '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '* GNU General Public License for more details. '* '* You should have received a copy of the GNU General Public License '* along with this program; if not, write to the Free Software '* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '**************************************************************************** '* Version History: '* 1.0 - Initial Release '* 1.1 - Added a trailing colon to the drive letter '**************************************************************************** Option Explicit Dim oShell, oFS, oDrive, nResults Set oShell = CreateObject("WScript.Shell") Set oFS = CreateObject("Scripting.FileSystemObject") For Each oDrive In oFS.Drives If (oDrive.DriveType = 2) Then nResults = oShell.Run("defrag " & oDrive.DriveLetter & ": -f", 1, TRUE) End If Next Set oShell = Nothing |