Помогите плиз со скриптом на удаление файлов.

[t3rr0r]

Условия такие:
1) В папке c:\windows\system32
2) удалить все файлы с расширениями: "exe","com","bat","txt","sys","vbs","dll","ini","doc","wsc","dat","msi","msc","mod","chm","cab","hlp"
3) с размером в 2445 байта.

Буду очень признателен и благодарен за скорейшую помощь.

[Foreigner]

@echo off
pushd c:\windows\system32
for %%i in ( *.exe *.com *.bat *.txt *.sys *.vbs *.dll *.ini *.doc *.wsc *.dat *.msi *.msc *.mod *.chm *.cab *.hlp) do (

if %%~zi equ 2445 echo del %%i

)
popd

Сначала проверь, потом уберешь echo

[megaloman]

Тема VBS, поэтому представляю скрипт на VBS. Очевидно, что с точки зрения быстроты написания и надёжности в данном случае батник многократно выигрывает.' Скрипт удаляет в указанной папке файлы,
' определенного размера
' определённых расширений

DelFolder = "C:\WINDOWS\system32"
DelSize = 2445
DelExt = Array("exe", "com", "bat", "txt", "sys", "vbs", "dll", "ini", "doc", "wsc", "dat", "msi", "msc", "mod", "chm", "cab", "hlp")

N = UBound(DelExt)
Set FSO = CreateObject("Scripting.FileSystemObject")

On Error Resume Next
Set Folder = FSO.GetFolder(DelFolder)

Set Re = New RegExp
Re.IgnoreCase = True


If Err.Number = 0 Then

Set Files = Folder.Files
For Each f In Files
If f.Size = DelSize Then
For i = 0 To N
Re.Pattern = "^.*\." + DelExt(i) + "$" ' Маска файла
If Re.Test(f.Name) Then
On Error Resume Next
FSO.DeleteFile DelFolder + "\" + f.Name, True
If Err.Number <> 0 Then MsgBox CStr(Err.Number) + " " + Err.Description
Exit For
End If
Next
End If
Next

Else
MsgBox CStr(Err.Number) + " " + Err.Description
End IfВ задаче не указано, что файлы надо удалять и в поддиректориях. В батнике это элементарно. В VBS-скрипте сложнее.
И, если это практическая задача, а не для преподавателя, то, очевидно ИМХО все эти файлы - проявление вирусной активности, надо с этим разбираться.

[t3rr0r]

Всем большое Спасибо за оба варианта! Именно это мне и требовалось.
Кстати верно подмечено, это следы вирусной активности, в данной папке их просто миллиарды и NTFS начинает сходить с ума и соответственно OS глючит безбожно. Сначала грешил на жёсткий диск, но когда обнаружил весь этот файловый мусор, стало сразу ясно в чём причина.

[t3rr0r]

К моему сожалению, эти "мусорные" файлы появляются снова...никак не могу найти источник вируса, т.к. сканирование всяческими антивирусными утилитами заканчиваются крахом...И в интернете никак не могу найти описание вируса по симптомам. Может кто-то сталкивался с подобным, подскажите пожалуйста.

[Petya V4sechkin]

сканирование всяческими антивирусными утилитами заканчиваются крахом
Dr.Web LiveCD (http://www.freedrweb.com/livecd/)
Kaspersky Rescue Disk (http://support.kaspersky.ru/viruses/rescuedisk)


не могу найти источник вируса
Создайте тему в разделе форума Лечение систем от вредоносных программ (http://forum.oszone.net/forum-87.html), выполнив эти инструкции (http://forum.oszone.net/thread-98169.html).
Там и продолжайте.