Page 1 sur 1

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

MessagePosté: 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

MessagePosté: Mar 28 Avr 2009 21:18
par moulaben
Re!! :shock: :shock:

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
erreur demarrage 1.PNG (26.24 Kio) Vu 1624 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

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

MessagePosté: 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

MessagePosté: Mar 28 Avr 2009 21:41
par moulaben
lol ok cool ca va mieu la merci chantal
donc la premiere fois jai booté sur vista, pui redemarrer sur seven en sachant que avan encore faut je clic sur f1 pr mon ventilo qui deconne un truc dan le genre et en sachant aussi jsui encore avec la build 7077 pr deux jours encore et 3h58m et 32 seconde ;)
redémarre 1 lol.PNG
redémarre 1 lol.PNG (125.83 Kio) Vu 1609 fois

puis apres j'ai reboot sur seven c'est un peu mieu ;)
redemarre 2.PNG
redemarre 2.PNG (92.81 Kio) Vu 1608 fois


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

MessagePosté: 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

MessagePosté: 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
Capture redemarrage 3.PNG (102.13 Kio) Vu 1538 fois

:coucou: :coucou:

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

MessagePosté: 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

MessagePosté: Dim 14 Juin 2009 16:31
par moulaben
bonjour amis se7enois!! :shock: :shock:

c'est la premiere fois je test le redemarrage avec ma build 7100
en plus jai changé de config entre temps donc je ne peux pa trop m'y fier
a priori celle ci prendrait plus de temps pr demarrer qu la 7077

en ddr2 a 940MHz soit 470 reel: 108s
en ddr3 a 940MHz pareil qu les ddr2: 109s
ET voici le screen en ddr3 a 1200MHz soit 602 reel: 97s
Image

si qq'un pouvait faire qq screen en indiquant la build afin de comparer ca peut etre interessant ...

merci :coucou:

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

MessagePosté: 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
65s.JPG (13.49 Kio) Vu 1423 fois