Visualiser le temps de boot (complet).

Faites-nous part de vos bons plans (logiciels, liens, ...)

Modérateur : Modérateurs

Répondre
Titus
Modérateur
Modérateur
Messages : 7275
Enregistré le : 02 juin 2005, 23:00:00
Localisation : Bruxelles
Contact :

Visualiser le temps de boot (complet).

Message par Titus » 14 sept. 2010, 13:57:37

Salut,

Il s'agit d'un script en VBS:

Code : Tout sélectionner

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.Quit
Vous le collez dans un fichier .txt, dont vous changez l'extensoin en .vbs , et il vous suffire de double cliquer dessus pour rebooter.

Au démarrage, il vous affichera le temps total.
A+
Image
Ma configuration est ici, employez Google.

Répondre

Retourner vers « Vos bons plans !!! »

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 6 invités