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