Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Windows Windows 2000 Win 2000 Serveur Defrag et scandisc

Defrag et scandisc

4 réponses
Avatar
FREDS2I
Salut =E0 tous .=20

Est-ce possible de lancer automatiquement DEFRAG ET=20
SCANDISC , en tache planifi=E9e ?.
Si OUI , comment ?.

MERCI .
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Vincent Delbarre [MVP]
Bonjour,
Defrag est une version dite "light" qui ne permet pas les lignes de
commandes. Il te faut acheter la version complète.
http://www.executive.com/coverpage.asp
En ce qui concerne le "scandisk", un "chkdsk /?" te donneras tes infos.
@+
Vincent Delbarre [MVP]
-----
"FREDS2I" a écrit dans le message de
news:167a201c447e8$eba57350$
Salut à tous .

Est-ce possible de lancer automatiquement DEFRAG ET
SCANDISC , en tache planifiée ?.
Si OUI , comment ?.

MERCI .
Avatar
Maurice POLARD

Salut à tous .

Est-ce possible de lancer automatiquement DEFRAG ET
SCANDISC , en tache planifiée ?.
Si OUI , comment ?.

MERCI .

---- Réponse ----

Bonjour,

Ca doit être possible avec un petit bout de script en VBS...

Pour un défrag de "D:" par exemple (Auteur : Zubair Alexander - code pas
testé) :

'--------------------------------------------
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("Défragmentation Complète") = FALSE
wscript.sleep 5000
Wend
WshShell.AppActivate "Défragmentation Complète"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
WshShell.Sendkeys "%{F4}"
'----------------------------------------------

Autre solution :

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

StartDefrag : http://kevin.gearhart.com/startdefrag

Cordialement,
Maurice POLARD
Avatar
slk
Salut,
En effet, seul le "Defrag" de XP permet d'être lancé en mode commandes.


-- --
Enlever "PasDePub" pour le réponse. Merci.
--
Avatar
fredS2I
Merci de m'avoir répondu.
Je vais m'empresser de tester .



-----Message d'origine-----


Salut à tous .

Est-ce possible de lancer automatiquement DEFRAG ET
SCANDISC , en tache planifiée ?.
Si OUI , comment ?.

MERCI .

---- Réponse ----

Bonjour,

Ca doit être possible avec un petit bout de script en
VBS...


Pour un défrag de "D:" par exemple (Auteur : Zubair
Alexander - code pas

testé) :

'--------------------------------------------
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("Défragmentation Complète") =
FALSE

wscript.sleep 5000
Wend
WshShell.AppActivate "Défragmentation Complète"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 500
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
WshShell.Sendkeys "%{F4}"
'----------------------------------------------

Autre solution :

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

StartDefrag : http://kevin.gearhart.com/startdefrag

Cordialement,
Maurice POLARD





.