si tu veux savoir en combien de secondes ton pc demarre cree un fichier texte avec notepad et tpe ceci. quand tu double clique dessus un message te diras que ton pc vas redemarrer et vas compter en combien de temps il demarre et te donneras le temps une fois redemaré. tres pratique.
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\Curr
entVersion\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