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

[techne]

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

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

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

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


pcsteps.gr