скрипт ротации 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 и строку которую мы будем выводить в наше со
'
' 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 | Комментировать
Комментарии
Ответить