'Création d'un point de restauration système
'© Laurent Gillet - Rev 27-09-2004
'Télécharger sur le site http://www.génération-nt.com

Set sr = getobject("winmgmts:\\.\root\default:Systemrestore")

Dim Input
Input = InputBox ("Entrez ici le nom que vous souhaitez donner à votre point de restauration", "GENERATION-NT.COM")


msg = "Nouveau point de restauration créer avec succès ." & vbCR
msg = msg &Input& " le " & Date & " à " & Time


If (sr.createrestorepoint( Input, 0, 100)) = 0 Then
    MsgBox msg
Else
    MsgBox "La création du point de restauration à échouer!"
End If