AutoIt Français

Code : Tout sélectionner

;==========================================================
;
; AutoIt Version: 3.0
; Language:       French
; Platform:       Windows XP + Sp2
; Author:         Pierre Berjon
;
; Script Function:
;   Nettoyage System Volume Information 
;

#include <Date.au3>

Const $_ms = 400 ; ajustement des pauses

; Prompt the user to run the script - use a Yes/No prompt (4 - see help file)
$answer = MsgBox(4, "Sécurité", "Nettoyage de System Volume Information et" & Chr(13) &  _
                    "création d'un nouveau point de restauration ?")

If $answer = 7 Then ; "Non" cliqué (7)
    Exit ; abandon du process !  on sort...
EndIf

$boucle = 1
While $boucle = 1
$_texte = InputBox("Description du point de restauration",  _
                   "(La date et l'heure sont automatiquement ajoutées)","","",276,181)
If @error = 1 Then 
    Exit ; abandon du process !  on sort...
EndIf

if $_texte = "" then ; pas de description entrée ! on attend et on tourne en rond...  
    $boucle = 1
Else
    $boucle = 0
EndIf

WEnd

;Exit

; ATTENTION !!!
; ces deux opérations ont pour but de supprimer tous les points de restauration antérieurs !
; mais aussi de vider les fichiers cachés System Volume Information de tous les disques durs du PC
; et donc d'éradiquer tout ce qui est indésirable à l'intérieur (virus, trojan, etc...)

Run("RunDLL32.exe shell32.dll,Control_RunDLL sysdm.cpl,,4") ; ouvre la fenêtre 'Propriétés système'
WinWaitActive("Propriétés système")
Sleep($_ms)
ControlCommand("Propriétés système","","[CLASS:Button; INSTANCE:1]","Check","") 
; -DESACTIVER- la Restauration du système sur tous les lecteurs
Sleep($_ms)
ControlClick("Propriétés système", "", "[CLASS:Button; INSTANCE:6]") ; bouton 'Appliquer'
Sleep($_ms)
ControlClick("Restauration du système", "", "[CLASS:Button; INSTANCE:1]") ; bouton 'Oui'
Sleep($_ms)
ControlCommand("Propriétés système","","[CLASS:Button; INSTANCE:1]","UnCheck","") 
; -Ré-ACTIVER- la Restauration du système sur tous les lecteurs
Sleep($_ms)
ControlClick("Propriétés système", "", "[CLASS:Button; INSTANCE:6]") ; bouton 'Appliquer'
Sleep($_ms)
ControlClick("Propriétés système", "", "[CLASS:Button; INSTANCE:4]") ; bouton 'OK'
WinWaitClose("Propriétés système")
Exit

; Maintenant on crée un point de restauration propre !
; ce qui va ré-écrire les fichiers System Volume Information de tous les disques durs
; dans la configuration théoriquement sans 'malveillants' !

Run("C:\WINDOWS\system32\Restore\rstrui.exe ","") ; ouvre la fenêtre 'Restauration du système'
WinWaitActive("Restauration du système")
Sleep($_ms)
Send("!e") ; Alt+e pour 'Créer un point de restauration' 
Sleep($_ms)
Send("!s") ; Alt+s pour 'Suivant'
Sleep($_ms)
Send($_texte); met la description définie dans le champ approprié !
Sleep($_ms)
Send("!c") ; Alt+c pour 'Créer'
Sleep(2000) ; (*) à conserver pour laisser au PC le temps de bosser !!!
Send("!f") ; Alt+f pour 'Fermer' 
Sleep($_ms)

; C'est fini ! 
;==========================================================

Code : Tout sélectionner

;==========================================================
;
; AutoIt Version: 3.0
; Language:       French
; Platform:       Windows XP/Vista
; Author:         Tlem
;
; Script Function:
;   Fonction de controle de la restauration système
;
;==========================================================


; Pour ne pas utiliser l'incude Date.au3
$Now = @MDAY & "/" & @MON & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC

; Création d'un point de restoration, puis désactive la restoration systeme.
_SystemRestoreControl("Point de restoration du " & $Now, 0)
MsgBox(0, "", "Un point de restoration à été créer, puis la restoration système désactivée.")

; Création d'un point de restoration, laisse active la restoration systeme.
_SystemRestoreControl("Point de restoration du " & $Now, 1)
MsgBox(0, "", "Un point de restoration à été créer, puis la restoration système à été laissé active.")

; Désactive la restoration systeme.
_SystemRestoreControl("", 0)
MsgBox(0, "", "La restoration système à été désactivée.")

; Active la restoration systeme.
_SystemRestoreControl("", 1) ;Ou encore : _SystemRestoreControl()
MsgBox(0, "", "La restoration système à été activée.")



Func _SystemRestoreControl($SR_Description = "", $SR_State = 0)
    $obj = ObjGet("winmgmts:{impersonationLevel = impersonate}!root/default:SystemRestore")
    
    If Not $SR_Description = "" Then
        $obj.Enable("")
        $obj.CreateRestorePoint($SR_Description, 12, 100)
        If $SR_State = 0 Then
            $obj.Disable("")
        EndIf
    Else
        If $SR_State = 0 Then
            $obj.Disable("")
        Else
            $obj.Enable("")
        EndIf
        Sleep(2000)
    EndIf
    
EndFunc   ;==>_SystemRestoreControl