Votre avis sur mon 1er script
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:
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 |
