скрипт ротации log-ов и backup-ов для windows

Запись создана марта 12, 2008

'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 3.1
'
' NAME: remlogs.vbs
'
' AUTHOR: Подлячок чок
19.06.2005
'
' CO

ME
T: Скриптик для автоматического удаления log-ов и backup-ов, срок актуальности которых истек.
' Срок
ов, срок актуальности которых истек.
еделяется только вашим
' гражданским самосознанием, исходя из принципов разумности и политики ваш
не понадобиться определяется только вашим
==========

'Объявляем пременные
Dim Fso,File,BackupFolder,backupFiles,PathName,Result,N
разумности и политики вашей организации.
переменные
Counter=0
PathName="нужная вам папочка"
'Получаем значение тек


ей даты
CurrentDate=
ременные
Dim Fso,File,BackupFolder,backupFiles,PathName,Result,Name,Output
Dim Counter,CurrentDate,FileDate,WshShell,a,str
.CreateObject("Scripting.Fiм переменные
Counter=0
PathName="нужная вам папочка"
er(PathName)
'Получаем коллкцию
е текущей даты
CurrentDate=Date

upFiles=BackupFolder.Files
' Цикл. Для каждого обекта-File
ileSysemObject
Set WshShell=WScript.CreateObject("WScript.Shell")
Set Fso=WScript.CreateObject("Scripting.FileSystemObject")
период между датой создания файла и жная нам папка
Set BackupFolder=Fso.GetFolder(PathName)
здания файла и текушей датой больше заданного значения, па "File" из нужной папки
Set backupFiles=BackupFolder.Files
которую мы будем выводить в наше сообщение
'(можно не форми
ллекции обектов - Files
For Each File In backupFiles
>Количество дней после которогздания файла
FileDate=File.DateCreated
Str + "Был удален файл" & File.Name & " " & CurrentDate & Vbания файла и текущей датой
Result=CurrentDate-FileDate
log.txt на запись (опционально)
Set a=Fso.OpenTextFile("c:\log.txt",2,False)
'Запис
ей датой больше заданного значения, то

'Закрываем файл (опционально)
a.Close
'Выводим окно сообщения о том какие файлы мы удалили (опционально)
Output=M
и строку которую мы будем выводить в наше со

» Запись из раздела windows | Комментировать

Комментарии





Ответить