Sauvegarde intégrale d'un serveur BlackBerry

From Deimos.fr / Bloc Notes Informatique
Jump to: navigation, search

1 Introduction

Blackberry a bien penser sa manière de backup. Pour celà faut quand même scripter, tout n'est pas automatique. C'est pourquoi je joint ce petit script qui va sauvegarder les dossiers importants et la base de donnée.

2 Script

Voici le script en vbs. Remplacez ce qui vous concerne :

' BlackBerry Backup Script
' srvbesbackup.vbs
' Made by Deimos

' Delete folders and files
Const DeleteReadOnly = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder("C:\backupbes\*")
objFSO.DeleteFile("C:\backupbes\*"), DeleteReadOnly

' Execute Backup
Set WshShell = createobject("wscript.shell")
Set oExec = WshShell.Exec("E:\Sources\V4\BESX4.0.2\tools\BlackBerryDbBackup.exe -d besmgmt -f c:\backupbes -E -p")

'create folder
Set objFolder = objFSO.CreateFolder("C:\backupbes\program Files")

'copy folder
Const OverWriteFiles = TRUE

'Folders to backup (source , destination)
objFSO.CopyFolder "C:\Program Files\Microsoft SQL Server" , "'C:\backupbes\Program Files\" , OverWriteFiles
objFSO.CopyFolder "C:\Program Files\Research In Motion" , "C:\backupbes\Program Files\" , OverWriteFiles
objFSO.CopyFolder "E:\Research In Motion" , "C:\backupbes\" , OverWriteFiles
objFSO.CopyFolder "E:\Sources" , "C:\backupbes\" , OverWriteFiles

3 Conseil

Vous pouvez ensuite le mettre dans votre planificateur de tâches pour automatiser l'action :-)