Forum
Bildirimler
Hepsini Temizle
3 Party
3
Yazılar
2
Üyeler
0
Likes
444
Görüntüleme
Konu başlatıcı
Merhabalar
500 bilgisayarlı bir ağdaki IP aralığını yazıp tüm dosyaları yada uzantılarını yazıp arayabileceğim bir program mevcutmudur.. İllegal olan dosyaları müzikleri resimleri videoları silmek istiyorum daha doğrusu..Bu konuda yardımlarınızı bekliyorum..
Gönderildi : 30/04/2011 15:58
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
Gönderildi : 30/04/2011 16:14
Konu başlatıcı
cevabınız için teşekkür ederim ama bu script var bende ama ben sileceğim dosyaları görmek istiyorum..bazı dosyalar lazım olabiliyor..yada şirket videoları olabiliyor.onları silmek değilde görerek silmek istiyorum..
Gönderildi : 30/04/2011 16:27
