![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Серверные продукты Microsoft » Windows Server 2008/2008 R2 » 2008 R2 - [решено] Автоматическое удаление с шары |
|
2008 R2 - [решено] Автоматическое удаление с шары
|
Пользователь Сообщения: 127 |
Всем добрый день, такая задача нарисовалась:
есть шара, предназначенная для обмена инфой, ну а пользователи они и есть пользователи, устроили помойку... Вот нужно автоматом раз в день все удаллять с шары, я вот сижу думаю, в Microsoft никаких штатных методов на этот случай не предусмотрели? |
|
Отправлено: 08:38, 16-11-2015 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата ev83gen:
![]() Я несколько лет пользую такой скрипт WSH: Скрытый текст
Option Explicit Const intDays2Live = 7 Const strPathToClear = "E:\Для обмена" Dim objFSO Dim intErrorLevel Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(strPathToClear) Then ClearSubFolders objFSO.GetFolder(strPathToClear) intErrorLevel = 0 Else intErrorLevel = 1 End If Set objFSO = Nothing WScript.Quit intErrorLevel '============================================================================= '============================================================================= Sub ClearSubFolders(objFolder) Dim objSubFolder Dim objFile For Each objSubFolder In objFolder.SubFolders ClearSubFolders objSubFolder Next For Each objFile In objFolder.Files If DateDiff("d", objFile.DateCreated, Now()) > intDays2Live Then objFile.Delete(True) End If Next If (objFolder.Files.Count = 0) And (objFolder.SubFolders.Count = 0) Then If objFolder.Path = strPathToClear Then Else objFolder.Delete True End If End If End Sub '============================================================================= Файлы удаляются по дате создания, папки — только пустые (т.е., только после удаления всех вложенных в неё файлов и папок). Интервал у меня задан константой «intDays2Live» в одну неделю (семь дней), путь — константой «strPathToClear». P.S. В разделе Скриптовые языки администрирования Windows Вы можете поискать и более сложные варианты. P.P.S. Вдогонку — исполнение скрипта назначаете обычным Планировщиком на потребное время и частоту. |
|
Отправлено: 09:33, 16-11-2015 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Экзорцист Сообщения: 969
|
Профиль | Отправить PM | Цитировать |
Отправлено: 09:35, 16-11-2015 | #3 |
Пользователь Сообщения: 127
|
Профиль | Отправить PM | Цитировать Спасибо всем за столь быстрые и качественные ответы, я не так выразился....
Просто в win2008r2 появилось много дополнение по управлению сервером, вот я и подумал что там без скриптов что такое есть, но скрипты так скрипты. Всем спасибо)) |
Отправлено: 09:39, 16-11-2015 | #4 |
Новый участник Сообщения: 12
|
Профиль | Отправить PM | Цитировать Есть как раз без скриптов - называется File Management, доступно из консоли File Server Resource Manager. Можно задавать период устаревания, действия с файлами, расписание выполнения, в общем довольно гибко.
|
|
Отправлено: 14:18, 16-11-2015 | #5 |
Пользователь Сообщения: 127
|
Профиль | Отправить PM | Цитировать Ага, вот это и интересовала, а я смотрел в Share and Storage Managment, поэтому и не нашел.
Сейчас бегло просмотрел, такого прям не нашел что меню есть по выбору действия над файлом, там вроде тоже с помощью скриптов..... Но хоть есть куда копать, СПАСИБО. |
Отправлено: 14:25, 16-11-2015 | #6 |
Ветеран Сообщения: 1496
|
Профиль | Отправить PM | Цитировать Укажите параметры глубины и нужной папки; зашедульте скрипт на запуск от лица SYSTEM ежесуточно в 23:00.
$RetentionDepth = 5 $DataFolder = "C:\inetpub\wwwroot\files" $EventHorizon = (Get-Date).AddDays(-$RetentionDepth) Get-ChildItem $DataFolder -recurse -force | ?{$_.LastWriteTime -lt $EventHorizon} | del -recurse -force |
------- Отправлено: 14:22, 23-11-2015 | #7 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Прочие - Автоматическое удаление устройства | Ivanchikkz | Программное обеспечение Windows | 3 | 14-05-2014 14:59 | |
CMD/BAT - Автоматическое удаление файлов | alnimo | Скриптовые языки администрирования Windows | 23 | 19-08-2013 11:46 | |
Удаление файла из шары | EndErr | Microsoft Windows NT/2000/2003 | 5 | 02-11-2007 12:17 | |
Автоматическое удаление приложений.. | mikola1983 | Автоматическая установка приложений | 4 | 29-09-2007 11:05 | |
автоматическое монтирование шары в linux | storm2005 | Общий по Linux | 8 | 29-11-2006 09:52 |
|