Page 1 sur 1
Script VBS pour mesurer le temps de redémarrage de Windows
Posté : 28 avr. 2009, 19:34
par 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
Re: Script VBS pour mesurer le temps de redémarrage de Windows
Posté : 28 avr. 2009, 20:39
par 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,
Re: Script VBS pour mesurer le temps de redémarrage de Windows
Posté : 28 avr. 2009, 21:11
par 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.
@+
Re: Script VBS pour mesurer le temps de redémarrage de Windows
Posté : 28 avr. 2009, 21:13
par chantal11
Bonjour,
Cela fonctionne en copiant le script ci-dessus dans Code :
Je vais voir comment l'insérer dans le Blog
@+
Re: Script VBS pour mesurer le temps de redémarrage de Windows
Posté : 28 avr. 2009, 21:30
par 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
Re: Script VBS pour mesurer le temps de redémarrage de Windows
Posté : 28 avr. 2009, 21:49
par 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.
@+
Re: Script VBS pour mesurer le temps de redémarrage de Windows
Posté : 28 avr. 2009, 21:59
par 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,
@+,