Windows 11 – Windows 10 – Windows 8 – Windows 7 – VISTA

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_ Demarrage.zip et l’enregistrer sur le Bureau
• Décompresser par clic-droit -> Extraire tout, pour obtenir le fichier Temps_Demarrage.vbs

• 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