|
Vous
êtes ici : Accueil => Dossiers => Paramètrer Windows
|
Calculer
son temps de démarrage
|
Afin
de déterminer le gain de temps que vous avez obtenu
grâce à ces modifications, vous pouvez
réaliser un
script depuis votre
ordinateur en ouvrant le bloque note et en copiant - collant le texte
suivant
:
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 cliquer sur OK.",vbOKCancel,"Restart-Time")
If OkC = vbcancel then
WScript.Quit
Wsh.RegWrite
"HKEY_CURRENT_USER\Software\RestartTime\Times", left(Time,8),
"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émarré en
" & DateDiff("s",Result,Time) & " secondes",
VbInformation, "Restart-Time"
end if
wscript.Quit
Sauvegardez le tout sous le nom de
Restart-Time.vbs sur
le bureau et doucle cliquez dessus et le tour est joué !!!
Retour au Sommaire
Un soucis ? Parlez-en sur le forum !
Un problème dans l'article ? SVP signalez-le ici
|
|
|
