API tools faq
paste
Advertisement
Guest User

Auto Backup Modificado

a guest
Jun 25th, 2017
112
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Winbatch 28.08 KB | None | 0 0
raw download clone embed print report
  1. @echo off
  2. @shift /0
  3. title Auto Backup © V 1.6
  4.  
  5. ::VERIFICAR PRIVILÉGIOS DE ADM
  6. :::::::::::::::::::::::::::::OK FUNCIONA PREVILEGIOS
  7. @rem muda a cor da tela do script
  8. @color 17
  9. >nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
  10. if '%errorlevel%' NEQ '0' (
  11. echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
  12.     set "params=Administrador"
  13.     echo UAC.ShellExecute "cmd.exe", "/c ""%~s0"" %params%", "", "runas", 1 >> "%temp%\getadmin.vbs"
  14.  
  15.     "%temp%\getadmin.vbs"
  16.     del "%temp%\getadmin.vbs"
  17. )
  18. CD /D "%~dp0"
  19. :::::::::::::::::::::::::::::FIM PREVILEGIOS
  20.  
  21.  
  22. :: MODULO PARA DETERMINAS O SISTEMA OERACIONAL
  23. CALL:WIN7_XP
  24.  
  25. ::VERIFICANDO SO #SUPPORT_XP
  26. if exist "%userprofile%\menu iniciar\programas\inicializar" (
  27. ::AJUSTAR COMANDO ROBOCOPY PARA WINDOWS XP
  28. if not exist "%windir%\robocopy.exe" (move /y "#SUPPORT_XP.DLL" "%windir%" & ren "%windir%\#SUPPORT_XP.DLL" "robocopy.exe" >nul)
  29. ) else (
  30. del "#SUPPORT_XP.DLL" /q /f>nul
  31. )
  32. :: MODULO PARA CHAMAR MENDAGENS DE ADVERTÊNCIA INICIAL
  33. CALL:MENS_AGENS
  34.  
  35. :in
  36. :: MODULO PARA SABER SE JÁ FOI CRIADO ALGUM BKP ANTERIOR
  37. CALL:LOG_IN
  38. :: MODULO PARA MOSTRAR O MENU NICIAL
  39. CALL:ME_NU
  40.  
  41.  
  42. :::::::::::::::::::::::::::::::::::::::::::::::
  43.  
  44.  
  45. PAUSE
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56. :MENS_AGENS
  57. :: MENU DE ABERTURA
  58. if not exist "%appdata%\notificado.log" (
  59. CALL:MENS_AGENS2 "LEMBRETE: Esse aplicativo deve ser executado no mesmo diretório que será salvo o backup. Diretório Atual: %cd% " "vbinformation" "Backup Automático"
  60. CALL:MENS_AGENS2 "Para a restauração do backup após a formatação esse computador deverá receber o mesmo nome de usuário. USUÁRIO ATUAL: %username%" "vbexclamation" "Backup Automático"
  61. CALL:MENS_AGENS2 "IMPORTANTE: Antes de executar o backup verifique se o espaço disponível em [%cd%] é suficiente para salvar os arquivos do usuário" "vbexclamation" "Backup Automático"
  62. echo > "%appdata%\notificado.log"
  63. )
  64. GOTO:EOF
  65.  
  66.  
  67. :MENS_AGENS2
  68. echo msgbox"%~1" ,%~2, "%~3" > %temp%\msg.vbs
  69. start %temp%\msg.vbs
  70. GOTO:EOF
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79. :LOG_IN
  80. title Backup Automatico © V 1.6
  81. ::VERIFICAR LOG DE BACKUP
  82. if exist "BK_AUTO\Backup_%username%\log.inf" (
  83. cd "BK_AUTO\Backup_%username%"
  84. for /f "tokens=*" %%L in (log.inf) do (
  85. cd..
  86. cd.. & set log=%%L
  87. )
  88. ) else (set log=NÆo Executado)
  89. GOT:EOF
  90.  
  91.  
  92.  
  93. :ME_NU
  94. cls
  95. color 1b
  96. CALL :POS_TEL 53 52
  97. echo.
  98. echo   Compat¡vel com Windows XP/Vista/7/8/10
  99. echo _____________________________________________________
  100. echo  éltimo Backup: %log%
  101. echo.
  102. echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  103. echo ºººººººººººººººº BACKUP DOS ARQUIVOS ºººººººººººººººº
  104. echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  105. echo           ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  106. echo           ³ 1¯ Backup Arquivos do Usu rio ³
  107. echo           ³                               ³
  108. echo           ³ 2¯ Backup Hist¢rico do Skype  ³
  109. echo           ³                               ³
  110. echo           ³ 3¯ Backup Outlook / Live Mail ³
  111. echo           ³                               ³
  112. echo           ³ 4¯ Backup de Parti‡Æo         ³
  113. echo           ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  114. echo.
  115. echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  116. echo ººººººººººººº RESTAURA€ÇO DOS ARQUIVOS  ººººººººººººº
  117. echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  118. echo         ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
  119. echo         ³ 5¯ Restaurar Arquivos do Usu rio ³
  120. echo         ³                                  ³
  121. echo         ³ 6¯ Restaurar Hist¢rico do Skype  ³
  122. echo         ³                                  ³
  123. echo         ³ 7¯ Restaurar Outlook / Live Mail ³
  124. echo         ³                                  ³
  125. echo         ³ 8¯ Restaurar  Parti‡äes          ³
  126. echo         ³                                  ³
  127. echo         ³ [D]eletar Arquivos do Backup     ³
  128. echo         ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
  129. echo.
  130. echo _____________________________________________________
  131. echo  O BACKUP SERµ INICIADO EM: %cd%
  132. echo -----------------------------------------------------
  133. echo Sistema %W7_XP% - %ARQ_T%
  134. echo  Usu rio: %username%  
  135. echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  136. set op=E
  137. set /p op=. Op‡Æo ¯
  138. for %%a in ( 1 2 3 4 5 6 7 8 0 d ) do if /I "%%a"=="%op%" GOTO:SEG_UE
  139. CALL:MENS_AGENS2 "[%op%] opção inválida." "vbcritical" "Painel de controle"
  140. goto in
  141.  
  142. :SEG_UE
  143. if %op% == 1 goto Back1
  144. if %op% == 2 goto Back2
  145. if %op% == 3 goto Back3
  146. if %op% == 4 goto Back4
  147. if %op% == 5 goto res5
  148. if %op% == 6 goto res6
  149. if %op% == 7 goto res7
  150. if %op% == 8 goto res8
  151. if /I %op% == E goto easter_egg
  152. if /i %op% == d goto del
  153. GOTO:EOF
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.  
  162.  
  163. :Back1
  164. CALL:VER_LOCAL
  165. cls
  166. title  Backup Automatico ©
  167. color 1f
  168. CALL :POS_TEL 50 30
  169. echo.
  170. echo.
  171. echo.
  172. echo               O Backup ser  Executado
  173. echo.              
  174. echo.
  175. echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  176. CALL:MAQUINA_ESCRE "   Serao  copiado as seguintes pastas"
  177. CALL:MAQUINA_ESCRE "   Documentos - Fotos - Outlook - Imagens - %SystemDrive%\ - Contatos - "
  178. CALL:MAQUINA_ESCRE "        [PRESSIONE ¯ENTER® PARA CONTINUAR]"
  179. echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  180.  
  181. CALL:MAQUINA_ESCRE "          [V]oltar   LOCAL: %cd%"
  182. set op=0
  183. set /p op=
  184. if /i %op% == V goto in
  185.  
  186.  
  187. ::DESLIGAMENTO AUTOMATICO
  188. CALL :POS_TEL 50 13
  189. color 0b
  190. cls
  191. echo.
  192. echo ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  193. echo         [DESLIGAR COMPUTADOR AO FINALIZAR?]
  194. echo ----------Â-----------------------------Â---------
  195. echo           ³ DIGITE-¯ [S]im [ENTER]-¯NÆo ³
  196. echo           ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ          
  197. echo __________________________________________________
  198. echo.
  199. set off=N
  200. set /p off=-¯
  201.  
  202.  
  203. :: MODULO PARA CRIAÇÃO DAS PASTAS DO BKP
  204. CALL:CRI_PASTAS
  205.  
  206. :: VERIFICAR VERSÃO DO SO
  207. if "%XP_W7%"=="W70" goto w7
  208. if "%XP_W7%"=="WXP" goto xp
  209. CALL:MENS_AGENS2 "SISTEMA OPERACIONAL NÃO COMPATÍVEL" "vbexclamation" "PROCESSO NÃO PODE CONTINUAR"
  210. EXIT
  211.  
  212. :: :::::::::::::::::::::::::::::::::WINDOWS XP :::::::::::::::::::::::::::::::::::::::::::::::::
  213. :xp
  214. :: Copiar As Pastas Para a Pasta BackupAuto
  215. cd %cd%\BK_AUTO
  216. CALL :POS_TEL 40 10
  217. set destino=%cd%
  218. set destino=%destino:\= %
  219. echo %destino% > "%temp%\local.inf"
  220. for /f "tokens=1" %%G in (%temp%\local.inf) do (set destino=%%G)
  221. title Local [%destino%\]
  222.  
  223. :: BARRA DE PROGRESSO
  224. Call:carrega_BARRA 0 5 "Salvando Documentos" "0c"
  225. robocopy /e /r:0 "%userprofile%\Meus Documentos" "%cd%\Backup_%username%\Documents" >nul
  226.  
  227. Call:carrega_BARRA 6 10 "Salvando Imagens" "0c"
  228. move /y "Backup_%username%\Documents\Minhas Imagens\*" "Backup_%username%\Pictures" >nul
  229. rd "Backup_%username%\Documents\Minhas Imagens" /q >nul
  230.  
  231. Call:carrega_BARRA 11 20 "Salvando Desktop" "0c"
  232. robocopy /e /r:0 "%userprofile%\Desktop" "%cd%\Backup_%username%\Desktop" >nul
  233.  
  234. :: Deletar atalhos da pasta desktop backup
  235. rd "Backup_%username%\Desktop\*.lnk" /q >nul
  236.  
  237.  
  238. Call:carrega_BARRA 21 35 "Salvando V¡deos" "06"
  239. move /y "Backup_%username%\Documents\Meus V¡deos\*" "Backup_%username%\Videos" >nul
  240. rd "Backup_%username%\Documents\Meus V¡deos" /q >nul
  241.  
  242.  
  243. Call:carrega_BARRA 36 60 "Salvando M£sicas" "0e"
  244. move /y "Backup_%username%\Documents\Minhas M£sicas\*" "Backup_%username%\Music" >nul
  245. rd "Backup_%username%\Documents\Minhas M£sicas" /q >nul
  246.  
  247. Call:carrega_BARRA 61 70 "Salvando Downloads" "02"
  248. move /y "Backup_%username%\Documents\Downloads\*" "Backup_%username%\Downloads" >nul
  249. rd "Backup_%username%\Documents\Downloads" /q >nul
  250.  
  251. if exist "%userprofile%\Dropbox" (
  252. md "Backup_%username%\Dropbox"
  253. Call:carrega_BARRA 71 79 "Salvando Dropbox" "02"
  254. robocopy /e /r:0 "%userprofile%\Dropbox" "%cd%\Backup_%username%\Dropbox" >nul
  255. )
  256.  
  257. if exist "%userprofile%\Google Drive" (
  258. md "Backup_%username%\Google Drive"
  259. Call:carrega_BARRA 71 79 "Salvando Google Drive" "02"
  260. robocopy /e /r:0 "%userprofile%\Google Drive" "%cd%\Backup_%username%\Google Drive" >nul
  261. )
  262.  
  263. if exist "%userprofile%\SkyDrive" (
  264. md "Backup_%username%\SkyDrive"
  265. Call:carrega_BARRA 71 79 "Salvando SkyDrive" "02"
  266. robocopy /e /r:0 "%userprofile%\SkyDrive" "%cd%\Backup_%username%\SkyDrive" >nul
  267. )
  268.  
  269. if exist "%userprofile%\OneDrive" (
  270. md "Backup_%username%\OneDrive"
  271. Call:carrega_BARRA 71 79 "Salvando OneDrive" "02"
  272. robocopy /e /r:0 "%userprofile%\OneDrive" "%cd%\Backup_%username%\OneDrive" >nul
  273. )
  274.  
  275. if exist "%userprofile%\MediaFire" (
  276. md "Backup_%username%\MediaFire"
  277. Call:carrega_BARRA 71 79 "Salvando OneDrive" "02"
  278. robocopy /e /r:0 "%userprofile%\MediaFire" "%cd%\Backup_%username%\MediaFire" >nul
  279. )
  280.  
  281. ::Verificar se skype esta instalado xp
  282. if exist "%userprofile%\Dados de aplicativos\Skype" (
  283. Call:carrega_BARRA 71 79 "Salvando Skype" "0a"
  284. if not exist "BK_AUTO\Backup_%username%\Skype" (md "BK_AUTO\Backup_%username%\Skype")
  285. cd BK_AUTO
  286. xcopy /s /y /c /r "%userprofile%\Dados de aplicativos\Skype" "%cd%\Backup_%username%\Skype"
  287. )
  288.  
  289. :: REGISTRANDO DATA E HORA
  290. date /t>"%temp%\DT.inf"
  291. time /t>"%temp%\TM.inf"
  292. for /f "tokens=*" %%D in (%temp%\DT.inf) do (set dt=%%D)
  293. for /f "tokens=*" %%T in (%temp%\TM.inf) do (set tm=%%T)
  294. echo [DATA: %dt% HORA: %tm%] > "Backup_%username%\log.inf"
  295.  
  296. Call:carrega_BARRA 80 100 "Concluindo o processo" "03"
  297.  
  298. :: ALERTA SONORO
  299. echo 
  300. ::CHECAR DESLIGAMENTO AUTOMATICO
  301. if /i %off% == S (shutdown -s -t 0 -f)
  302.  
  303. CALL:MENS_AGENS2 "Arquivos do usuário: %username% salvo com sucesso!" vbinformation "Backup Automático"
  304. cd.. & goto in
  305.  
  306.  
  307.  
  308. :: ::::cd %cd%\BK_AUTO::::::::::::::::::::::::::::::    WINDOWS VISTA/ 7/ 8
  309. :w7
  310. Set LogFile=%temp%\Log_De_Copias.txt
  311. :: Copiar As Pastas Para a Pasta BackupAuto
  312. CALL :POS_TEL 40 10
  313. set destino=%cd%
  314. set destino=%destino:\= %
  315. echo %destino% > "%temp%\local.inf"
  316. for /f "tokens=1" %%G in (%temp%\local.inf) do (set destino=%%G)
  317. title Local [%destino%\]
  318. :: BARRA DE PROGRESSO
  319. cd %cd%\BK_AUTO
  320. Call:carrega_BARRA 0 5 "Salvando Imagens" "04"
  321. robocopy /e /r:0 "%userprofile%\Pictures" "%cd%\Backup_%username%\Pictures" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>%cd%\Backup_%username%\Log_Copias.txt
  322.  
  323. Call:carrega_BARRA 6 13 "Salvando Favoritos" "04"
  324. robocopy /e /r:0 "%userprofile%\Favorites" "%cd%\Backup_%username%\Favorites" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  325.  
  326. Call:carrega_BARRA 14 27 "Salvando Desktop" "06"
  327. robocopy /e /r:0 "%userprofile%\Desktop" "%cd%\Backup_%username%\Desktop" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  328.  
  329. :: Deletar atalhos da pasta desktop backup
  330. del "Backup_%username%\Desktop\*.lnk" /s /q /f >nul
  331.  
  332. Call:carrega_BARRA 28 36 "Salvando Documentos" "06"
  333. robocopy /e /r:0 "%userprofile%\Documents" "%cd%\Backup_%username%\Documents" /XD "%userprofile%\Documents\Arquivos do Outlook" "%userprofile%\Meus Documentos\Arquivos do Outlook" "%userprofile%\Meus Documentos\MEGA"/log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  334.  
  335. Call:carrega_BARRA 37 50 "Salvando Videos" "0e"
  336. robocopy /e /r:0 "%userprofile%\Videos" "%cd%\Backup_%username%\Videos" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  337.  
  338. Call:carrega_BARRA 51 67 "Salvando Contatos" "0e"
  339. robocopy /e /r:0 "%userprofile%\Contacts" "%cd%\Backup_%username%\Contacts" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  340.  
  341. Call:carrega_BARRA 68 80 "Salvando M£sicas" "02"
  342. robocopy /e /r:0 "%userprofile%\Music" "%cd%\Backup_%username%\Music" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  343.  
  344. Call:carrega_BARRA 81 93 "Salvando Downloads" "02"
  345. robocopy /e /r:0 "%userprofile%\Downloads" "%cd%\Backup_%username%\Downloads" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  346.  
  347. if exist "%userprofile%\Dropbox" (
  348. md "Backup_%username%\Dropbox"
  349. Call:carrega_BARRA 94 95 "Salvando Dropbox" "02"
  350. robocopy /e /r:0 "%userprofile%\Dropbox" "%cd%\Backup_%username%\Dropbox" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  351. )
  352.  
  353. if exist "%userprofile%\Google Drive" (
  354. md "Backup_%username%\Google Drive"
  355. Call:carrega_BARRA 96 97 "Salvando Google Drive" "02"
  356. robocopy /e /r:0 "%userprofile%\Google Drive" "%cd%\Backup_%username%\Google Drive" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  357. )
  358.  
  359. if exist "%userprofile%\SkyDrive" (
  360. md "Backup_%username%\SkyDrive"
  361. Call:carrega_BARRA 96 97 "Salvando SkyDrive" "02"
  362. robocopy /e /r:0 "%userprofile%\SkyDrive" "%cd%\Backup_%username%\SkyDrive" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  363. )
  364.  
  365.  
  366. if exist "%userprofile%\OneDrive" (
  367. md "Backup_%username%\OneDrive"
  368. Call:carrega_BARRA 96 97 "Salvando OneDrive" "02"
  369. robocopy /e /r:0 "%userprofile%\OneDrive" "%cd%\Backup_%username%\OneDrive" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  370. )
  371.  
  372. if exist "%userprofile%\MediaFire" (
  373. md "Backup_%username%\MediaFire"
  374. Call:carrega_BARRA 96 97 "Salvando MediaFire" "02"
  375. robocopy /e /r:0 "%userprofile%\MediaFire" "%cd%\Backup_%username%\MediaFire" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  376. )
  377.  
  378. if exist "%userprofile%\Documents\MEGA" (
  379. md "Backup_%username%\Mega"
  380. Call:carrega_BARRA 96 97 "Salvando Mega" "02"
  381. robocopy /e /r:0 "%userprofile%\Documents\MEGA" "%cd%\Backup_%username%\Mega" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  382. )
  383.  
  384.  
  385. Call:carrega_BARRA 93 97 "Salvando Arquivos Extras" "02"
  386.  
  387. if not exist "Backup_%username%\Arquivos Extras" (md "Backup_%username%\Arquivos Extras")
  388. robocopy /e /r:0 "%userprofile%" "%cd%\Backup_%username%\Arquivos Extras" /xd "Videos" "Links" "Tracing" "Searches" "Intel" "Contacts" "aTubeCatcher" "Favorites" "Documents" "Downloads" "Music" "Desktop" "SkyDrive" "MediaFire" "Google Drive" "OneDrive" "Dropbox" "Pictures" "AppData" "Ambiente de ImpressÆo" "Ambiente de Rede" "Cookies" "Dados de Aplicativos" "Menu Iniciar" "Modelos" "SendTo" "Meus Documentos" "Recent" ".thumbnails" ".gimp-2.8" "Configura‡äes Locais" /xf "*.LOG2" "*.LOG1" "*.DAT" "*.ini" "*.regtrans-ms" "*.blf" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  389.  
  390.  
  391. ::Verificar se skype esta instalado
  392.  
  393. if exist "%appdata%\Skype" (
  394. Call:carrega_BARRA 97 98 "Salvando Skype" "0a"
  395. if not exist "BK_AUTO\Backup_%username%\Skype" (md "BK_AUTO\Backup_%username%\Skype")
  396. robocopy /e /r:0 "%appdata%\Skype" "%cd%\Backup_%username%\Skype" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  397. )
  398.  
  399.  
  400.  
  401. :::::::::::::
  402. :: Criar As Pastas Para Fazer o Backup live mail
  403.  
  404. if exist "%localappdata%\Microsoft\Windows Live Mail" (
  405. if not exist "BK_AUTO\Backup_%username%\Back_Live_Mail" (md "BK_AUTO\Backup_%username%\Back_Live_Mail")
  406. if not exist "BK_AUTO\Backup_%username%\Back_Live_Mail\Live_Mail" (md "BK_AUTO\Backup_%username%\Back_Live_Mail\Live_Mail")
  407. if not exist "BK_AUTO\Backup_%username%\Back_Live_Mail\Live" (md "BK_AUTO\Backup_%username%\Back_Live_Mail\Live")
  408. Call:carrega_BARRA 97 98 "Salvando live mail" "0a"
  409. robocopy /e /eta /r:0 "%localappdata%\Microsoft\Windows Live Mail" "%cd%\Backup_%username%\Back_Live_Mail\Live_Mail" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  410. Call:carrega_BARRA 97 98 "Salvando contatos do live mail" "0a"
  411. robocopy /e /eta /r:0 "%localappdata%\Microsoft\Windows Live" "%cd%\Backup_%username%\Back_Live_Mail\Live" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  412. start /b /wait regedit /e "%cd%\Backup_%username%\Back_Live_Mail\Live_Mail.reg" "HKEY_CURRENT_USER\Software\Microsoft\Windows Live Mail"
  413. )
  414.  
  415. ::BACKUP OUTLOOK
  416. :outlook
  417.  
  418. if exist "%appdata%\Microsoft\Outlook" (
  419. rem OUTLOOK 2010/2013
  420. call:killa_Outlook
  421. Call:carrega_BARRA 97 98 "Salvando Outlook" "0a"
  422. for /l %%a in (8,1,20) do (call:versao_outlook %%a)
  423. if not exist "Backup_%username%\BackOutlook\Outlook" (md "Backup_%username%\BackOutlook\Outlook")
  424. if not exist "Backup_%username%\BackOutlook" (md "Backup_%username%\BackOutlook")
  425.  
  426. start /b /wait regedit /e "%cd%\Backup_%username%\BackOutlook\Profiles2010.reg" "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
  427. start /b /wait regedit /e "%cd%\Backup_%username%\BackOutlook\Profiles%OffiVer%.reg" "HKEY_CURRENT_USER\Software\Microsoft\Office\%OffiVer%\Outlook\Profiles"
  428. robocopy /e /eta /r:0 "%localappdata%\Microsoft\Outlook" "%cd%\Backup_%username%\BackOutlook\Outlook" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  429. if exist "%userprofile%\Documents\Arquivos do Outlook" (
  430. if not exist "Backup_%username%\BackOutlook\Arquivos do Outlook" (md "Backup_%username%\BackOutlook\Arquivos do Outlook")
  431.  
  432. robocopy /e /eta /r:0 "%userprofile%\Documents\Arquivos do Outlook" "%cd%\Backup_%username%\BackOutlook\Arquivos do Outlook" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  433. )
  434.  
  435. if exist "%userprofile%\Meus Documentos\Arquivos do Outlook" (
  436. if not exist "Backup_%username%\BackOutlook\Arquivos do Outlook" (md "Backup_%username%\BackOutlook\Arquivos do Outlook")
  437. robocopy /e /eta /r:0 "%userprofile%\Meus Documentos\Arquivos do Outlook" "%cd%\Backup_%username%\BackOutlook\Arquivos do Outlook" /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  438. )
  439. PUSHD "%cd%\Backup_%username%\BackOutlook\Arquivos do Outlook"
  440. call:geracvs
  441. POPD
  442. )
  443.  
  444.  
  445.  
  446. :: copiandos arquivos de c:
  447. if not exist "Backup_%username%\Drive_C" (md "Backup_%username%\Drive_C")
  448. robocopy /e /r:0 "%SystemDrive%\" "Backup_%username%\Drive_C" /XD "%SystemDrive%\Temp" "%SystemDrive%\Users" "%USERPROFILE%" "%windir%" "%ProgramFiles%" "%SystemDrive%\$Recycle.Bin" "%ProgramFiles(x86)%" "%SystemDrive%\Recovery"/XF pagefile.sys hiberfil.sys /log:%LogFile% /NP /TEE>nul& tYPE %LogFile%>>%cd%\Backup_%username%\Log_Copias.txt
  449.  
  450.  
  451. :::::::::::::
  452.  
  453.  
  454.  
  455.  
  456.  
  457.  
  458.  
  459.  
  460.  
  461.  
  462.  
  463.  
  464.  
  465.  
  466.  
  467.  
  468. ::ALERTA SONORO
  469. echo 
  470.  
  471. :: REGISTRANDO DATA E HORA
  472. date /t>"%temp%\DT.inf"
  473. time /t>"%temp%\TM.inf"
  474. for /f "tokens=*" %%D in (%temp%\DT.inf) do (set dt=%%D)
  475. for /f "tokens=*" %%T in (%temp%\TM.inf) do (set tm=%%T)
  476. echo [DATA: %dt% HORA: %tm%] > "Backup_%username%\log.inf"
  477.  
  478. Call:carrega_BARRA 98 100 "SBackup Concluido" "02"
  479.  
  480.  
  481.  
  482. mode 40, 7
  483. :: ALERTA SONORO
  484. echo 
  485. ::CHECAR DESLIGAMENTO AUTOMATICO
  486. if /i %off% == S (shutdown -s -t 0 -f)
  487.  
  488. echo msgbox"Arquivos do usuário: %username% salvo com sucesso!" ,vbinformation, "Backup Automático" > %temp%\msg.vbs
  489. start /wait %temp%\msg.vbs
  490. del /q /s Log_De_Copias.txt >nul
  491. cd.. & goto in
  492.  
  493.  
  494.  
  495.  
  496.  
  497.  
  498.  
  499. :killa_Outlook
  500.     tasklist /FI "IMAGENAME eq OUTLOOK.EXE" | find /i "OUTLOOK.EXE" > nul
  501.         if not "%ERRORLEVEL%"=="1" taskkill /f /im "outlook.exe" & ping -n 2 127.0.0.1 >NUL & GOTO killa_Outlook
  502.         if "%ERRORLEVEL%"=="0" goto:eof
  503. goto:eof
  504.  
  505.  
  506.  
  507. :versao_outlook
  508. reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\%1.0\Common\LanguageResources /v SKULanguage>nul 2>nul
  509. if NOT "%errorlevel%"=="1" (
  510. set "OffiVer=%1.0"
  511. )
  512. goto:eof
  513.  
  514.  
  515. :geracvs
  516. (
  517. Echo. Dim olkApp, olkNS, olkContacts, olkContact, objFSO, objFile
  518. Echo. Set objFSO = CreateObject("Scripting.FileSystemObject"^)
  519. Echo. strFile = "Catalogo_de_contatos_do_Outlook.csv"
  520. Echo. const ForAppending = 8
  521. Echo. set objFile = objFSO.OpenTextFile(strFile, ForAppending, True^)
  522. Echo. Set olkApp = CreateObject("Outlook.Application"^)
  523. Echo. Set olkNS = olkApp.GetNamespace("MAPI"^)
  524. Echo. olkNS.Logon
  525. Echo. Set olkContacts = olkNS.GetDefaultFolder(10^)
  526. Echo. For Each olkContact In olkContacts.Items
  527. Echo. x = olkContact.class
  528. Echo. If olkContact.Class = 40 Then
  529. Echo. 'This is to only copy contacts to which there is an email address
  530. Echo. if Trim(olkContact.Email1Address^) ^<^> "" then
  531. Echo. objFile.WriteLine Chr(34^) ^& olkContact.FullName ^& Chr(34^) ^& "," ^& Chr(34^) ^& olkContact.Email1Address ^& Chr(34^)
  532. Echo. end if
  533. Echo. End If
  534. Echo. Next
  535. Echo. Set olkContact = Nothing
  536. Echo. Set olkContacts = Nothing
  537. Echo. olkNS.Logoff
  538. Echo. Set olkNS = Nothing
  539. Echo. Set olkApp = Nothing
  540. Echo. objFile.Close
  541. Echo. Set objFile = Nothing
  542. Echo. Set objFSO = Nothing
  543. )>"%temp%\msg.vbs"
  544. start "%temp%\msg.vbs"
  545. goto:eof
  546.  
  547.  
  548.  
  549.  
  550. :VER_LOCAL
  551. ::VERIFICAR DIRETORIO, ISSO IMPEDE QUE O PROGRAMA GERE PASTAS INFINITAS
  552. ::LOCAL  ATUAL
  553. echo %cd% > "%temp%\local.inf"
  554. for /f %%D in (%temp%\local.inf) do (set local=%%D)
  555. set local=%local:\= %
  556. echo %local% > "%temp%\local.inf"
  557. for /f "tokens=1" %%T in (%temp%\local.inf) do (set local=%%T)
  558. ::PASTA DE USUARIO
  559. echo %userprofile% > "%temp%\user.inf"
  560. for /f %%A in (%temp%\user.inf) do (set user=%%A)
  561. set user=%user:\= %
  562. echo %user% > "%temp%\user.inf"
  563. for /f "tokens=1" %%A in (%temp%\user.inf) do (set user=%%A)
  564.  
  565. if %local% == %user% (
  566. CALL:MENS_AGENS2 "Você não pode executar o programa dentro da unidade [%user%] onde esta instalado o sistema, execute o programa em uma partição diferente." "vbexclamation" "Backup Automático"
  567. goto in
  568. )
  569. GOTO:EOF
  570.  
  571.  
  572.  
  573.  
  574. :POS_TEL
  575. SET C_L=%1
  576. SET L_N=%2
  577. if not defined COLS SET COLS=14
  578. if not defined LINES SET LINES=1
  579. IF %COLS% GTR %C_L% (SET CONTAC=-1) ELSE (SET CONTAC=1)
  580. IF %LINES% GTR %L_N% (SET CONTAL=-1) ELSE (SET CONTAL=1)
  581. FOR /L %%W IN (%COLS%,%CONTAC%,%C_L%) DO SET COLS=%%W&MODE CON:LINES=%LINES% COLS=%%W
  582. FOR /L %%W IN (%LINES%,%CONTAL%,%L_N%) DO SET LINES=%%W&MODE CON:COLS=%COLS% LINES=%%W
  583. GOTO:EOF
  584.  
  585.  
  586.  
  587. :CRI_PASTAS
  588. :: Criar As Pastas Para Fazer o Backup
  589. if not exist "BK_AUTO" (md "BK_AUTO")
  590. cd %cd%\BK_AUTO
  591. if not exist "Backup_%username%" (md "Backup_%username%")
  592. if not exist "Backup_%username%\Pictures" (md "Backup_%username%\Pictures")
  593. if not exist "Backup_%username%\Favorites" (md "Backup_%username%\Favorites")
  594. if not exist "Backup_%username%\Documents" (md "Backup_%username%\Documents")
  595. if not exist "Backup_%username%\Videos" (md "Backup_%username%\Videos")
  596. if not exist "Backup_%username%\Contacts" (md "Backup_%username%\Contacts")
  597. if not exist "Backup_%username%\Music" (md "Backup_%username%\Music")
  598. if not exist "Backup_%username%\Downloads" (md "Backup_%username%\Downloads")
  599. if not exist "Backup_%username%\Desktop" (md "Backup_%username%\Desktop")
  600.  
  601. GOTO:EOF
  602.  
  603. :WIN7_XP
  604. for /f "tokens=4-5 delims=. " %%i in ('ver') do set VERSION=%%i.%%j
  605. if "%version%" == "10.0" SET W7_XP=Windows 10&SET "XP_W7=W70"
  606. if "%version%" == "6.3" SET W7_XP=Windows 8.1&SET "XP_W7=W70"
  607. if "%version%" == "6.2" SET W7_XP=Windows 8.0&SET "XP_W7=W70"
  608. if "%version%" == "6.1" SET W7_XP=Windows 7&SET "XP_W7=W70"
  609. if "%version%" == "6.0" SET W7_XP=Windows Vista&SET "XP_W7=W70"
  610. if "%version%" == "5.2" SET W7_XP=Windows XP x64&SET "XP_W7=WXP"
  611. if "%version%" == "5.1" SET W7_XP=Windows XP&SET "XP_W7=WXP"
  612. if "%version%" == "5.0" SET W7_XP=Windows 2000&SET "XP_W7=WXP"
  613. if "%version%" == "4.10" SET W7_XP=Windows 98&SET "XP_W7=WXP"
  614. if "%PROCESSOR_ARCHITECTURE%"=="AMD64" (
  615. SET ARQ_T=64 BIT
  616. ) else (
  617. SET ARQ_T=32 BIT
  618. )
  619. GOTO:EOF
  620.  
  621.  
  622.  
  623.  
  624.  
  625.  
  626. :carrega_BARRA
  627.  
  628. :::: Call:carrega_BARRA INICIO FIM "TITULO" "COR"
  629. :::: Call:carrega_BARRA 0 100 "Exemplo 8" "03"
  630. :::: Call:carrega_BARRA 10 30 "Iniciando A Instalacao Do Ofice" "02"
  631. :::: Call:carrega_BARRA 30 50 "Instalando Aplicativos Excel" "05"
  632. :::: Call:carrega_BARRA 50 100 "Instalando Aplicativos Word" "09
  633.  
  634. SET COLORIR=
  635. Set VER_5=%3
  636. Set VER_5=%VER_5:"= %
  637. Set Load=%1
  638. SET COLORIR=%~4
  639. IF DEFINED COLORIR Color %COLORIR%
  640. set Muda=ON
  641.  
  642. :loading1
  643. if %Muda%==ON (
  644. set X_M=***
  645. set Muda=OFF
  646. goto Pula_Pula
  647. )
  648. if %Muda%==OFF (
  649. set "X_M=   "
  650. set Muda=ON
  651. )
  652. :Pula_Pula
  653. Set /a Load=%Load%+1
  654.  If %Load% Equ 3 Set "Load2=                                  º \"
  655.  If %Load% Equ 6 Set "Load2=Û°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°º ³"
  656.  If %Load% Equ 9 Set "Load2=ÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°º /"
  657. If %Load% Equ 12 Set "Load2=ÛÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°º Ä"
  658. If %Load% Equ 15 Set "Load2=ÛÛÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°º \"
  659. If %Load% Equ 18 Set "Load2=ÛÛÛÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°°°º ³"
  660. If %Load% Equ 21 Set "Load2=ÛÛÛÛÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°°º /"
  661. If %Load% Equ 24 Set "Load2=ÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°°º Ä"
  662. If %Load% Equ 27 Set "Load2=ÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°°º \"
  663. If %Load% Equ 30 Set "Load2=ÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°°°°°°°°°°°º ³"
  664. If %Load% Equ 33 Set "Load2=ÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°°°°°°°°°°º /"
  665. If %Load% Equ 36 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°°°°°°°°°º Ä"
  666. If %Load% Equ 39 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°°°°°°°°º \"
  667. If %Load% Equ 42 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°°°°°°°º ³"
  668. If %Load% Equ 45 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°°°°°º /"
  669. If %Load% Equ 48 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°°°°º Ä"
  670. If %Load% Equ 51 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°°°º \"
  671. If %Load% Equ 54 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°°º ³"
  672. If %Load% Equ 57 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°°º /"
  673. If %Load% Equ 60 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°°º Ä"
  674. If %Load% Equ 63 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°°º \"
  675. If %Load% Equ 66 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°°º ³"
  676. If %Load% Equ 69 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°°º /"
  677. If %Load% Equ 71 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°°º Ä"
  678. If %Load% Equ 74 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°°º \"
  679. If %Load% Equ 77 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°°º ³"
  680. If %Load% Equ 80 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°°º /"
  681. If %Load% Equ 83 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°°º Ä"
  682. If %Load% Equ 86 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°°º \"
  683. If %Load% Equ 89 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°°º ³"
  684. If %Load% Equ 93 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°°º /"
  685. If %Load% Equ 96 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°°º Ä"
  686. If %Load% Equ 99 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ°º \"
  687. If %Load% Equ 100 Set "Load2=ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛº ³"
  688.  
  689.  
  690. Cls
  691. TITLE %VER_5% %Load% %% %Load2:~-1%
  692. Echo.
  693. Echo  %VER_5%
  694. Echo.
  695. ECHO   %X_M% Carregando... Aguarde...%X_M%
  696. echo  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
  697. echo  º%Load2:~0,-1%
  698. Echo  º%Load2%
  699. echo  º%Load2:~0,-1%
  700. echo  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
  701. Ping -N 2 Localhost > Nul
  702. If %Load% Equ %2 Goto:eof
  703. Goto Loading1
  704.  
  705. :MAQUINA_ESCRE
  706. (
  707. echo On Error Resume Next
  708. echo dim txt
  709. echo txt="%~1"
  710. echo for i=1 to len(txt^)
  711. echo  wscript.sleep 70
  712. echo  wscript.StdOut.Write mid(txt,i,1^)
  713. echo next
  714. echo wscript.echo ""
  715. )>%temp%\ef.vbs
  716. cscript /nologo %temp%\ef.vbs
  717. GOTO:EOF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!