Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Помогите плиз со скриптом на удаление файлов.

Закрытая тема
Настройки темы
VBS/WSH/JS - Помогите плиз со скриптом на удаление файлов.

Новый участник


Сообщения: 3
Благодарности: 0


Конфигурация

Профиль | Отправить PM | Цитировать


Условия такие:
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

 

Ветеран


Сообщения: 1754
Благодарности: 965

Профиль | Цитировать


Код: Выделить весь код
@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
Это сообщение посчитали полезным следующие участники:

Отправлено: 19:07, 13-11-2012 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Contributor


Сообщения: 2708
Благодарности: 1684

Профиль | Отправить 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
В задаче не указано, что файлы надо удалять и в поддиректориях. В батнике это элементарно. В VBS-скрипте сложнее.
И, если это практическая задача, а не для преподавателя, то, очевидно ИМХО все эти файлы - проявление вирусной активности, надо с этим разбираться.

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.

Это сообщение посчитали полезным следующие участники:

Отправлено: 19:24, 13-11-2012 | #3


Новый участник


Сообщения: 3
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

Отправлено: 11:56, 14-11-2012 | #4


Новый участник


Сообщения: 3
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

Отправлено: 12:03, 28-11-2012 | #5



Moderator


Сообщения: 53175
Благодарности: 15430

Профиль | Отправить PM | Цитировать


Цитата t3rr0r:
сканирование всяческими антивирусными утилитами заканчиваются крахом

Цитата t3rr0r:
не могу найти источник вируса
Создайте тему в разделе форума Лечение систем от вредоносных программ, выполнив эти инструкции.
Там и продолжайте.
Это сообщение посчитали полезным следующие участники:

Отправлено: 16:26, 28-11-2012 | #6



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Помогите плиз со скриптом на удаление файлов.

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
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




 
Переход