- dim. 13 nov. 2011 21:48
#5141
Hello
Afin de mesurer le temps que votre PC met à redémarrer, veuillez faire ceci :
1/ Créer un nouveau BlocNote, coller ceci dedans :
Option Explicit
On Error Resume Next
Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff
MsgA = "Fermez toutes les applications en cours et cliquez 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.Quit2/ Faire Fichier = Enregistrer Sous = Type = Tous les fichiers.
3/ Enregistrer le fichier.
4/ Modifier l'extension .txt en .vbs
Si les extensions ne sont pas affichées, aller dans : Ordinateur = Organiser = Option des dossiers de recherches = Onglet Affichage, et décocher Masquer les extensions des fichier dont le type est connu.
5/ Vérifier que le nom du fichier soit Restart-Time.vbs.
6/ Exécuter le fichier.
7/ Une fois le PC redémarré, un message sera affiché avec le temps que votre PC a mis à redémarrer.
Voici pour moi
Afin de mesurer le temps que votre PC met à redémarrer, veuillez faire ceci :
1/ Créer un nouveau BlocNote, coller ceci dedans :
Option Explicit
On Error Resume Next
Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff
MsgA = "Fermez toutes les applications en cours et cliquez 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.Quit2/ Faire Fichier = Enregistrer Sous = Type = Tous les fichiers.
3/ Enregistrer le fichier.
4/ Modifier l'extension .txt en .vbs
Si les extensions ne sont pas affichées, aller dans : Ordinateur = Organiser = Option des dossiers de recherches = Onglet Affichage, et décocher Masquer les extensions des fichier dont le type est connu.
5/ Vérifier que le nom du fichier soit Restart-Time.vbs.
6/ Exécuter le fichier.
7/ Une fois le PC redémarré, un message sera affiché avec le temps que votre PC a mis à redémarrer.
Voici pour moi