'THIS SCRIPT Checks for folders older than 7 days in the path D:\PROGRAM FILES\RESEARCH IN MOTION\BLACKBERRY ENTERPRISE SERVER\LOGS.
'If folders are older than 7 days they are deleted.
'A logfile is written to the D:\PROGRAM FILES\RESEARCH IN MOTION\BLACKBERRY ENTERPRISE SERVER\LOGS path on completion.
'This logfile is overwritten at each run.

On Error Resume Next

'Define the constants
'Number of days to retain the folder
CONST ADJUSTDATE = -7
'Enter your folder path to the BlackBerry logs below
CONST FOLDERPATH = "D:\PROGRAM FILES\RESEARCH IN MOTION\BLACKBERRY ENTERPRISE SERVER\LOGS"
CONST FILENAME = "DeleteLogsScript.log"

'Get the File System Objects
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(FOLDERPATH)
Set subFolders = folder.SubFolders

'Set the log file
sLogFilePath = FOLDERPATH & "\" & FILENAME
set logfile = fso.CreateTextFile(sLogFilePath, True)
'Write the log file
logfile.WriteLine("BES Delete Logs started on " & Now )
logfile.WriteLine("The following folders were deleted")

'Set the date to delete folders older than
dateold = DateAdd("d", ADJUSTDATE, Date)

'Process all the folders
For Each folderObject in SubFolders
errorvalue=0 'ensure the error value is reset for each folder
datemod = DateValue(folderObject.DateLastModified)
'Delete folders that are old

IF datemod < dateold Then
fso.DeleteFolder folderobject, true 'this line deletes the folders
errorvalue = Err.Number

If ErrorValue = 0 Then 'The folder was deleted ok
logfile.WriteLine( folderobject.Name )'record folders that were successfully deleted
Else
If Errorvalue = 70 Then
'Error value 70 denotes the folder could not be deleted for access reasons. Most likely the folder (or a file within it) is in use.
logfile.WriteLine (folderObject.path & " could not be deleted. This folder, or a file within it, may be in use.")
Else
logfile.WriteLine (folderObject.path & " could not be deleted. Unknown error")
End If
End If
End IF
Next

'Write the log file
logfile.WriteLine("BES Delete Logs Completed on.")
logfile.Close

'Clear the variables
Set subFolders = Nothing
Set folder = Nothing
Set fso = Nothing
Set logfile = Nothing

Silly question - what is the difference between this script and using the BlackBerry Server Configuration panel (Logging tab) to set the 'Debug log maximum daily file age'?

__________________
You may know me as Juwaack68

I don't think the "BlackBerry Server Configuration panel (Logging tab) to set the 'Debug log maximum daily file age'" removes the directories it just removes the .txt files, could be wrong though.

Steve086, you are exactly right. We have 30 days set on our logging and it just removes the txt files within the directories.


-Chris

does it delete off of last modified date or the internal stamp date of the log file? Can this be setup in windows schedular

Great question; I don't know. I created a script to zip log files and ignore having the BES do it ...

__________________
http://blog.port3101.org/hdawg/

The views expressed by me on Port3101 and its affiliated sites are my own and do not necessarily reflect the views of my employer.

so the script deleted the folders for me but the log file didnt update correctly. all it wrote to the log was...

BES Delete Logs started on 5/11/2009 1:08:53 PM
The following folders were deleted
BES Delete Logs Completed on.

also, it left logs more than 7 days old, ran it today and it left logs since 4/25/2009

any ideas?

__________________
Two months ago, I saw a provocative movie on cable TV. It was called The Net, with that girl from the bus.

By the way, I opened an SDR for having MDS logs (MDAT) to have a configurable retention. A separate one was opened for all other log files, audit logs, orphaned log folders, etc.

__________________
BCSA (4.1, 5.0) | BCSD (4.1, 5.0)

The views expressed by me on Port3101.org are my own and do not necessarily reflect the views of my employer.

fixed a few bugs in your script. it now writes what files it deletes the log and records the date when it finishes.

also if you have the "debug log max daily file age" set, then your folders will have been modified more recently (mine was set to 7 days) and thus not all folders you might expect would be deleted. i changed the one param to folderObject.DateCreated and it then only leaves exactly 7 days (or whatever u specify). it won't delete the webserver logs as they're in use. make sure you move your installer files if you need them as they will be deleted.

'THIS SCRIPT Checks for folders older than 7 days in the path D:\BESLog\BlackBerry Enterprise Server\Logs.
'If folders are older than 7 days they are deleted.
'A logfile is written to the D:\BESLog\BlackBerry Enterprise Server\Logs path on completion.
'This logfile is overwritten at each run.

On Error Resume Next

'Define the constants
'Number of days to retain the folder
CONST ADJUSTDATE = -7
'Enter your folder path to the BlackBerry logs below
CONST FOLDERPATH = "D:\BESLog\BlackBerry Enterprise Server\Logs"
CONST FILENAME = "DeleteLogsScript.log"

'Get the File System Objects
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(FOLDERPATH)
Set subFolders = folder.SubFolders

'Set the log file
sLogFilePath = FOLDERPATH & "\" & FILENAME
set logfile = fso.CreateTextFile(sLogFilePath, True)
'Write the log file
logfile.WriteLine("BES Delete Logs started on " & Now )
logfile.WriteLine("The following folders were deleted")

'Set the date to delete folders older than
dateold = DateAdd("d", ADJUSTDATE, Date)

'Process all the folders
For Each folderObject in SubFolders
ErrorValue = 0 'ensure the error value is reset for each folder
datemod = DateValue(folderObject.DateLastModified)
'Delete folders that are old

IF datemod < dateold Then
folname = folderObject.path
fso.DeleteFolder folderObject, true 'this line deletes the folders
ErrorValue = Err.Number

If ErrorValue = 76 Then
'The folder was deleted ok
logfile.WriteLine (folname & " successfully deleted.") 'record folders that were successfully deleted
Else
If ErrorValue = 70 Then
'Error value 70 denotes the folder could not be deleted for access reasons. Most likely the folder (or a file within it) is in use.
logfile.WriteLine (folderObject.path & " could not be deleted. This folder, or a file within it, may be in use.")
Else
logfile.WriteLine (folderObject.path & " could not be deleted. Unknown error")
End If
End If
End IF
Next

'Write the log file
logfile.WriteLine("BES Delete Logs Completed on " & NOW)
logfile.Close

'Clear the variables
Set subFolders = Nothing
Set folder = Nothing
Set fso = Nothing
Set logfile = Nothing
Set folname = Nothing

__________________
Two months ago, I saw a provocative movie on cable TV. It was called The Net, with that girl from the bus.

Hi,

What is the file type for this script, is it .vbs?

I changed BES logs directory and I changed it to 15 days, but when I run it, nothing happens.

Thanks in advance.

That is indeed VBS ... just use the script I made

__________________
http://blog.port3101.org/hdawg/

The views expressed by me on Port3101 and its affiliated sites are my own and do not necessarily reflect the views of my employer.

Hi guys, I just want to know what happend with the Webserver and Installer Folders/logs could those be deleted?

Sure you can delete them. Once the installation is successful you're all set. If the webserver directory is empty you can delete it too.

__________________
http://blog.port3101.org/hdawg/

The views expressed by me on Port3101 and its affiliated sites are my own and do not necessarily reflect the views of my employer.