[R] Heure et point de restauration

[jchd]

Ce n'est pas ce que je constate sur un Win 7 x64 (avec l'appli en x86, mais bon...).
Que dit ceci chez toi et quel OS emploies-tu ?

Code : Tout sélectionner

#RequireAdmin

#include <Date.au3>

;~ _CreateSystemRestorePoint("Point de restauration créé explicitement le " & _Now(), True)

_ListSystemRestorePoints()

Func _CreateSystemRestorePoint($description, $disable = True)
    $obj = ObjGet("winmgmts:{impersonationLevel=impersonate}!root/default:SystemRestore")
    $obj.Enable("")
    $obj.CreateRestorePoint($description, 12, 100)
    If $disable Then
        $obj.Disable("")
    EndIf
EndFunc

Func _ListSystemRestorePoints()
    $obj = ObjGet("winmgmts:{impersonationLevel=impersonate}!root/default").InstancesOf("SystemRestore")
    For $rp in $obj
        MsgBox(0, "Points de restauration", "RP n° : " & $rp.SequenceNumber & @LF & "Description : <" & $rp.Description & ">" & @LF & "Type : " & $rp.RestorePointType & @LF & "Timbre à date (UTC): " & $rp.CreationTime)
    Next
EndFunc
 

Etant donné que le système est administrable à distance (éventuellement à l'autre bout du monde), il est logique que ce service se réfère à l'heure UTC, le timbre à date enregistré le montre. Par contre je ne vois nulle part l'ajout de la chaîne que tu mentionnes. Ne serait-ce pas ton utilitaire add-on ToolsDiag qui manifeste sa libido ?

Par ailleurs, le code et la fonction postés dans le premier post ne peuvent refléter le code réel !

[Amesamana]

Bonjour,

@jchd
Désolé mais je suis novice, et pas mal de questions se mélange dans ma petite tête

Le code que tu présente me renvoie une erreur :

Code : Tout sélectionner

$obj = ObjGet("winmgmts:{impersonationLevel=impersonate}!root/default").InstancesOf("SystemRestore")
Error : Syntax error

$obj = ObjGet("winmgmts:{impersonationLevel=impersonate}!root/default").

Utilisation de Windows 7 en 64 mais idem en 32.

@ Tlem

Merci pour cette piste, cela veut dire que je peux intégrer au script le faite de désactiver la fonctionnalité de l'heure d'été ?

[mikell]

Pour l'erreur, remplace la ligne par

Code : Tout sélectionner

$obj = ObjGet("winmgmts:{impersonationLevel=impersonate}!root/default")
$obj = $obj.InstancesOf("SystemRestore")

[jchd]

Ah oui. Pardon je n'utilise pratiquement que la beta qui offre pas mal d'avantages.

[Amesamana]

Bonjour,

► Afficher le texte

Code : Tout sélectionner

#RequireAdmin

    #include <Date.au3>

    ;~ _CreateSystemRestorePoint("Point de restauration créé explicitement le " & _Now(), True)
 _CreateSystemRestorePoint(" ")
    _ListSystemRestorePoints()

    Func _CreateSystemRestorePoint($description, $disable = True)
        $obj = ObjGet("winmgmts:{impersonationLevel=impersonate}!root/default:SystemRestore")
        $obj.Enable("")
        $obj.CreateRestorePoint($description, 12, 100)
        If $disable Then
            $obj.Disable("")
        EndIf
    EndFunc

    Func _ListSystemRestorePoints()
        $obj = ObjGet("winmgmts:{impersonationLevel=impersonate}!root/default")
        $obj = $obj.InstancesOf("SystemRestore")
        For $rp in $obj
            MsgBox(0, "Points de restauration", "RP n° : " & $rp.SequenceNumber & @LF & "Description : <" & $rp.Description & ">" & @LF & "Type : " & $rp.RestorePointType & @LF & "Timbre à date (UTC): " & $rp.CreationTime)
        Next
    EndFunc
 

J'ai bien un nouveau point qui se crée, et la date en UTC.


2013/05/08 à 07:28:09, deux heure de décalage.
Pourquoi me faire tester ce code, désolé je n'ai pas compris ?
Je vais avoir un peu de temps aujourd'hui, je vais me pencher plus sérieusement sur mon soucis, mais pas sur que je trouve

[Tlem]

Juste pour voir, dans les options de l'heure de Windows, désactivez le passage a l'heure d'été. ^^

[jchd]

Perso je déconseille fortement de virer l'heure d'été : ca ne servira à rien, mais bon.
Tout ce que je voulais dire avec mon code est que contrairement à ce qu'il a été écrit plus haut, aucun programme ne rajoute "Créé le ... <heure locale>". Je comprends ce texte en bleu comme une remarque de l'auteur.

Encore une fois, il est parfaitement logique que Windows emploie l'heure UTC pour tout ce qui est de l'administration gérable à distance.

Maintenant, si tu tiens à afficher l'heure locale, tu récupères cette heure UTC, tu la formattes comme il faut pour enquiller la série de fonctions que j'ai cité plus haut, ça devrait fonctionner, être robuste, portble et réutilisable.

As-tu testé cela ?

[Amesamana]

@Tlem,
j'ai désactivé l'heure d'été pour test, je gagne effectivement 1 heure, ce qui pourrait être viable en hiver, mais pour la période été j'ai toujours un décalage, 1H.

@jchd
Oui j'ai compris que Windows affiche l'heure UTC et effectivement cela semble logique.
Tu penses que cette affichage viens de mon code, j'avoue que au bout de 2694 lignes cela ce complique pour moi

Mais bon bien vue , je me suis focalisé sur la création de mes PDR mais pas sur la liste, je me suis dit que tu avais surement raison.
Effectivement cela venait de mon énumérations ,

Voici ce que j'arrive à avoir maintenant :

Code : Tout sélectionner

Liste des points de restauration : 

 1  est le nombre de points de restauration disponibles :

 Point N°: 161 --- Point de restauration avec ToolsDiag : Le 08/05/2013 A 16:00:20

Un grand merci pour cet échange qui m'a permis de comprendre pas mal de choses et découvrir de nouvelles fonctions.

Merci à tous.
Je met en résolu