Eğer Windows 10 u Microsofttan indirdiniz ve temiz bir kurulum veya Yükseltme kurulumu yaptınızssa Sistem Koruması (Sistem geri yükleme) nı kontrol etmenizi tavsiye ederim , çünkü sürpriz bir şekilde
sistem geri yükleme çalışmıyor olabilir (Bende çalışmıyordu) , Sistem geri yükleme özelliği mesela güncellemelerden önce veya bazı yazılım yüklemelerinden önce ekran görüntüsü aldığından bazı durumlarda pratik olabiliyor , böylece sistemin önceki tarihli bir görüntüsüne kolayca geri dönülebiliyor , Normal koşullarda sistem korumasının (geri yükleme) açık olup olmadığını şu şekilde anlayabiliriz
1. Windows ikonuna sağ tıklayalım ve buradan sistem kısmını seçelim
2. Açılan ekranda Gelişmiş sistem ayarları tabına tıklayalım
3. ve buradan da sistem koruması tabına geçelim
Görüldüğü gibi bütün dizinler için sistem koruması kapalı , Oysa önceki sistemlerde Windowsun yüklü olduğu dizinlerde Sistem koruması herdaim açık olurdu , windowsun kurulu olduğu dizini tıklayıp yapılandır diyelim , Aşağıdaki ekran açılacaktır
sistem korumasını aç kısmına tik koyalım , en çok kullanımı ayarlayalım ve son olarakta Uygula ve tamam diyerek sistem korumasını açmış olalım , elbetteki bu şekilde olanını hemen hemen herkes biliyor gelin hiç bunlarla uğraşmadan bu işi birkaç .vbs scriptle yapalım
1. Vbs ile Bir tıkla sistem korumasını açalım
'www.sordum.net - Velociraptor Set oShell = WScript.CreateObject("WSCript.shell") oShell.run "SystemPropertiesProtection"
2. Vbs ile Sadece C için sistem korumasını açalım
If Not WScript.Arguments.Named.Exists("elevate") Then CreateObject("Shell.Application").ShellExecute WScript.FullName _ , WScript.ScriptFullName & " /elevate", "", "runas", 1 WScript.Quit End If strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\default") Set objItem = objWMIService.Get("SystemRestore") errResults = objItem.Enable("C:\")
3. Vbs ile Tüm dizinler için sistem korumasını kapatalım
If Not WScript.Arguments.Named.Exists("elevate") Then CreateObject("Shell.Application").ShellExecute WScript.FullName _ , WScript.ScriptFullName & " /elevate", "", "runas", 1 WScript.Quit End If strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\default") Set objItem = objWMIService.Get("SystemRestore") errResults = objItem.Disable("")
Üstteki .vbs scriptlere uygun isimler verip .vbs olarak kaydedip çalıştırırsanız ilk baştaki uzun yönteme gerek kalmaz yada aşağıdaki linkten hazır scriptleri indirip kullanabilirsiniz , ilaveten bakınız
Script açıklamaları:
open_sys_rest.vbs : direkt sistem korumasını açar
enable_sys_rest_c.vbs : C için sistem korumasını açar
disable_sys_rest_d.vbs : D için sistem korumasını Kapatır
enable_sys_rest_all.vbs : Hem C hemde D için sistem korumasını açar
disable_sys_rest_all.vbs : Tüm dizinlerdeki sistem korumasını kapatır
Cümlemizden inşallah , selamlar
Allah senden bin kere razı olsun kafayı yemek üzereydim verdiğin dosyalarla 1 tıklamayla hallettim.