Défrag pc sous xp avec un petit plus

Défrag pc sous xp avec un petit plus - VB/VBA/VBS - Programmation

Marsh Posté le 19-08-2010 à 15:50:17    

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 :
  1. Set WshShell = WScript.CreateObject("WScript.Shell" )
  3. Dim fso, d, dc
  4. Set fso = CreateObject("Scripting.FileSystemObject" )
  5. Set dc = fso.Drives
  6. For Each d in dc
  7. If d.DriveType = 2 Then
  8. Return = WshShell.Run("defrag c:\ -f", 1, TRUE)
  9. End If
  10. Next
  12. if Return = 0 then
  13.     WshShell.LogEvent 1, "La defragmentation de C:\ est OK pour ce poste"
  14. else
  15.     WshShell.LogEvent 1, "La defragmentation de C:\ est KO pour ce poste"
  16. end if
  18. Set WshShell = Nothing


 
 
Merci de votre coup de main,

Reply

Marsh Posté le 19-08-2010 à 15:50:17   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed