Αστρολάβος

Ένα από τις βελτιώσεις που έχουν υποστεί τα Windows στην τελευταία τους έκδοση είναι και η αναβαθμισμένη δυνατότητα να δημιουργούνται σημεία επαναφοράς συστήματος, η οποία μπορεί να μας γλιτώσει πολλές φορές από την καταστροφή. Έχετε την δυνατότητα να αφήνετε το λειτουργικό σύστημα να δημιουργεί μόνο του σημεία επαναφοράς ή να πηγαίνετε να τα δημιουργείτε εσείς με το χέρι. Το μόνο πρόβλημα είναι ότι απαιτούνται πολλά βήματα για να δημιουργηθεί χειροκίνητα ένα σημείο επαναφοράς συστήματος. Παρακάτω, θα δείτε πως μπορείτε να δημιουργήσετε ένα αρχείο με την εκτέλεση του οποίου θα δημιουργείτε ένα σημείο επαναφοράς συστήματος, με όνομα οριζόμενο από εσάς. Για να το καταφέρετε αυτό, αρκεί να δημιουργήσετε ένα νέο αρχείο (πιο εύκολο είναι να κάνετε δεξί κλικ στην επιφάνεια εργασίας και δημιουργία αρχείου εγγράφου.) μέσα στο οποίο θα επικολλήσετε το παρακάτω

If WScript.Arguments.Count = 0 Then
Set objShell = CreateObject(”Shell.Application”)
objShell.ShellExecute “wscript.exe”, WScript.ScriptFullName & ” Run”, , “runas”, 1
Else
GetObject(”winmgmts:\\.\root\default:Systemrestore”).CreateRestorePoint InputBox(”Δώστε ένα όνομα για το σημείο επαναφοράς:”,”Δημιουργία Σημείου Επαναφοράς”), 0, 100
End If

Αποθηκεύστε το αρχείο και αλλάξτε την κατάληξη του από .txt (αν ακολουθήσατε την συμβουλή μου και δημιουργήσατε νέο αρχείο κειμένου) σε .vbs, ονοματίστε το όπως σας αρέσει και είστε έτοιμοι. Έχετε δημιουργήσει ένα άμεσο τρόπο να δημιουργείτε σημείο επαναφοράς συστήματος κατά το δοκούν και όποτε κρίνετε εσείς απαραίτητο. Το συγκεκριμένο ισχύει μόνο για Windows Vista.
Σε περίπτωση που αυτό θέλετε να το δοκιμάσετε σε Windows XP, τότε ο κώδικας που θα χρησιμοποιήσετε θα πρέπει να είναι ο παρακάτω.

GetObject(”winmgmts:\\.\root\default:Systemrestore”).CreateRestorePoint InputBox(”Δώστε ένα όνομα για το σημείο επαναφοράς:”,”Δημιουργία Σημείου Επαναφοράς”), 0, 100