[publié] Calculer le temps de redemarrage

[sebdraluorg]

Salut a tous,

 

Voici un ptit script pour calculer le temps que votre PC met pour redemarrer...

 

Vous pouvez soit le telecharger ici ou faire un copier coller du code si dessous et l'enregistrer avec comme nom Restart-Time.vbs

ATTENTION! Ce script doit absolument etre execute depuis le bureau et porter le nom de Restart-Time.vbs

 

Option Explicit
On Error Resume Next
Dim Wsh
Dim Time1
Dim Time2
Dim Result
Dim Bureau
Dim PathFile
Dim OkC
Set Wsh = CreateObject("WScript.Shell")
Bureau = Wsh.SpecialFolders("Desktop")
PathFile = """" & Bureau & "\Restart-Time.vbs" & """"
Result = wsh.RegRead("HKEY_CURRENT_USER\Software\RestartTime\Times")

if Result = "" then 
OkC = Msgbox ("Pour chronomètrer le redémarrage, veuillez fermer toutes les applications en cours et clicquer sur ok",vbOKCancel,"Restart-Time")
If OkC = vbcancel then WScript.Quit
Wsh.RegWrite "HKEY_CURRENT_USER\Software\RestartTime\Times", Time, "REG_SZ"
Wsh.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime", PathFile, "REG_SZ"
Wsh.Run "cmd /c Shutdown -r -t 00", false, 0
WScript.Quit
else
Wsh.RegDelete "HKEY_CURRENT_USER\Software\RestartTime\Times"
Wsh.RegDelete "HKEY_CURRENT_USER\Software\RestartTime\"
Wsh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime"
MsgBox "PC redémarrer en " & DateDiff("s",Result,Time) & " Secondes", VbInformation, "Restart-Time"
end if
wscript.Quit

 

ATTENTION! Ce script doit absolument etre execute depuis le bureau et porter le nom de Restart-Time.vbs

 

@+

Modifié le 2 octobre 2005 par Yann

[Nicolas Coolman]

Merci Seb, Cela peut servir !