|
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - Удаление скрытых папок по маске |
|
|
CMD/BAT - Удаление скрытых папок по маске
|
|
Новый участник Сообщения: 4 |
Помогите пожалуста создать батник удаления скрытых папок по маске типа : $*$.
Суть проблемы такова, стоит сервер WSUS, который раздает обновления на локальные компы, на который создаются папки бэкапа типа $NtUninstallKB949014$. нужно переодически их удалять потому ка они засирают систему. обычный виндовый чичстильщик не удаляте их. есть вот такой вариант но он тожене помогает: for /D /R c:\windows %i in ($*$) do rmdir /S /Q %i |
|
|
Отправлено: 16:16, 04-09-2009 |
|
Сообщения: 53589
|
Профиль | Отправить PM | Цитировать Цитата chatlaninsan:
|
|
|
Отправлено: 16:22, 04-09-2009 | #2 |
|
Новый участник Сообщения: 4
|
Профиль | Отправить PM | Цитировать в том что занимают место на диске, а а если диск небольшой ну скажем всего 15 гигов ... как говориться рано или поздно для новых обновлений просто не хватит места для установки
|
|
Отправлено: 16:26, 04-09-2009 | #3 |
|
Ветеран Сообщения: 2735
|
Профиль | Отправить PM | Цитировать Вот вариант скрипта - перенесите его в блокнот, сохраните в файл с расширением VBS, настройте Ваши пути, запускайте как исполнимый файл. Тестировал, вроде работает.
В скрипте использована рекурсия, так что удаляем по маске все директории и во всех поддиректориях. ' Удаление скрытых директорий по маске
' Исходные данные ------------------------------------------------
iiiDir = "I:\Всякая дребедень" ' Директория где удаляем
Maska = "^\$.*\$$" ' Маска удаляемой директории
' ------------------------------------------------------------------
Call AllFolders(iiiDir, Maska)
Sub AllFolders(inDir, inMaska) ' ---------------------------------------------
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFolder(inDir)
Set SubF = F.SubFolders
For Each Folder In SubF
nA = Folder.Attributes
if nA >= 2066 Then nA = nA - 2048
If nA = 18 Or nA = 19 Or nA = 22 Or nA = 23 Or nA = 50 Or nA = 51 Or nA = 54 Or nA = 55 Then
Set Re = New RegExp
Re.Pattern = inMaska
Re.IgnoreCase = True
If Re.Test(Folder.Name) Then
' MsgBox Folder.Name + " " + CStr(Folder.Attributes) + " " + CStr(Folder.Type) + " " + CStr(Re.Test(Folder.Name))
FSO.DeleteFolder inDir + "\" + Folder.Name, True
Else
Call AllFolders(inDir + "\" + Folder.Name, inMaska)
End If
Else
Call AllFolders(inDir + "\" + Folder.Name, inMaska)
End If
Next
End Sub
|
|
Последний раз редактировалось megaloman, 05-09-2009 в 00:41. Причина: Уточнение для случая сжатых папок Отправлено: 21:51, 04-09-2009 | #4 |
|
Новый участник Сообщения: 4
|
Профиль | Отправить PM | Цитировать megaloman cпасибо, работает. Нашёл еще через PowerShel
remove-item -path (Get-ChildItem c:windows -Force $*$) -force -recurse правда там тоже свои заморочки. |
|
|
Отправлено: 11:01, 07-09-2009 | #5 |
|
Новый участник Сообщения: 4
|
Профиль | Отправить PM | Цитировать Немного ошибся в PowerShell лучше вот так сделать
но тут еще проблема запуска этого скрипта на удаленных машинах, но кажеться я ее решил тоже. кому интересно вот тут: http://www.redline-software.com/rus/...l-security.php |
|
Отправлено: 17:22, 07-09-2009 | #6 |
|
|
Участник сейчас на форуме |
|
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| CMD/BAT - [решено] Backup дерева папок по маске | newb1e | Скриптовые языки администрирования Windows | 4 | 27-07-2009 17:28 | |
| не могу включить отображение скрытых файлов и папок | brother_bear | Хочу все знать | 7 | 22-03-2009 00:52 | |
| VBS/WSH/JS - [решено] Копирования скрытых папок с сохранениям атрибутов | BadAngel | Скриптовые языки администрирования Windows | 7 | 19-03-2009 13:47 | |
| Доступ - [решено] Как добраться до скрытых папок? | Antonij | Microsoft Windows 2000/XP | 3 | 01-10-2008 21:43 | |
| Интернет - Удаление скрытых сетевых подключений. | emux | Microsoft Windows 2000/XP | 6 | 27-03-2008 14:47 | |
|