Windows 7 : Un script VBS pour mesurer le temps de redémarrage de Windows.

Publié le par lolond

(source .forum-seven)
Il peut être intéressant de connaître l’impact d’une application que l’on vient d’installer sur le temps de redémarrage de Windows 7. Pour cela vous devez :

3-icone
1. Télécharger le fichier
Temps Redémarrage.vbs et l’enregistrer sur le Bureau

2. .L’icône
Temps-Redémarrage apparaît sur le Bureau


3. Fermer toutes les applications ouvertes et cliquer sur l’icône Temps-Redémarrage
4. Cliquer sur
OK, le système redémarre

4-ouvrir-2


5. Au redémarrage, le résultat s’affiche sur le Bureau

5-resultat-2


A titre indicatif, voici le script VBS  :

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


Publié dans ** ASTUCES

Commenter cet article