Snel een herstelpunt aanmaken.

In Windows XP kunt u via systeemherstel handmatig een herstelpunt aanmaken, dit kan sneller met het onderstaande script.

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

Kopieer de bovenstaande code in bijvoorbeeld kladblok, en sla het bestand op als
XP herstelpunt aanmaken.vbs.

Als u nu dit script uitvoert wordt er automatisch een systeem herstelpunt aangemaakt, zodra dit voltooid is krijgt u volgend scherm te zien.