Security Pendrive 2 (backup)

Como havia falado, eu já tinha meus dados criptografados, só precisava de uma "estratégia" de backup dos dados.

Primeiro vou explicar como ficou toda solução.

1 - Peguei meu mp3 player e criei três pastas:

• TrueCrypt - Onde instalei o truecrypt;
• Musica - Onde coloco as músicas que estou ouvindo;
• Dados - Diretório onde criei o diretório criptografado;
  
  

2 - Criptografei o volume dados usando o truecrypt.

Agora vamos aos scripts de backup. Eu usei dois scripts já prontos, só alterei o que eu precisava, em breve com mais tempo devo aperfeiçoar.

Um script é do Vinicius Canto (esse entende um pouquinho de scripts vbs) e o outro baixei da net "Tom's Cool Backup Script".

O script do Vinicius fica monitorando quando é "plugado" um dispositivo mass storage (pendrive) na maquina.

Plugado o pendrive, o script "PendriveMonitor.vbs" chama o script "backup.vbs". O "pendrivemonitor.vbs" fica rodando direto no micro, o "backup.vbs" será executado sempre que você plugar um pendrive.

O "backup.vbs" vai perguntar se você deseja fazer backup dos dados do pendrive, se optar por fazer ele irá copiar a pasta F:\dados para C:\backup. Feito o backup ele dá um alerta e pergunta se você deseja verificar o log.

Eu mantive todos os créditos nos dois scripts caso vocês queiram copiar pastas diferentes é só alterar no script.

Código do PendriveMonitor.vbs

'USB Storage Monitor<br />'<br />'Vinicius Canto<br />'MVP Visual Developer - Scripting<br />'<br />'Grupo PET Computagco - Universidade de Sco Paulo - Brasil<br /><br />'Disabling error messages...<br />On Error Resume Next<br /><br />'Main routine<br />strComputer = "."<br />Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")<br /><br />Set colMonitoredEvents = objWMIService.ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE Targetinstance ISA 'Win32_PNPEntity' and TargetInstance.DeviceId like '%USBStor%'")<br />Do<br />Set objLatestEvent = colMonitoredEvents.NextEvent<br />BackupDados()<br />Loop<br /><br />Sub BackupDados()<br />Set WshShell = WScript.CreateObject( "WScript.Shell" )<br />WshShell.Run ("""backup.vbs""") 'Chama o Script de Backup<br />End Sub

Código do Backup.vbs

