Snel een herstelpunt aanmaken

[Dopey]

Om zeer snel een herstelpunt aan te maken:
Open kladblok, en kopieer/plak de volgende code:

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

msg = "Aanmaak snel herstelpunt voltooid ! " & vbCR
msg = msg & "Het nieuwe herstelpunt is opgeslagen als: " & vbCR
msg = msg & "Snel herstelpunt " & Date & " " & Time

If (sr.createrestorepoint("Snel herstelpunt", 0, 100)) = 0 Then
MsgBox msg
Else
MsgBox "Aanmaak snel herstelpunt mislukt :("
End If

'If (sr.createrestorepoint("Snel herstelpunt", 0, 100)) <> 0 Then
' MsgBox "Aanmaak snel herstelpunt mislukt :("
'End If

Sla het bestand op met een duidelijke naam en de extensie .vbs bijvoorbeeld 'herstelpunt.vbs'
Als je nu een herstelpunt wil aanmaken hoef je enkel op het icoontje te klikken en je herstelpunt wordt onmiddellijk aangemaakt! Werkt in XP, Vista en Windows 7!