Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Серверные продукты Microsoft » Windows Server 2008/2008 R2 » 2008 R2 - [решено] Автоматическое удаление с шары

Ответить
Настройки темы
2008 R2 - [решено] Автоматическое удаление с шары

Пользователь


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

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


Всем добрый день, такая задача нарисовалась:
есть шара, предназначенная для обмена инфой, ну а пользователи они и есть пользователи, устроили помойку...
Вот нужно автоматом раз в день все удаллять с шары, я вот сижу думаю, в Microsoft никаких штатных методов на этот случай не предусмотрели?

Отправлено: 08:38, 16-11-2015

 

Ветеран


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

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


Цитата ev83gen:
я вот сижу думаю, в Microsoft никаких штатных методов на этот случай не предусмотрели? »
Предусмотрели . Называется — пакетные файлы, скрипты WSH или PoSH.

Я несколько лет пользую такой скрипт 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
Благодарности: 127

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


ev83gen,
Код: Выделить весь код
rd /s /q \\server\share\
поместить в батник, а батник в шедулер

Отправлено: 09:35, 16-11-2015 | #3


Пользователь


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

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


Спасибо всем за столь быстрые и качественные ответы, я не так выразился....
Просто в win2008r2 появилось много дополнение по управлению сервером, вот я и подумал что там без скриптов что такое есть, но скрипты так скрипты. Всем спасибо))

Отправлено: 09:39, 16-11-2015 | #4


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


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

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


Есть как раз без скриптов - называется File Management, доступно из консоли File Server Resource Manager. Можно задавать период устаревания, действия с файлами, расписание выполнения, в общем довольно гибко.

Отправлено: 14:18, 16-11-2015 | #5


Пользователь


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

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


Ага, вот это и интересовала, а я смотрел в Share and Storage Managment, поэтому и не нашел.
Сейчас бегло просмотрел, такого прям не нашел что меню есть по выбору действия над файлом, там вроде тоже с помощью скриптов..... Но хоть есть куда копать, СПАСИБО.

Отправлено: 14:25, 16-11-2015 | #6


Ветеран


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

Профиль | Отправить 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

-------
Microsoft Certified Trainer; Cisco Certified Systems Instructor; Certified EC-Council Instructor; Certified Ethical Hacker v8.


Отправлено: 14:22, 23-11-2015 | #7



Компьютерный форум OSzone.net » Серверные продукты Microsoft » Windows Server 2008/2008 R2 » 2008 R2 - [решено] Автоматическое удаление с шары

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

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




 
Переход