'==========================================================================<br />'Tom's Cool Backup Script revised 19 April 2002<br />'Written by Tom Hingston of http://cheqsoft.com<br />'<br />'This script copies all the files that are new or have changed,<br />'to the backup folder specified by BackupPath.<br />'It also logs the files copied from the last 5 backups to C:\Backuplog.txt<br />'<br />'INSTRUCTIONS<br />'You need to change settings in 2 places below... Setting 1 is where to<br />'backup to; Setting 2 is what to backup. There is optional Setting 3 which<br />'allows you to exclude some sub-folders from within the folders being backed up.<br />'<br />'All file/folder paths need to be inside speech marks "Like this"<br />'or otherwise the speech marks need to be empty ""<br />'<br />' Learn about VBScript at...<br />' http://msdn.microsoft.com/scripting/default.htm?/scripting/vbscript/<br />'==========================================================================<br /><br /><br />'==========================================================================<br />'SETTING 1 - WHERE TO BACKUP TO...<br />' Set BackupPath<br />' BackupPath is the Folder that you want to backup to....<br />' Example1: BackupPath = "H:\Backup"<br />' Example2: BackupPath = "\\Tom\C\Quality Documents"<br /><br />BackupPath = "c:\backup" ' <-- Set backup path here 'END OF SETTING 1 '========================================================================== If Wscript.Arguments.Count = 0 Then 'not initiated by dropping folder on it '========================================================================== 'SETTING 2 - FILES AND/OR FOLDERS TO BACKUP... ' 'These are the Files and/or Folders that you want to backup. Quantity = 10 '<-- This can be increased if MyData(?) increases. redim MyData(Quantity) ' These are the Folders that you want to backup... ' EXAMPLE: MyData(1) = "C:\Data" MyData(1) = "F:\dados" ' <-- Set these MyData(2) = "" MyData(3) = "" MyData(4) = "" MyData(5) = "" MyData(6) = "" MyData(7) = "" MyData(8) = "" MyData(9) = "" MyData(10) = "" 'END OF SETTING 2 '========================================================================== Else redim MyData(1) MyData(1) = Wscript.Arguments(0) 'was initiated by dropping folder on it Quantity = 1 End If '========================================================================== 'SETTING 3 - FOLDERS TO EXCLUDE... (optional) ' 'These are Sub-Folders within the folders being backed up, 'that you can Exclude from the backup. 'EXAMPLE: Excl_Data(1) = "C:\Data\Kids files" Excl_Quantity = 5 '<-- This can be increased if Excl_Data(?) increases. redim Excl_Data(Excl_Quantity) Excl_Data(1) = "" '<-- Set these if required Excl_Data(2) = "" Excl_Data(3) = "" Excl_Data(4) = "" Excl_Data(5) = "" 'END OF SETTING 3 '========================================================================== set fso = CreateObject("Scripting.FileSystemObject") strScript = WScript.ScriptFullName strScript = fso.GetFileName( strScript ) strScript = left( strScript, len(strScript) - 4 ) StartMe = msgbox("Benvindo ao Tom's Cool Backup script." & vbcrlf & vbcrlf & _ "O Backup do pendrive será feito no diretório: " &amp;amp;amp;amp;amp;amp;amp;amp;amp; BackupPath & " (" & strScript & ")" & vbcrlf & vbcrlf & _ "Deseja realizar o backup agora?" , 33, "Tom's Cool Backup Script " & " - " & strScript ) if StartMe = 2 then 'cancelled wscript.quit End if count = 0 MyDelay = 1 '(mS) that cause script delays to allow system to still be used (doevents) dim arrResults ' array to store results in redim arrResults(0) If right(BackupPath, 1) <> "\" then<br />BackupPath = BackupPath & "\" 'inserts the slash as it is required later<br />End If<br /><br />call CheckPath<br /><br />if not fso.folderExists ( BackupPath ) then<br />fso.CreateFolder( BackupPath )<br />end if<br /><br /><br />'sets drv for MakeFolderPath<br />If left(BackupPath , 1) = "\" then 'network<br />for ss = 1 to len(BackupPath )<br />strCh = mid(BackupPath , ss, 1)<br />if strCh = "\" then countslash = countslash + 1<br />if countslash = 3 then<br />drv = ss + 3<br />end if<br />next 'ss<br />if not countslash >= 3 then msgbox "Error in script relative to network path"<br />else 'local drive letter<br />drv = 5<br />End If<br /><br />For i = 1 to Quantity<br />If MyData(i) <> "" then<br /><br />if fso.DriveExists( MyData(i) ) Then 'it is a drive<br />call backup( MyData(i) )<br /><br />elseif fso.folderExists(MyData(i)) then 'it is a folder<br />call MakeFolderPath( BackupPath & right(MyData(i), len(MyData(i))-3 ) )<br />call backup( MyData(i) )<br /><br />elseif fso.fileExists(MyData(i)) then 'it is a file<br />call FileBackup( MyData(i) )<br /><br />else 'not a drive or folder or file<br />msgbox MyData(i) &amp;amp;amp;amp;amp;amp;amp;amp; vbcrlf & vbcrlf & "This file/folder does not appear to exist" & _<br />vbcrlf & "Please ensure you have typed it correctly or that" & vbcrlf & _<br />"you have not moved, renamed or deleted it.", 48, "File or Folder Error"<br />end if<br /><br />End If<br />Next 'i<br /><br />strlog = "----------------------" & vbnewline &amp;amp;amp;amp;amp;amp;amp;amp;amp;amp; "Backup on " & now() & vbnewline<br />strlog = strlog & join(arrResults, vbnewline) &amp;amp;amp;amp;amp;amp;amp;amp;amp;amp; vbnewline & "= " & count & " files copied to " &amp;amp;amp;amp;amp;amp;amp;amp;amp;amp; BackupPath & vbnewline & vbnewline<br />call logresults ( strlog )<br /><br />ViewLog = msgbox("Backup Realizado..." & vbnewline & "Total de arquivos copiados: " & count &_<br />vbnewline & "Deseja verificar o log do Backup (c:\backup\backuplog.txt)?", vbyesno + 32 + 256, "Tom's Cool Backup Script")<br />if ViewLog = 6 then 'yes<br />Set WshShell = WScript.CreateObject( "WScript.Shell" )<br />WshShell.Run ("""C:\backup\backupLog.txt""") 'open log file<br />end if<br /><br />Set WshShell = nothing<br />set fso = nothing<br />wscript.quit<br /><br />'-------------------------------------------------------<br />'Performes the actual copying if required<br />Sub Backup( mypath )<br /><br />if ExcludeF( mypath ) = False then<br />Set fldr = fso.GetFolder( myPath )<br />'Set fc = fldr.Files<br />For Each f in fldr.Files<br />DoEvents<br />If not fso.folderExists( BackupPath & right(myPath, len(myPath)-3 )) then<br />call MakeFolderPath( BackupPath & right(myPath, len(myPath)-3 ))<br />End if<br />If fso.DriveExists( mypath ) Then 'it is a drive<br />backfolder = BackupPath<br />else 'it is a folder<br />backfolder = BackupPath & right(fldr, len(fldr)-3 ) & "\"<br />end if<br /><br /><br />ext = right(Lcase(f.name), 3) '----------------------------<br />' FILE TYPES NOT TO BACK UP<br />'----------------------------<br />if ext <> "tmp" then<br /><br />backupfile = backfolder & f.name<br /><br />If fso.fileExists( backupfile ) then<br />if fso.GetFile(f).DateLastModified > fso.GetFile(backupfile).DateLastModified then<br />fso.CopyFile f, backfolder, true<br />count = count + 1<br />ReDim Preserve arrResults(count)<br />arrResults(count) = f<br />end if<br />Else 'does not yet exist in backup<br />fso.CopyFile f, backfolder, true<br />count = count + 1<br />ReDim Preserve arrResults(count)<br />arrResults(count) = f<br />End if<br />end if ' if ext.. that checked for filetype<br />DoEvents<br /><br />Next 'f1<br /><br />For Each Folder In fldr.SubFolders<br />Call Backup(Folder)<br />Next 'Folder<br /><br />End if 'ExcludeF( mypath ) = False<br />End Sub<br /><br />'-----------------------------------------------------------------<br />'performs the actual copying of Files if the path was a file - not folder<br />Sub FileBackup( myFile )<br /><br />set f = fso.GetFile( myFile )<br />backupfile = BackupPath & f.name<br /><br />If fso.fileExists( backupfile ) then 'already exists in backup<br />if fso.GetFile(f).DateLastModified > fso.GetFile(backupfile).DateLastModified then<br />fso.CopyFile f, BackupPath , true<br />count = count + 1<br />ReDim Preserve arrResults(count)<br />arrResults(count) = f<br />end if<br />Else 'does not yet exist in backup<br />fso.CopyFile f, BackupPath , true<br />count = count + 1<br />ReDim Preserve arrResults(count)<br />arrResults(count) = f<br />End if 'fso.fileExists( backupfile ) then<br /><br />End Sub<br /><br />'------------------------------------------------------------------<br />'if the folder does not yet exist in the backup path, make it.<br />Sub MakeFolderPath( myfolder )<br />For x = drv to len( myFolder )<br />MyChr = mid( myFolder , x, 1)<br />if mychr = "\" then<br />xfolder = left(myfolder, x-1)<br />if not fso.folderExists ( xFolder ) then<br />fso.CreateFolder( xFolder )<br />end if<br />end if<br />Next 'x<br />if not fso.folderExists ( myFolder ) then<br />fso.CreateFolder( myFolder )<br />end if<br />End sub<br /><br />'----------------------------------------------------------------<br />'function that writes results to the log.txt<br />Sub LogResults( myText )<br />myfile = "C:\backup\Backuplog.txt"<br /><br />Set fso = CreateObject("Scripting.FileSystemObject")<br />OutFile = "C:\#temp#.txt"<br />set textstream = fso.OpenTextFile(myFile,1,true)<br />Set OutStream=fso.CreateTextFile(OutFile,True)<br /><br />OutStream.WriteLine( mytext )<br /><br />Do until textstream.AtEndOfStream 'writes existing text to temp file<br />OneLine = textstream.ReadLine<br />OutStream.WriteLine(oneline)<br />if instr(Oneline, "----------") then 'finds start of each backup log<br />logcount = logcount + 1<br />if logcount >= 5 then<br />exit do<br />end if<br />end if<br />Loop<br /><br />textstream.close<br />OutStream.Close<br />fso.CopyFile OutFile, myfile, true<br />fso.DeleteFile OutFile<br />End Sub<br /><br />'----------------------------------------------------------------<br /><br />Function ExcludeF(qF)<br />'On error resume next<br />for q = 1 to Excl_Quantity<br />if right(Excl_Data(q), 1) = "\" then<br />Excl_Data(q) = left(Excl_Data(q), len(Excl_Data(q))-1) 'removes last end if<br /><br />If lcase(qF) = lcase(Excl_Data(q)) then<br />ExcludeF = True<br />Exit Function<br />End if<br />Next 'q<br /><br />ExcludeF = False<br />End Function<br /><br />'----------------------------------------------------------------<br /><br />Function Excludefolder(qFolder)<br />'On error resume next<br />for q = 1 to Excl_Quantity<br />if right(Excl_Data(q), 1) = "\" then<br />Excl_Data(q) = left(Excl_Data(q), len(Excl_Data(q))-1) 'removes last end if<br /><br />If lcase(qFolder) = lcase(Excl_Data(q)) then<br />Excludefolder = True<br />Exit Function<br />End if<br />Next 'q<br /><br />Excludefolder = False<br />End Function<br /><br />'-------------------------------------------------------------------<br /><br />Sub DoEvents<br />'To cause script delays to allow system to still be used (doevents)<br />On error resume next<br />wscript.sleep 1 'milliseconds<br />End Sub<br />'-------------------------------------------------------------------<br /><br />Sub CheckPath<br />'To ensure the backup path is not inside a folder being backed up<br /><br />for p = 1 to Quantity<br />if not MyData(p) = "" then<br />if lcase(left(BackupPath , len(MyData(p)))) = lcase(MyData(p)) then<br />msgbox "You cannot back up a folder to a folder inside it" & vbcrlf &_<br />"because it will also backup the backup etc." &amp;amp;amp;amp;amp;amp;amp;amp;amp; vbcrlf & vbcrlf &_<br />"Please use a different BackupPath." & vbcrlf & vbcrlf &_<br />"This backup has been cancelled.", 64, "Error in BackupPath "<br />wscript.quit<br />end if 'left(BackupPath , len(MyData(p))) = MyData(p)<br />end if ' not MyData(p) = ""<br />next 'p<br /><br />End Sub<br /><br />'-------------------------------------------------------------------<br />'DISCLAIMER<br />'The Software Product is provided "as is"; I make no warranty,<br />'whether express or implied, of the merchantability of<br />'the Software Product or its fitness for any particular purpose.<br /><br />'In no circumstances will I be liable for any damage,<br />'loss of profits, loss of data, goodwill or for any indirect or<br />'consequential loss arising out of your use of the Software Product,<br />'or inability to use the Software Product, even if I<br />'have been advised of the possibility of such loss.<br /><br />'Use of our software implies your acceptance of this disclaimer.<br />'

Salve no mesmo diretório do outro script como Backup.vbs.

Crie um atalho para o PendriveMonitor no iniciar da maquina, assim ele será executado sempre que a maquina for reiniciada.

Qualquer dúvida poste um comentário.

Blog do Vinicius Canto