Script VBS pour mesurer le temps de redémarrage de Windows

[chantal11]

Bonjour,

Il peut être intéressant de connaître l'impact d'une application que l'on vient d'installer, par exemple, sur le temps de redémarrage de Windows, ou surveiller les performances de redémarrage du PC.

Ce contrôle peut être effectué avec une grande précision en créant un script VBS.

http://www.forum-seven.com/un-script-vb ... ndows-1628

@+

PS : A titre indicatif, voici le script :

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

[TeeTooNet]

Bonjour,

Pour moi, çà ne marche pas. L'icône est bien créée sur le bureau mais :

voici le 1° message qui apparaît après "Enregistrer"(enregistrer sous):
(j'ai cliqué sur OK)
et le 2° message lorsque je clique sur l'icône du bureau:
(J'ai cliqué sur OK)
Rien ne se passe.
En fait, en cliquant droit sur l'icône (pour vérifier le bon enregistrement)-->modifier-->fichier-->enregistrer sous:
pour type, c'est indiqué Fichiers texte(*.txt), alors que je l'ai bien changé comme tu l'as indiqué. J'ai beau le modifier en Tous les fichiers (*.*), rien n'y fait.

Cordialement,

[chantal11]

Bonjour,

Essaye à partir de ce script :

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

Je vais ré-essayer en même temps que toi.

@+

[chantal11]

Bonjour,

Cela fonctionne en copiant le script ci-dessus dans Code :

Je vais voir comment l'insérer dans le Blog

@+

[TeeTooNet]

Bonjour,

J'ai refais la manip depuis le début, en copiant le nouveau script dans le bloc notes.
Voici le résultat:

Donc, çà marche très bien avec ce nouveau script, tout en gardant les autres indications de ton tuto!
Cela peut t'être utile de le savoir.

Cordialement

[chantal11]

Bonjour,

En attendant que Jérémie revienne de vacances, j'ai modifié le tuto dans le Blog avec le fichier Temps Redémarrage.vbs à télécharger et enregistrer directement sur le Bureau.
C'est d'ailleurs encore plus simple.

@+

[TeeTooNet]

Bonjour,

L'essentiel est que maintenant çà marche.
Et Merci Chantal, pour cet outil qui peut s'avérer, en effet, fort bien utile.

Cordialement,
@+,