Salut je suis du genre à essayer différent truc et je suis venu à bout de faire ce petit script qui permet de créer un point de restauration sous XP...Il fonctionne, mais j'aimerais savoir si mon code se tiens

Merci

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
Set WshShell = WScript.CreateObject("WScript.Shell")
If (MsgBox("Voulez-vous créer un point de restauration?",_
   vbYesNo + vbQuestion, "Question") = vbYes) Then
Set sr = getobject("winmgmts:\\.\root\default:Systemrestore")
 
msg = "Votre point de restauration à été créé avec succès." & vbCR
msg = msg & "Inscrit en tant que: " & vbCR
msg = msg & "RP " & Date & " " & Time
 
If (sr.createrestorepoint("Point de restauration automatique", 0, 100)) = 0 Then
    MsgBox msg
Else
    MsgBox "Échec de la création du point de restauration"
End If
Else
	MsgBox "Vous avez quitter le processus, sans créer de point de restauration."
End If