Forum-Seven

Il peut être intéressant de connaître l’impact d’une application que l’on vient d’installer, par exemple, sur le temps de redémarrage de Windows, ou surveiller les performances de redémarrage du PC.

Ce contrôle peut être effectué avec une grande précision en créant un script VBS.

• Télécharger le fichier Temps Redémarrage.vbs et l’enregistrer sur le Bureau

• L’icône Temps-Redémarrage apparaît sur le Bureau

• Fermer toutes les applications ouvertes et cliquer sur l’icône Temps-Redémarrage

• Cliquer sur OK, le système redémarre

• Au redémarrage, le résultat s’affiche sur le Bureau

A titre indicatif, voici le script VBS :

Option Explicit
On Error Resume Next
Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff

MsgA = « Fermez toutes les applications en cours et cliquez sur OK. »
KeyA = « HKEY_CURRENT_USER\Software\RestartTime\ »
KeyB = « HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime »
AppName = « Restart-Time »
Set Wsh = CreateObject(« WScript.Shell »)
PathFile = «  »" » & WScript.ScriptFullName & «  »" »
Result = wsh.RegRead(KeyA & « Times »)
if Result = «  » then
MsgResult = Msgbox (MsgA, vbOKCancel, AppName)
If MsgResult = vbcancel then WScript.Quit
Wsh.RegWrite KeyA & « Times », left(Time,8), « REG_SZ »
Wsh.RegWrite KeyB, PathFile, « REG_SZ »
Wsh.Run « cmd /c Shutdown -r -t 00″, false, 0
else
Wsh.RegDelete KeyA & « Times »
Wsh.RegDelete KeyA
Wsh.RegDelete KeyB
TimeDiff = DateDiff(« s »,Result,left(Time,8))
MsgBox « PC redémarré en  » & TimeDiff &  » secondes », VbInformation, AppName
end if
wscript.Quit

Des commentaires ou besoin d’aide ?  Rendez-vous sur Forum Seven