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

Communiquez et partagez vos astuces sur Windows 7

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

Messagepar chantal11 » Mar 28 Avr 2009 19:34

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

Image Image
Image
En cas de problème constaté sur un sujet, alertez un modérateur. N'intervenez pas vous-même. Merci
Avatar de l’utilisateur
chantal11
 
Messages: 13550
Inscription: Dim 11 Jan 2009 15:14
Localisation: Aude

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

Messagepar moulaben » Mar 28 Avr 2009 21:18

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 1623 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
Fichiers joints
erreur demarrage 2.PNG
erreur demarrage 2.PNG (133.69 Kio) Vu 1623 fois
OmOulAbEnO
Avatar de l’utilisateur
moulaben
 
Messages: 114
Inscription: Mer 25 Mar 2009 10:49

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

Messagepar chantal11 » Mar 28 Avr 2009 21:20

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

Image Image
Image
En cas de problème constaté sur un sujet, alertez un modérateur. N'intervenez pas vous-même. Merci
Avatar de l’utilisateur
chantal11
 
Messages: 13550
Inscription: Dim 11 Jan 2009 15:14
Localisation: Aude

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

Messagepar moulaben » Mar 28 Avr 2009 21:41

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 1608 fois

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

Dernière édition par moulaben le Mar 28 Avr 2009 22:01, édité 1 fois.
OmOulAbEnO
Avatar de l’utilisateur
moulaben
 
Messages: 114
Inscription: Mer 25 Mar 2009 10:49

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

Messagepar chantal11 » Mar 28 Avr 2009 21:52

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.

@+
Image Image
Image
En cas de problème constaté sur un sujet, alertez un modérateur. N'intervenez pas vous-même. Merci
Avatar de l’utilisateur
chantal11
 
Messages: 13550
Inscription: Dim 11 Jan 2009 15:14
Localisation: Aude

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

Messagepar moulaben » Dim 3 Mai 2009 22:29

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 1537 fois

:coucou: :coucou:
OmOulAbEnO
Avatar de l’utilisateur
moulaben
 
Messages: 114
Inscription: Mer 25 Mar 2009 10:49

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

Messagepar Ycor » Dim 3 Mai 2009 22:38

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 ;)
ImageImage
En cas de problème constaté sur un sujet, contactez un modérateur par MP. N'intervenez pas vous-même. Merci
Avatar de l’utilisateur
Ycor
 
Messages: 6459
Inscription: Sam 14 Mar 2009 17:30
Localisation: Lausanne (CH)

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

Messagepar moulaben » Dim 14 Juin 2009 16:31

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:
Dernière édition par moulaben le Dim 14 Juin 2009 17:33, édité 3 fois.
OmOulAbEnO
Avatar de l’utilisateur
moulaben
 
Messages: 114
Inscription: Mer 25 Mar 2009 10:49

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

Messagepar guppy49 » Dim 14 Juin 2009 16:59

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 1422 fois
Windows 7 Ultimate. Dell E4300 laptop. Office 2010.
Avatar de l’utilisateur
guppy49
 
Messages: 175
Inscription: Jeu 7 Mai 2009 23:34


Retourner vers Tutoriels et astuces Windows 7

Qui est en ligne

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

Livre photo