Salut,
Je ne suis pas trop programmeur mais j'ai pas le choix pour le coup, j'ai un problème avec mon script VBS pour défrag mes pc sous XP : Ce script fait appel à l'outil defrag.exe qui fait lui même appel à defrgntfs.exe. Mon problème est qu'en quittant le script de départ, la défragmentation continue de tourner en fond alors que son appelant à était kiké! A la fin, le script enregistre dans les evennements windows un log afin d'avoir une remontée syslog centralisée (et pas N fichiers textes à lire...).
Pouvez vous m'aider à modifier ce script afin que quand il quitte, il prennes ses enfants avec lui ou au pire faire un timing genre 40 minutes de defrag et basta defrag.exe et defrgntfs.exe sont killés.
J'ai une autre modif, j'ai pris un script marchant pour tous les disques dur mais il n'y à que le c: qui je veux faire donc j'ai fait une modif "Sale"
Voila le script, c'est pas jojo je l'ai dit!!
Code :
- Set WshShell = WScript.CreateObject("WScript.Shell" )
- Dim fso, d, dc
- Set fso = CreateObject("Scripting.FileSystemObject" )
- Set dc = fso.Drives
- For Each d in dc
- If d.DriveType = 2 Then
- Return = WshShell.Run("defrag c:\ -f", 1, TRUE)
- End If
- Next
- if Return = 0 then
- WshShell.LogEvent 1, "La defragmentation de C:\ est OK pour ce poste"
- else
- WshShell.LogEvent 1, "La defragmentation de C:\ est KO pour ce poste"
- end if
- Set WshShell = Nothing
|
Merci de votre coup de main,
