Discussion :

[jfrsm]

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

[craryb]

oui c'est honnete, peut etre peux tu utiliser un thread

[ced600]

J'aurais quand même placé un Dim msg quelque part.

[SfJ5Rpw8]

faudrai aussi "indenter" ton script... car sans cela pas très clair tes imbrications de if's...

oui c'est honnete, peut etre peux tu utiliser un thread

eu.. tu pourrai nous en dire plus craryb..?