Inf3rnus
Administrateur
Hors ligne
Inscrit le: 22 Aoû 2011
Messages: 196
|
 Posté le: Dim 11 Déc - 14:12 (2011) Sujet du message: Test de vitesse de reboot système. vbs |
 |
|
Voici le code source d'un script qui permet de calculer le temps de reboot d'un pc sous windows.
- 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
_________________
|
|
