Calculer le temps de démarage et de redémarrage et l'optimisation de base pour Windows (divers 15)

Afin d'optimiser le démarrage de Windows, il est nécessaire de connaître précisément le temps de démarrage de son PC pour pouvoir affiner ses réglages. Mais plutôt que d'avoir la main sur votre chronomètre lors du boot, utilisez plutôt cette astuce ! Vous apprécierez la simplicité de mise en place et la précision du résultat ! Cette valeur relative vous donnera alors un point de comparaison pour optimiser le temps de démarrage de votre PC.

Afin de calculer le temps de redémarrage de Windows, nous allons créer un script VBScript (Visual Basic Scripting Edition) développé par sebdraluorg. Mais avant de commencer la création du script en lui-même, penchons nous tout d'abord sur son fonctionnement.


Fonctionnement du script :
Le script écrit une valeur dans le registre (HKCUSoftwareMicrosoftCurrent Versionun) afin qu'il puisse se relancer au démarrage. Ensuite, une autre valeur contenant l'heure est inscrite dans la base de registre puis le redémarrage est lancé. En redémarrant, le script enregistre l'heure dans une variable puis vérifie si la première valeur contenant l'heure existe. Si oui, il suffit alors de comparer les deux temps afin d'obtenir le temps de démarrage. Enfin, les deux clés ajoutées dans le registre sont alors supprimées (la clé run et la clé où est stockée l'heure).


Création du script :
Ouvrez votre éditeur de texte favori (le Bloc-notes fera parfaitement l'affaire : menu Démarrer, Exécuter... et tapez notepad) et copier le contenu suivant :

Option Explicit
On Error Resume Next

Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff

MsgA = "Pour chronométrer le redémarrage, veuillez fermer toutes les applications en cours et cliquer sur OK."
KeyA = "HKEY_CURRENT_USERSoftwareRestartTime"
KeyB = "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRunRestartTime"
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

Sauvegardez le fichier sur le bureau avec comme nom Restart-Time.vbs.

A noter que le script peut avoir le nom de votre choix (avec l'extension .vbs) et peut être exécuté n'importe où sur le disque (contrairement à la première version du script).

La boite de dialogue suivante s'affiche :

Cliquez sur OK. L'ordinateur redémarre alors puis la boite de dialogue suivante apparaît :