Once this script is saved as a VBS File… How do you
schedule it? I tried using Task Scheduler and it will not run…
Thanks
Dennis Christilaw
AT&T
Wireless - IT - National Billing & Roaming
3G Mediation Technical
Support Analyst
-----Original
Message-----
From: David Lee
[mailto:[EMAIL PROTECTED]]
Sent: Tuesday, May 07, 2002 2:15
PM
To: [EMAIL PROTECTED]
Subject: Re: [ActiveDir]
Automating Defragmentation
This is what
I use in VBScript.
'This script launches defrag and sends keys to the UI in order to automate the
defrag
'process.
set WshShell =
CreateObject("WScript.Shell")
'Launch Defrag from the command line and wait for a second
WshShell.Run
"dfrg.msc"
WScript.Sleep
1000
'Wait until the application has loaded - Check every second
While
WshShell.AppActivate("Disk Defragmenter") = FALSE
wscript.sleep
1000
Wend
'Bring the application to the foreground
WshShell.AppActivate
"Disk Defragmenter"
WScript.Sleep
200
'Send an ALT-A key to bring down the degrag menu
WshShell.SendKeys
"%A"
WScript.Sleep
200
'Send a D to start the defrag
WshShell.SendKeys
"D"
'Wait until the defrag is completed - Check for window every 5 seconds
While
WshShell.AppActivate("Defragmentation Complete") = FALSE
wscript.sleep
5000
Wend
'Bring the msgbox to the foreground
WshShell.AppActivate
"Defragmentation Complete"
WScript.Sleep
200
'Send a tab key to move the focus from View Report button to the Close Button
WshShell.Sendkeys
"{TAB}"
Wscript.Sleep
500
'Send key to Close the Defragmentation Complete window
WshShell.Sendkeys
"{ENTER}"
Wscript.Sleep
500
WshShell.Sendkeys
"{TAB}"
Wscript.Sleep
500
wshshell.Sendkeys
"{down}"
Wscript.Sleep
500
'Send an ALT-A key to bring down the degrag menu
WshShell.SendKeys
"%A"
WScript.Sleep
200
'Send a D to start the defrag
WshShell.SendKeys
"D"
'Wait until the defrag is completed - Check for window every 5 seconds
While
WshShell.AppActivate("Defragmentation Complete") = FALSE
wscript.sleep
5000
Wend
'Bring the msgbox to the foreground
WshShell.AppActivate
"Defragmentation Complete"
WScript.Sleep
200
'Send a tab key to move the focus from View Report button to the Close Button
WshShell.Sendkeys
"{TAB}"
Wscript.Sleep
500
'Send key to Close the Defragmentation Complete window
WshShell.Sendkeys
"{ENTER}"
Wscript.Sleep
500
'WshShell.Sendkeys
"{TAB}"
'Wscript.Sleep
500
wshshell.Sendkeys
"{down}"
Wscript.Sleep
500
'Send an ALT-A key to bring down the degrag menu
WshShell.SendKeys
"%A"
WScript.Sleep
200
'Send a D to start the defrag
WshShell.SendKeys
"D"
'Wait until the defrag is completed - Check for window every 5 seconds
While
WshShell.AppActivate("Defragmentation Complete") = FALSE
wscript.sleep
5000
Wend
'Bring the msgbox to the foreground
WshShell.AppActivate
"Defragmentation Complete"
WScript.Sleep
200
'Send a tab key to move the focus from View Report button to the Close Button
WshShell.Sendkeys
"{TAB}"
Wscript.Sleep
500
'Send key to Close the Defragmentation Complete window
WshShell.Sendkeys
"{ENTER}"
Wscript.Sleep
500
'Send and ALT-F4 to Close the Defrag program
WshShell.Sendkeys
"%{F4}"
At 04:04 PM 5/7/2002 -0400, you wrote:
Does any have a script or a source they
can point me to help me Automate
Windows 2000's Defrag utility
Joshua Morgan
PROFITLAB
Senior Network Engineer
PH: (864) 250-1350 Ext 133
Fax: (413) 581-4936
[EMAIL PROTECTED]
http://www.profit-lab.com
http://ncontrol.info
The greatest glory is not in never failing, but in rising up every time we
fall.
-- Confucius
List info : http://www.activedir.org/mail_list.htm
List FAQ : http://www.activedir.org/list_faq.htm
List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/
David D. Lee
Computer Resource Specialist II
Office of Undergraduate Admissions
[EMAIL PROTECTED]
2-6417
