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 istersek, scripti aşağıdaki gibi editleyebiliriz. (ö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 ve
April 30th, 2008 at 21:52
Peki , scripti nasil calistiricaz ?
April 30th, 2008 at 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.
May 13th, 2008 at 11:54
Elinize sağlık
February 21st, 2009 at 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
April 12th, 2009 at 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…
April 12th, 2009 at 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.
December 8th, 2010 at 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.