Discussion :

[Programming-Z]

Bonjour,

Est-il possible de savoir l'écart de temps entre le dernier arrêt de Windows et son redémarrage?

Merci d'avance pour vos réponse.

[JML19]

Bonjour

Il faut utiliser le journal d'événement de Windows dans le Panneau de configuration - Système et sécurité - Outils d'administration - Observateur d'événements section Applications tu verras lorsque les applications se stop et lorsqu'elles repartent.

Tu peux te baser sur le service ==> User Profile Service ==> Le service Profil utilisateur s’est arrêté ou Le service Profil utilisateur a démarré correctement.

Lorsque ce service s'arrête ou Démarre tu sais que Windows s'arrête ou Démarre.

[Programming-Z]

Je vais pointer mes recherches là dessus merci.

[l_autodidacte]

J'ai peut-être une idée qui pourrait te plaire:

1 - Lance Gpedit.msc et vas dans Configuration utilisateur
2 - Développe Paramètres Windows et sélectionne Scripts(ouverture/fermeture de session)
3 - Dans le volet droit double-clique sur Déconnexion
4 - Dans la fenêtre qui s'ouvre clique sur le bouton Ajouter et dans la nouvelle fenêtre renseigne le champ du haut ou clique sur Parcourir...
Une arborescence s'ouvre (sous XP c'est C:\WINDOWS\system32\GroupPolicy\User\Scripts\Logoff)
Place le fichier ArretWin.vbs dans ce dossier puis sélectionne-le pour qu'il soit pris en compte
5 - Applique les modifications puis quitte Gpedit.

Tu peux également placer le fichier DemarreWin.vbs dans le même dossier.

Exécute - dans l'ordre le fichier- ArretWin.vbs une seule fois puis DemarreWin.vbs une seule fois aussi.

De cette façon, à chaque démarrage/Redémarrage du PC, tu auras un message indiquant la durée d'arrêt de Windows.

[l_autodidacte]

Voici une amélioration du fichier Demarrewin.vbs qui permet de donner la durée en jours, heures, minutes et secondes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Option Explicit

Const ForReading = 1
Const Key = "HKCU\Software\Microsoft\Windows\CurrentVersion\"

Dim fso, Fich, Ret, WS, ApName, sValueName, Apath

Verif

Set fso = CreateObject("Scripting.FileSystemObject")
Set Fich = fso.OpenTextFile("C:\Arret.txt", ForReading)
Ret = Fich.ReadLine
Fich.Close
MsgBox "Durée d'arrêt de Windows : " & Convertir(DateDiff("s", Ret, Now))

Set Fich = Nothing
Set fso = Nothing
'===============Vérifie si le démarrage du script se fait à partir du registre========
Sub Verif()
Set WS = CreateObject("Wscript.Shell")
ApName = "WScript.exe"
sValueName = "Journalisation"
Apath = WS.ExpandenvironmentStrings("%windir%") & "\System32\"
  With WS
      On Error Resume Next
      If .RegRead(Key & "Run\" & sValueName) = "" Or _
         .RegRead(Key & "Run\" & sValueName) <> Apath & ApName & " " & Wscript.ScriptFullName  Then
         .RegWrite Key & "Run\" & sValueName, Apath & ApName & " " & Wscript.ScriptFullName
      Else
        Exit Sub
      End If
  End With
 Set WS = Nothing
End Sub
'=================
Function Convertir(intValue)
    Dim H, J, Sec, mn
    J = Int(IntValue/86400)
    H = Int((intValue - J*86400)/3600)
    mn = Int((IntValue - (J*86400 + H*3600))/60)
    Sec = intValue -(J*86400 + H*3600 + mn*60)
    Convertir = CStr(J) & " Jour" & Pluriel(J) & CStr(H) & " heure" & Pluriel(H) & _
        CStr(mn) & " minute" & Pluriel(mn) & CStr(Sec) & " seconde" & Pluriel(Sec)
End Function
'==============
Function Pluriel(x)
 ' cette fonction permet de tenir compte du singulier et du pluriel.
   If x > 1 Then 
      Pluriel = "s "
   Else
      Pluriel =" "
   End If
End Function

Il suffit de copier ce code pour qu'il remplace le précédent.