Hallo Helpmij'ers,
Fouten op mijn PC probeer ik te verhelpen via systeemherstel. Op internet vond ik een handig scrypt, waarmee dit met een druk op de knop kon. Is het mogelijk dat dit script zo bewerkt wordt dat elke keer bij het opstarten/afsluiten de pc een herstelpunt maakt. Het scrypt ziet er als volgt uit:
'Onbeheerd herstelpunt maken
'sysherstelxp.vbs
'© W.Coumans
Set sr = getobject("winmgmts:\\.\root\default:Systemrestore")
msg = "Nieuw herstelpunt succesvol aangemaakt." & vbCR
msg = msg & "Het is opgeslagen als: " & vbCR
msg = msg & "Automatisch herstelpunt " & Date & " " & Time
If (sr.createrestorepoint("Automatisch herstelpunt", 0, 100)) = 0 Then
MsgBox msg
Else
MsgBox "Aanmaak herstelpunt mislukt!"
End If
'If (sr.createrestorepoint("Automatisch herstelpunt", 0, 100)) <> 0 Then
' MsgBox "Aanmaak herstelpunt mislukt!"
'End If
'If (sr.createrestorepoint('Automatisch herstelpunt', 0, 100)) 0 Then
' MsgBox "Aanmaak herstelpunt mislukt!"
'End If
Bij Voorbaat Dank,
Marc Zegers
Fouten op mijn PC probeer ik te verhelpen via systeemherstel. Op internet vond ik een handig scrypt, waarmee dit met een druk op de knop kon. Is het mogelijk dat dit script zo bewerkt wordt dat elke keer bij het opstarten/afsluiten de pc een herstelpunt maakt. Het scrypt ziet er als volgt uit:
'Onbeheerd herstelpunt maken
'sysherstelxp.vbs
'© W.Coumans
Set sr = getobject("winmgmts:\\.\root\default:Systemrestore")
msg = "Nieuw herstelpunt succesvol aangemaakt." & vbCR
msg = msg & "Het is opgeslagen als: " & vbCR
msg = msg & "Automatisch herstelpunt " & Date & " " & Time
If (sr.createrestorepoint("Automatisch herstelpunt", 0, 100)) = 0 Then
MsgBox msg
Else
MsgBox "Aanmaak herstelpunt mislukt!"
End If
'If (sr.createrestorepoint("Automatisch herstelpunt", 0, 100)) <> 0 Then
' MsgBox "Aanmaak herstelpunt mislukt!"
'End If
'If (sr.createrestorepoint('Automatisch herstelpunt', 0, 100)) 0 Then
' MsgBox "Aanmaak herstelpunt mislukt!"
'End If
Bij Voorbaat Dank,
Marc Zegers