Dopey
12 October 2009, 20:30
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! :good: Werkt in XP, Vista en Windows 7!
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! :good: Werkt in XP, Vista en Windows 7!