Script ile ilgili bi soru

Merhaba Onur bey;

Öncelikle formumuza hoş geldiniz post açarken konu başlıklarına biraz daha önem göstermenizde fayda var

sorunuza gelince mp3 silmeden önce download edilmesini engellemelisiniz yapınız hakkında bilgi verirseniz daha çabuk yardım alırsınız

Merhaba Ertan bey;

Öneriniz için teşekürler.

mp3 downloads yasak zaten Usb ve Cd-Romlardan mp3 yüklüyorlar bilgisayar a bende acaba bi script ile bu problemi giderbilirmiyim diye merak ettim.

Onur bey http://cozumpark.com/forums/post/612.aspx  linki incelerseniz sizin için faydalı olacaktır kolay gelsin

Ertan bey, verdiğiniz linkteki yöntem, USB Diskler içerisine veri yazılmasını engellemek için. Yani bu yöntemde, USB Disk içindeki mp3 dosyaları çalıştırılabilir ve local diske kopyalabilir durumdadır. Sadece local disk üzerinden USB Disk'e veri yazılmasını engellemiş oluyoruz. Bu da problemi tam olarak çözmüyor.

Onur bey, aşağıdaki scripti kullanarak, scriptin çalıştığı bilgisayar üzerindeki mp3 uzantılı dosyaları silebilirsiniz.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
    ("Select * from CIM_DataFile where Extension = 'mp3'")
For Each objFile in colFiles
   objFile.Delete
Next

Eğer bir den fazla dosya uzantısını aynı anda silmek isterseniz, scripti aşağıdaki gibi editleyebilirsiniz.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
    ("Select * from CIM_DataFile where Extension = 'mp3' OR Extension = 'mp4'")
For Each objFile in colFiles
   objFile.Delete
Next

Scriptler arkaplanda çalışır ve tüm disk bölümlerini tarar (C, D, E vs..) bulduğu dosyaları otomatik olarak siler.