Démarrer 
Exécuter
Noter notepad
Le bloc note s'ouvre noter le texte suivant (faites un copier coller).
| 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_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 |
|---|
Enregistrer ce document.
Faites fichier /enregistrer sous
(choisissez le bureau) et donnez lui le nom que vous voulez avec
l'extention .vbs
Regardez sur votre bureau vous devriez avoir ceci
en sachant que je n ai pas choisis de nom spécifique a ce fichier vbs donc (Restart-Time.vbs).
Faites un double clic sur ce script et suivez la procédure.
Cliquer sur OK
Votre pc redemarre et affichera le temps que Windows a mis pour redemarrer
