|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Помогите плиз со скриптом на удаление файлов. |
|
VBS/WSH/JS - Помогите плиз со скриптом на удаление файлов.
|
Новый участник Сообщения: 3 |
Условия такие:
1) В папке c:\windows\system32 2) удалить все файлы с расширениями: "exe","com","bat","txt","sys","vbs","dll","ini","doc","wsc","dat","msi","msc","mod","chm","cab","hlp " 3) с размером в 2445 байта. Буду очень признателен и благодарен за скорейшую помощь. |
|
Отправлено: 15:15, 13-11-2012 |
Ветеран Сообщения: 1758
|
|
Отправлено: 19:07, 13-11-2012 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 2728
|
Профиль | Отправить PM | Цитировать Тема 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 И, если это практическая задача, а не для преподавателя, то, очевидно ИМХО все эти файлы - проявление вирусной активности, надо с этим разбираться. |
------- Отправлено: 19:24, 13-11-2012 | #3 |
Новый участник Сообщения: 3
|
Профиль | Отправить PM | Цитировать Всем большое Спасибо за оба варианта! Именно это мне и требовалось.
Кстати верно подмечено, это следы вирусной активности, в данной папке их просто миллиарды и NTFS начинает сходить с ума и соответственно OS глючит безбожно. Сначала грешил на жёсткий диск, но когда обнаружил весь этот файловый мусор, стало сразу ясно в чём причина. |
Отправлено: 11:56, 14-11-2012 | #4 |
Новый участник Сообщения: 3
|
Профиль | Отправить PM | Цитировать К моему сожалению, эти "мусорные" файлы появляются снова...никак не могу найти источник вируса, т.к. сканирование всяческими антивирусными утилитами заканчиваются крахом...И в интернете никак не могу найти описание вируса по симптомам. Может кто-то сталкивался с подобным, подскажите пожалуйста.
|
|
Отправлено: 12:03, 28-11-2012 | #5 |
Сообщения: 53488
|
Профиль | Отправить PM | Цитировать Цитата t3rr0r:
Цитата t3rr0r:
Там и продолжайте. |
||
Отправлено: 16:26, 28-11-2012 | #6 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
CMD/BAT - [решено] Удаление файлов нулевого размера, а затем удаление пустых каталогов | ilyadud | Скриптовые языки администрирования Windows | 5 | 25-08-2012 10:57 | |
VBS/WSH/JS - Помогите плиз со скриптом переадресации почты | sigvar | Скриптовые языки администрирования Windows | 0 | 23-09-2011 13:17 | |
Блог - Удаление временных файлов скриптом по расписанию | Vadikan | Microsoft Windows 7 | 0 | 26-05-2011 11:30 | |
Удаление скриптом самого себя | skeeter | AutoIt | 6 | 07-11-2010 10:09 | |
[решено] закрытие открытых файлов скриптом как можно сделать???????? | Anatoliy2004 | Microsoft Windows NT/2000/2003 | 1 | 07-05-2009 15:45 |
|