Page 1 sur 1
Script VBS pour mesurer le temps de redémarrage de Windows
Posté : mar. 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é : mar. 28 avr. 2009 21:18
par moulaben
Re!! 
alors moi je voudrais bien mais j'arrive pas.est ce que qq'un la fait?
deja quand je veux enregistrer le bloc-note sous temps-redemarrege.vbs
j'ai ca qui s'affiche
- erreur demarrage 1.PNG (26.04 Kio) Vu 2110 fois
c'est ou encodage?
et apres si j'fais ok et j'appuie sur l'iconne S du bureau
j'ai ce message
ca vous parle?
ci'mer [/color][/b]
Re: Script VBS pour mesurer le temps de redémarrage de Windows
Posté : mar. 28 avr. 2009 21:20
par chantal11
Bonjour,
J'ai un problème avec les copier-coller dans le Blog.
En attendant il faut copier- coller 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
Re: Script VBS pour mesurer le temps de redémarrage de Windows
Posté : mar. 28 avr. 2009 21:41
par moulaben
Re: Script VBS pour mesurer le temps de redémarrage de Windows
Posté : mar. 28 avr. 2009 21:52
par chantal11
Bonsoir,
En attendant le retour de notre administrateur, j'ai modifié le tuto dans le Blog, avec le fichier Temps Démarrage.vbs à télécharger et enregistrer sur le Bureau.
C'est encore plus simple.
@+
Re: Script VBS pour mesurer le temps de redémarrage de Windows
Posté : dim. 3 mai 2009 22:29
par moulaben
bonj!
a priori la RC tarde un peu plus que la 7077 au demarrage
- Capture redemarrage 3.PNG (101.72 Kio) Vu 2024 fois
Re: Script VBS pour mesurer le temps de redémarrage de Windows
Posté : dim. 3 mai 2009 22:38
par Ycor
Bonsoir
Ayez la curiosité de chronométrer votre redémarrage
depuis le bios en même temps que VBS le mesure et comparez.
Vous aurez des surprises
Re: Script VBS pour mesurer le temps de redémarrage de Windows
Posté : dim. 14 juin 2009 16:59
par guppy49
Je viens de découvrir ce script.
Première tentative à 131 secondes, avec plusieurs applications que j'ai arrêté avant le redémarrage et aussi avec mot de passe - même si j'ai tapé le mot de passe très vite ça a ralenti un peu.
Ensuite j'ai fait un redémarrage de suite après le premier essai, et là....on voit bien le progrès par rapport à Vista
- 65s.JPG (13.47 Kio) Vu 1909 fois
