OVH Cloud OVH Cloud

Automatiser défragmentation

2 réponses
Avatar
Patrick Goeman
Bonjour,

Depuis déjà quelque temps je cherche comment automatiser la défragmentation
du disque dur du serveur W2000.
En manuel ca ne me pose pas de problème mais comment faire pour
l'automatiser et la lancer une fois par semaine à jour et heure fixe ?

Merci.

2 réponses

Avatar
LordGhost
-----Message d'origine-----
Bonjour,

Depuis déjà quelque temps je cherche comment automatiser
la défragmentation

du disque dur du serveur W2000.
En manuel ca ne me pose pas de problème mais comment
faire pour

l'automatiser et la lancer une fois par semaine à jour
et heure fixe ?


Merci.


.
Allez sur le lien suivant:
http://support.microsoft.com/default.aspx?scid=kb;en-

us;300439&Product=win2000

Avatar
Maurice POLARD
--- Réponse ---
Pour l'automatisation de la défragmentation d'un disque le petit script
suivant devrait faire l'affaire pour le disque D:. Il suffit de le modifier
légèrement pour l'utiliser pour un disque dont la lettre d'unité serait
transmise en paramètre.

set WshShell = CreateObject("WScript.Shell")
WshShell.Run "dfrg.msc"
WScript.Sleep 1000
While WshShell.AppActivate("Disk Defragmenter") = FALSE
wscript.sleep 1000
Wend
WshShell.AppActivate "Disk Defragmenter"
WScript.Sleep 200
WshShell.SendKeys "%A"
WScript.Sleep 200
WshShell.SendKeys "D"
While WshShell.AppActivate("Defragmentation Complete") = FALSE
wscript.sleep 5000
Wend
WshShell.AppActivate "Defragmentation Complete"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
WshShell.Sendkeys "%{F4}"

Autre solution :
utiliser le freeware autodefrag :

http://www.morphasys.com/autodefrag/

Cordialement,
Maurice POLARD