1 script pour Calculer le temps de redémarrage

Astuces pour Windows

Modérateurs: Guardian, Malekal_morte

1 script pour Calculer le temps de redémarrage

Messagede belver le Mar 4 Oct 2005 - 17:46

Afin de calculer le temps de redémarrage de Windows, nous allons créer un script VBScript (Visual Basic Scripting Edition) développé par sebdraluorg. Mais avant de commencer la création du script en lui-même, penchons nous tout d?abord sur son fonctionnement.


Fonctionnement du script :
Le script écrit une valeur dans le registre (HKCU\Software\Microsoft\Current Version\run) afin qu?il puisse se relancer au démarrage. Ensuite, une autre valeur contenant l?heure est inscrite dans la base de registre puis le redémarrage est lancé. En redémarrant, le script enregistre l'heure dans une variable puis vérifie si la première valeur contenant l'heure existe. Si oui, il suffit alors de comparer les deux temps afin d?obtenir le temps de démarrage. Enfin, les deux clés ajoutées dans le registre sont alors supprimées (la clé run et la clé où est stockée l'heure).

voici le script :

Option Explicit
On Error Resume Next
Dim Wsh
Dim Time1
Dim Time2
Dim Result
Dim Bureau
Dim PathFile
Dim OkC
Set Wsh = CreateObject("WScript.Shell")
Bureau = Wsh.SpecialFolders("Desktop")
PathFile = """" & Bureau & "\Restart-Time.vbs" & """"
Result = wsh.RegRead("HKEY_CURRENT_USER\Software\RestartTime\Times")

if Result = "" then
OkC = Msgbox ("Pour chronométrer le redémarrage, veuillez fermer toutes les applications en cours et cliquer sur OK.",vbOKCancel,"Restart-Time")
If OkC = vbcancel then WScript.Quit
Wsh.RegWrite "HKEY_CURRENT_USER\Software\RestartTime\Times", Time, "REG_SZ"
Wsh.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime", PathFile, "REG_SZ"
Wsh.Run "cmd /c Shutdown -r -t 00", false, 0
WScript.Quit
else
Wsh.RegDelete "HKEY_CURRENT_USER\Software\RestartTime\Times"
Wsh.RegDelete "HKEY_CURRENT_USER\Software\RestartTime\"
Wsh.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime"
MsgBox "PC redémarré en " & DateDiff("s",Result,Time) & " secondes", VbInformation, "Restart-Time"
end if
wscript.Quit

http://www.zebulon.fr/astuces/tip197/Ca ... rrage.html
J'ai encore perdu une occasion de me taire
Assistance Informatique en live
Image Image
Avatar de l’utilisateur
belver
Administrateur
 
Messages: 5132
Inscription: Mar 3 Aoû 2004 - 10:40
Localisation: Nantes

Messagede FLORIAN le Mar 4 Oct 2005 - 18:39

Salut a toi Belver
Pour ma part j'arrive a 139 s
alors que je cherchai ce qui pouvais me faire ralentir mon démarrage
( 232 s) j'ai simplement enlevé mon ecran de boot avec tunup utilities
Voir aussi le showmenudelay a mettre a ZERO dans la base de registre
Astuce se trouvant sur le forum
Ou recopier le texte suivant dans notepad en enregistrant votre fichier avec l'extention REG
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Control Panel\Desktop]
"MenuShowDelay"="100"
100 OU ZERO


Cordialement :wink:
FLORIAN
 

Messagede belver le Mar 4 Oct 2005 - 19:03

Salut Florian,

merci d'avoir testé ce script car chez moi, il ne fonctionne pas :lol:
J'ai encore perdu une occasion de me taire
Assistance Informatique en live
Image Image
Avatar de l’utilisateur
belver
Administrateur
 
Messages: 5132
Inscription: Mar 3 Aoû 2004 - 10:40
Localisation: Nantes

Messagede FLORIAN le Mar 4 Oct 2005 - 20:23

belver a écrit:Salut Florian,

merci d'avoir testé ce script car chez moi, il ne fonctionne pas :lol:


As tu éssayé de désactiver l'antiscript de ton antivirus

je suppose que tu as une fenettre DOS qui se refemerme automatiquement

sinon essai de l'ouvrir avec Cscript.exe qui doit se trouver dans C:/Windows/system32


Cordialement :wink:
FLORIAN
 

Messagede belver le Mar 4 Oct 2005 - 21:01

Non, la première partie se passe bien, jusqu'au reboot mais le temps ne s'affiche pas ensuite :shock:
J'ai encore perdu une occasion de me taire
Assistance Informatique en live
Image Image
Avatar de l’utilisateur
belver
Administrateur
 
Messages: 5132
Inscription: Mar 3 Aoû 2004 - 10:40
Localisation: Nantes

Messagede FLORIAN le Mar 4 Oct 2005 - 22:40

belver a écrit:Non, la première partie se passe bien, jusqu'au reboot mais le temps ne s'affiche pas ensuite :shock:



penses a exposer ton souci sur ZEB celui qui a réalisé le script et un des contributeur

on aura ptetre une réponse qui peu servir chez nous


@+
FLORIAN
 

Messagede FLORIAN le Ven 7 Oct 2005 - 0:36

Apparement tu n'es pas le seul

regarde ici

http://www.zebulon.fr/lire.php?section=astuces&id=197
FLORIAN
 

Messagede AgnesD le Mar 24 Jan 2006 - 10:26

:lol:
C'est pour cela que je voulais ouvrir le .vbs...
Chez moi il marche mais au reboot pour avoir le temps d'affiché il me faut réouvrir le scrit avec Cscript.exe.
ensuite apparait le temps.
123s
peut mieux faire... :lol:
Avatar de l’utilisateur
AgnesD
Co-Admin
 
Messages: 3737
Inscription: Mar 15 Mar 2005 - 21:17


Retourner vers Pour Windows

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité

cron