Server Windows: backup dati con VBS

Tra i lavori che mi sono ritrovato a fare, c’è il portale interno di una grossa azienda. Questo portale mantiene un database con tutti i dipendenti della stessa, news e documenti che i partecipanti si scambiano via web. Una cosa necessaria era quindi il backup (salvataggio) di questi dati, in modo che un’operazione “sbagliata” non perdesse questo enorme lavoro.

La base di dati su cui ho lavorato è un database MDB (Microsoft access DataBase).

Ho creato questo VBS che, attivato tramite le operazioni pianificate di windows tutte le notti all’ora zero (00:00 – mezzanotte), mi va a salvare i file interessati in un’altra cartella dello stesso server, cartella non raggiungibile dagli utenti tramite normale utilizzo web.


'VBS per il backup server
Set oFS = WScript.CreateObject("Scripting.FileSystemObject")
'copio i file in un'altra directory - in questo caso anche altro disco
oFS.CopyFile "D:\portal\db\data.mdb", "E:\backup\portal\"
oFS.CopyFile "D:\portal\db\newsletter.mdb", "E:\backup\portal\"
'creo variabile data nella forma YYYY-MM-DD
data = Year(Date) & "-" & Month(Date) & "-" & Day(Date)
'rinomino i file da "nome.mdb" a "nome_YYYY-MM-DD.mdb"
oFS.MoveFile "E:\backup\portal\data.mdb", "E:\backup\portal\data_" & data & ".mdb"
oFS.MoveFile "E:\backup\portal\newsletter.mdb", "E:\backup\portal\newsletter_" & data & ".mdb"
Set oFS = Nothing


Nella mia cartella backup avrò così TUTTI i database salvati ogni notte, come forma di salvataggio incrementale.
In caso di problemi sarà possibile ripristinare uno (il più recente) dei vecchi database.

scarica il programma di esempio completo per il backup database sito (su server)