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

Communiquez et partagez vos astuces sur Windows 7
Répondre
Avatar du membre
chantal11
Messages : 13609
Enregistré le : dim. 11 janv. 2009 15:14
Localisation : Aude
Contact :

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

Message 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

Image Image
Image
En cas de problème constaté sur un sujet, alertez un modérateur. N'intervenez pas vous-même. Merci
Avatar du membre
moulaben
Messages : 114
Enregistré le : mer. 25 mars 2009 10:49
Etes vous un robot ? : Non

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

Message 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.04 Kio) Vu 2358 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]
Fichiers joints
erreur demarrage 2.PNG
erreur demarrage 2.PNG (133.22 Kio) Vu 2358 fois
OmOulAbEnO
Avatar du membre
chantal11
Messages : 13609
Enregistré le : dim. 11 janv. 2009 15:14
Localisation : Aude
Contact :

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

Message 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

Image Image
Image
En cas de problème constaté sur un sujet, alertez un modérateur. N'intervenez pas vous-même. Merci
Avatar du membre
moulaben
Messages : 114
Enregistré le : mer. 25 mars 2009 10:49
Etes vous un robot ? : Non

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

Message 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.33 Kio) Vu 2343 fois
puis apres j'ai reboot sur seven c'est un peu mieu ;)
redemarre 2.PNG
redemarre 2.PNG (92.44 Kio) Vu 2342 fois
[/b]
Modifié en dernier par moulaben le mar. 28 avr. 2009 22:01, modifié 1 fois.
OmOulAbEnO
Avatar du membre
chantal11
Messages : 13609
Enregistré le : dim. 11 janv. 2009 15:14
Localisation : Aude
Contact :

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

Message 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.

@+
Image Image
Image
En cas de problème constaté sur un sujet, alertez un modérateur. N'intervenez pas vous-même. Merci
Avatar du membre
moulaben
Messages : 114
Enregistré le : mer. 25 mars 2009 10:49
Etes vous un robot ? : Non

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

Message par moulaben »

bonj!
a priori la RC tarde un peu plus que la 7077 au demarrage
Capture redemarrage 3.PNG
Capture redemarrage 3.PNG (101.72 Kio) Vu 2272 fois
:coucou: :coucou:
OmOulAbEnO
Ycor
Messages : 6459
Enregistré le : sam. 14 mars 2009 17:30
Etes vous un robot ? : Non
Localisation : Lausanne (CH)

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

Message 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 ;)
ImageImage
En cas de problème constaté sur un sujet, contactez un modérateur par MP. N'intervenez pas vous-même. Merci
Avatar du membre
moulaben
Messages : 114
Enregistré le : mer. 25 mars 2009 10:49
Etes vous un robot ? : Non

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

Message 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:
Modifié en dernier par moulaben le dim. 14 juin 2009 17:33, modifié 3 fois.
OmOulAbEnO
Avatar du membre
guppy49
Messages : 175
Enregistré le : jeu. 7 mai 2009 23:34
Etes vous un robot ? : Non

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

Message 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.47 Kio) Vu 2157 fois
Windows 7 Ultimate. Dell E4300 laptop. Office 2010.
Répondre