Aller au contenu
  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

sebdraluorg

[publié] Calculer le temps de redemarrage

Messages recommandés

Salut a tous,

 

Voici un ptit script pour calculer le temps que votre PC met pour redemarrer...

 

Vous pouvez soit le telecharger ici ou faire un copier coller du code si dessous et l'enregistrer avec comme nom Restart-Time.vbs

ATTENTION! Ce script doit absolument etre execute depuis le bureau et porter le nom de Restart-Time.vbs

 

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 clicquer 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émarrer en " & DateDiff("s",Result,Time) & " Secondes", VbInformation, "Restart-Time"
end if
wscript.Quit

 

ATTENTION! Ce script doit absolument etre execute depuis le bureau et porter le nom de Restart-Time.vbs

 

@+

Modifié par Yann

Partager ce message


Lien à poster
Partager sur d’autres sites

Votre contenu devra être approuvé par un modérateur

Invité
Vous postez un commentaire en tant qu’invité. Si vous avez un compte, merci de vous connecter.
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.


  • En ligne récemment   0 membre est en ligne

    Aucun utilisateur enregistré regarde cette page.

×