mp3 Dosyalarını Topluca Silmek
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: Script , Windows XP
Aşağıdakiler de İlgini Çekebilir
- • Remote Desktop Services CVE-2019-0708 ve Etki Kapsamı
- • Windows’lar için Time Zone DST Güncellemesi ve 30 Ekim 2016 Tarihine Kadar Yapılması Gerekenler
- • Windows 25 Ekim Sabahı 1 Saat Gerideyse Yapılması Gerekenler
- • Get-DstInfo | Windows Yaz Saati Uygulaması için Kontrol Aracı
- • Windows DST Hotfix KB3093503 için Toplu Yükleme Aracı ve Yaz Saati Uygulaması 2015
30.04.2008 - 21:52
Peki , scripti nasil calistiricaz ?
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.
13.05.2008 - 11:54
Elinize sağlık
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
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…
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.
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.
03.10.2013 - 11:04
teşekkür ederim işe yaradı
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ş
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.