/** Script: DeFrag.js
*
* Purpose: Calls Defrag and start defragmentation. It stops
* after one hour.
*
* Author: Dan Casier
* Date: 30 oct 2004
* Web: none
* Note: run on Windows 2000 Pro, server and XP. Windows 2003
* not tested. Useful to defrag disks on server by night
* used in sheduled tasks
* Copyright 2004 Dan Casier
*
**/
// Title of Disk Defragmenter MMC
var appTitle = "Schijfdefragmentatie"; // Dutch
var appTitle = "Disk Defragmenter"; // English
var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.Run("%SystemRoot%\\System32\\dfrg.msc");
WScript.Sleep(100);
WshShell.AppActivate( appTitle );
WScript.Sleep(100);//***to select next harddisk include next lines
//WScript.Sleep(500);
//WshShell.SendKeys("{TAB}");
//WScript.Sleep(500);
//WshShell.SendKeys("{DOWN}");
//start defragmentation
WshShell.SendKeys("%a");
WScript.Sleep(500);
WshShell.SendKeys("d");
//wait one hour
WScript.Sleep(1000*60*60); //value is in milliseconds
//stops the program
WshShell.AppActivate( appTitle );
WshShell.SendKeys("{RIGHT}");
WScript.Sleep(500);
WshShell.SendKeys("{ENTER}");
WScript.Sleep(500);
WshShell.SendKeys("%{F4}");