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
    30.04.2008 - 21:52

    Peki , scripti nasil calistiricaz ?

  2. Serhat
    30.04.2008 - 22:38

    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
    13.05.2008 - 11:54

    Elinize sağlık

  4. mesale0077
    21.02.2009 - 20:40

    ç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
    12.04.2009 - 10:24

    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
    12.04.2009 - 23:53

    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
    08.12.2010 - 22:53

    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
    03.10.2013 - 11:04

    teşekkür ederim işe yaradı

  9. Murat
    13.02.2014 - 23:53

    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
    14.02.2014 - 09:05

    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