Program kullanmadan bir Klasöre erişimi engelleme


Bir tıkla klasöre erişim yasağ

Daha önceki konularımızdan birinde , Klasör , herhangi bir dosya veya Programa erişimi nasıl engelleyebileceğimiz ile ilgili bazı bilgiler paylaşmıştık Burada , sizlerden aldığımız emailler ,

genelde bunun tek bir dosya ile ve otomatik şekilde yapılmasına dair sorular içeriyordu , çünkü üstte linkini verdiğimiz yöntemin bazı handikapları mevcut :

1. Birden fazla dosya ile bu yasaklama yapılıyor
2. Yasaklama yapılmak istendiğinde sorulan soruya bir cevap verilmesi gerekiyor , yoksa çalışmıyor

Varsayalım bilgisayar her açıldığında otomatik olarak bir dosyaya erişimi engellemek isteyelim işte bu durumda soru sorulacağı için otomatikleştirme işlemi gerçekleşmeyecektir , tüm bu handikapların bertaraf edilmesi amacıyla sizler için biraz kodları kurcaladım ve ortaya bu başlığın konusu olan bir tıkla herhangi bir soruya cevap verilmeden yasaklama / yasağı kaldırma .vbs scripti ortaya çıktı. Scripti oluştururken aşılması gereken iki sıkıntı vardı :

– Yasaklama veya Yasağı aşma iki değil tek bir doya ile yapılsın
– Soruya otomatik olarak gereken cevap verilsin , ki nasılı üstte linki verilen başlıkta açıklanmıştı lakin küçük bir ayrıntı gözümden kaçmış.

1. Bir tıkla Klasöre erişimi yasaklama (.vbs)

Kardeşiniz veya başka birileri ile Bilgisyarınızı aynı hesap altında kullanıyorsanız görmesini istemediğiniz , resim , video yazışma … olabilir eğer bunları içeren bir Klasöre erişimini yasaklamak istiyorsanız aşağıdaki scripti kullanabilirsiniz

' www.sodum.net - Velociraptor
Option Explicit
Dim strHomeFolder, strHome, strUser
Dim intRunError, objShell, objFSO

strHomeFolder = "deneme"

Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strHomeFolder) Then
' Klasöre kullanici izni atayalim
intRunError = objShell.Run("%COMSPEC% /c Echo E| cacls " _
& strHomeFolder & " /d everyone ", 2, True)
   If intRunError <> 0 Then
   Wscript.Echo "Error assigning permissions for user " _
   & strUser & " to home folder " & strHomeFolder
   End If
End If

WScript.Quit

Gelelim üstteki kodun nasıl kullanılacağına , öncelikle kodları bir Notepad e yapıştırın ve uzantısı .vbs olacak şekilde kaydedin sonra kodun aşağıdaki kısmını:
strHomeFolder = “deneme  deneme yi yasaklamak istediğiniz klasör ismi ile değiştirin. yasaklandıktan sonra klasör açmaya çalışıldığında aşağıdaki şekilde uyarı verecektir

Klasöre erşim engellenmiş

Yasağı aşmak için ise aşağıdaki Scripti kullanabilirsiniz , yine klasör ismini değiştirmeyi unutmayın

Bir tıkla Klasöre erişim yasağını kaldırma (.vbs)

' www.sodum.net - Velociraptor
Option Explicit
Dim strHomeFolder, strHome, strUser
Dim intRunError, objShell, objFSO

strHomeFolder = "deneme"

Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strHomeFolder) Then
' Assign user permission to home folder.
intRunError = objShell.Run("%COMSPEC% /c Echo E| cacls " _
& strHomeFolder & " /g Everyone:F ", 2, True)
   If intRunError <> 0 Then
   Wscript.Echo "Error assigning permissions for user " _
   & strUser & " to home folder " & strHomeFolder
   End If
End If

WScript.Quit

Elbette öncesinde klasörü görünmez yapmayı da deneyebilirsiniz yani ;
1. Gizli dosya ve klasörleri görünür yapalım
2. Yasaklayacağımız KLasörü sağ tıklayıp Gizli kısmına tik koyalım , daha sonra scripti çalıştıralım
Böylece hem gizli hemde erişilmez bir klasörümüz olacaktır , elbette vbs kodları buna görede düzenlenebilir.

NOT: Üstteki kodlar sadece Türkçe sistemlerde düzgün çalışacak onun dışındakilerde kodlar düzenlenmezsse çalışmayacaktır. Test sistemim Windows 7 x64 tür fakat üst sistemlerdede sorunsuz çalışması gerekir , ayrıca Xp de icacls olmadığından kodlarda kullanılmamıştır , kısacası Xp dede sorun çıkarmadan çalışması gerekir.



Yorum Ekle

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

CAPTCHA