mp3 Dosyalarını Topluca Silmek

30.04.2008 | 17:19 Çözümler , Windows 10 Yorum

Aşağıdaki scriptin çalıştığı bilgisayardaki MP3 uzantılı dosyalar otomatik olarak bulunur ve silinir.

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

Aynı anda birden fazla uzantıyı tarayıp silmek isterseniz Script’i aşağıdaki gibi düzenleyebilirsiniz. (örneğin mp3 ve wma dosyaları..)

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

Bu şekilde taranacak dosya uzantı sayısını arttırabiliriz ve GPO ile domain ortamına uygulayabiliriz.

Yazı Etiketleri: ,

Sayfa Başı ▲

Yorumlar (10)

  1. subzero

    Peki , scripti nasil calistiricaz ?

  2. Serhat

    Merhaba.

    Yazıdaki ilk scripti kopyala ve bir notepad dosyasına yapıştır. Dosyayı farklı kaydet de ve herhangi bir isimle ama uzantısı VBS olacak şekilde kaydet. (ör: mp3sil.vbs)

    Daha sonra bu dosyaya çift tıklayıp çalıştırdığında işlem başlayacaktır.

    Antivirüs programları bu tip script dosyalarının çalışmasını engelliyor. Scripti çalıştırmadan önce antivirüs programını devre dışı bırakman gerekebilir.

  3. Hmt

    Elinize sağlık

  4. mesale0077

    çalışmalar güzel ben vbs ile program yazdım ama kendi kendi silen komut yazmak istiyorum gerekirse bulunduğu klasörü silebilsin yada bat dosyası oluşturup program nerde kurulu ise bulup silme komutu yada farklı bir klasöre bat dosyasını kopyalayıp bat dosyasını çalıştırcak ve program sonlandırma komutu gerekiyor mesale mssger parogramını sollandırmak gibi ve @hotmail.com yada hotmail.com klasörleri bulup silen vbs komut lazım
    hayırlı çalışmalar

  5. Bülent

    Serhat Bey bu scripti çalıştırmak için Antivirüsü durdurun demişsiniz ancak bunu GPO login kısmına eklediğimiz zaman script çalıştırmadan önce antivürüsü durdurunan sonra antivürüsü çalıştıran Trend micro için uyarlanmış bi script nasıl bulabilirim…

  6. Serhat AKINCI

    Bülent bey:

    Eğer Script’in çalışmasında antivirüs kaynaklı bir problem olduğunu tespit ettiyseniz, Script’i antivirüs tarafında exception list’e ekleyerek de sorunu çözebilirsiniz.

  7. Hiztutkunu

    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

    merhaba bu script’ti sadece c ve d sürücüsündeki mp3’leri silmek için nasıl bir ayarlama yapılabilir…logon script olarak çalışıyor..herhangi bir sıkıntı yok…sadece :) usb flash bellekteki mp3’leride siliyor,yardımcı olursanız sevinirim.

  8. mehmet

    teşekkür ederim işe yaradı

  9. Murat

    serhat av güvenilir listeye ekle demişsin de dostum 100 pc olduğunda ad ile dağıtmak zaruri oluyor. senin dediğin gibi av’lere tek tek tanıtmak zor iş

  10. Serhat AKINCI

    Eğer 100 PC varsa ve “merkezi yönetimi olmayan” bir AV çözümü kullanıyorsan daha önemli bir problemin var demektir. Çünkü normal şartlarda AV çözümlerinin merkezi yönetim konsolu üzerinde bir kez yapılacak tanımın ortamdaki tüm AV agent’lara gitmesi sağlanabilir.

Yorum Ekle