Σημείο επαναφοράς

0
inShare

0

Αφού κάνουμε μια σημαντική αλλαγή στον υπολογιστή μας, μετά από πολύ κόπο, θα θέλαμε να δημιουργήσουμε ένα σημείο επαναφοράς για να μην χαθεί η αλλαγή μας.
Στο παρακάτω βίντεο θα δούμε πως μπορούμε με μια μικρή εφαρμογή να δημιουργούμε σημεία επαναφοράς όποτε και όσα θέλουμε. Ο κώδικας του αρχείου που χρησιμοποιούμε είναι αυτός:



If WScript.Arguments.Count = 0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " Run", , "runas", 1
Else
GetObject("winmgmts:\\.\root\default:Systemrestore").CreateRestorePoint InputBox("Εισάγετε μια περιγραφή για το σημείο που θα ορίσετε επαναφορά συστήματος","Δημιουργία σημείου επαναφοράς συστήματος  - pcsteps.gr"), 0, 100
End If


Η εφαρμογή υπάρχει και έτοιμη για λήψη από εδώ