Backup System Registry Hives

Create backups of the system registry hives to C:\Registry_Backups folder.

Code:

:: Created By FreeBooter

@Echo Off & Cls
Echo.
Echo.
Call :IsAdmin

If Not Exist C:\Registry_Backups (md C:\Registry_Backups) Else (Goto :Skip)
If Not Exist C:\Registry_Backups\RegOld (Md C:\Registry_Backups\RegOld) Else (Goto :Skip)

:Skip

if exist C:\Registry_Backups\DEFAULT.OLD move /Y C:\Registry_Backups\DEFAULT.OLD C:\Registry_Backups\RegOld
if exist C:\Registry_Backups\SAM.OLD move /Y C:\Registry_Backups\SAM.OLD C:\Registry_Backups\RegOld
if exist C:\Registry_Backups\SECURITY.OLD move /Y C:\Registry_Backups\SECURITY.OLD C:\Registry_Backups\RegOld
if exist C:\Registry_Backups\SOFTWARE.OLD move /Y C:\Registry_Backups\SOFTWARE.OLD C:\Registry_Backups\RegOld
if exist C:\Registry_Backups\SYSTEM.OLD move /Y C:\Registry_Backups\SYSTEM.OLD C:\Registry_Backups\RegOld
if exist C:\Registry_Backups\NTUSER.OLD move /Y C:\Registry_Backups\NTUSER.OLD C:\Registry_Backups\RegOld






If Exist C:\Registry_Backups\DEFAULT Ren C:\Registry_Backups\DEFAULT DEFAULT.OLD 2>&1 > Nul
If Exist C:\Registry_Backups\SAM Ren C:\Registry_Backups\SAM  SAM.OLD 2>&1 > Nul
If Exist C:\Registry_Backups\SECURITY Ren C:\Registry_Backups\SECURITY SECURITY.OLD 2>&1 > Nul
If Exist C:\Registry_Backups\SOFTWARE Ren C:\Registry_Backups\SOFTWARE SOFTWARE.OLD 2>&1 > Nul
If Exist C:\Registry_Backups\SYSTEM Ren C:\Registry_Backups\SYSTEM SYSTEM.OLD 2>&1 > Nul
If Exist C:\Registry_Backups\NTUSER.DAT Ren C:\Registry_Backups\NTUSER.DAT NTUSER.OLD 2>&1 > Nul





REG SAVE HKU\.DEFAULT C:\Registry_Backups\DEFAULT
REG SAVE HKLM\SAM C:\Registry_Backups\SAM
REG SAVE HKLM\SECURITY C:\Registry_Backups\SECURITY
REG SAVE HKLM\SOFTWARE C:\Registry_Backups\SOFTWARE
REG SAVE HKLM\SYSTEM C:\Registry_Backups\SYSTEM
REG SAVE HKCU C:\Registry_Backups\NTUSER.DAT


:IsAdmin
Reg query "HKU\S-1-5-19\Environment"
If Not %ERRORLEVEL% EQU 0 (
 Cls & Mode CON  LINES=5 COLS=48 & Color 0C & Title - WARNING -
 Echo.
 Echo. 
 Echo  YOU MUST HAVE ADMINISTRATOR RIGHTS TO CONTINUE 
 Pause >Nul & Exit
)
Cls
Goto :EOF

Thanks for this bat file, there are some nice DOS features which I wasn't aware of.
Is there a way to obtain ADMIN RIGHTS within the code (especially since I'm the only user of my PC) ?

Also, does it buy me anything beyond "schtasks /run /i /tn "\Microsoft\Windows\Registry\RegIdleBackup" ?
Dan

Try below script.

Code:

:: Created By FreeBooter

@Echo Off & Cls
net sess>nul 2>&1||(start mshta vbscript:code(close(Execute("CreateObject(""Shell.Application"").ShellExecute""%~0"",,,""RunAs"",1"^)^)^)&exit)
Echo.
Echo.
Call :IsAdmin

If Not Exist C:\Registry_Backups (md C:\Registry_Backups) Else (Goto :Skip)
If Not Exist C:\Registry_Backups\RegOld (Md C:\Registry_Backups\RegOld) Else (Goto :Skip)

:Skip

if exist C:\Registry_Backups\DEFAULT.OLD move /Y C:\Registry_Backups\DEFAULT.OLD C:\Registry_Backups\RegOld
if exist C:\Registry_Backups\SAM.OLD move /Y C:\Registry_Backups\SAM.OLD C:\Registry_Backups\RegOld
if exist C:\Registry_Backups\SECURITY.OLD move /Y C:\Registry_Backups\SECURITY.OLD C:\Registry_Backups\RegOld
if exist C:\Registry_Backups\SOFTWARE.OLD move /Y C:\Registry_Backups\SOFTWARE.OLD C:\Registry_Backups\RegOld
if exist C:\Registry_Backups\SYSTEM.OLD move /Y C:\Registry_Backups\SYSTEM.OLD C:\Registry_Backups\RegOld
if exist C:\Registry_Backups\NTUSER.OLD move /Y C:\Registry_Backups\NTUSER.OLD C:\Registry_Backups\RegOld






If Exist C:\Registry_Backups\DEFAULT Ren C:\Registry_Backups\DEFAULT DEFAULT.OLD 2>&1 > Nul
If Exist C:\Registry_Backups\SAM Ren C:\Registry_Backups\SAM  SAM.OLD 2>&1 > Nul
If Exist C:\Registry_Backups\SECURITY Ren C:\Registry_Backups\SECURITY SECURITY.OLD 2>&1 > Nul
If Exist C:\Registry_Backups\SOFTWARE Ren C:\Registry_Backups\SOFTWARE SOFTWARE.OLD 2>&1 > Nul
If Exist C:\Registry_Backups\SYSTEM Ren C:\Registry_Backups\SYSTEM SYSTEM.OLD 2>&1 > Nul
If Exist C:\Registry_Backups\NTUSER.DAT Ren C:\Registry_Backups\NTUSER.DAT NTUSER.OLD 2>&1 > Nul





REG SAVE HKU\.DEFAULT C:\Registry_Backups\DEFAULT
REG SAVE HKLM\SAM C:\Registry_Backups\SAM
REG SAVE HKLM\SECURITY C:\Registry_Backups\SECURITY
REG SAVE HKLM\SOFTWARE C:\Registry_Backups\SOFTWARE
REG SAVE HKLM\SYSTEM C:\Registry_Backups\SYSTEM
REG SAVE HKCU C:\Registry_Backups\NTUSER.DAT


:IsAdmin
Reg query "HKU\S-1-5-19\Environment"
If Not %ERRORLEVEL% EQU 0 (
 Cls & Mode CON  LINES=5 COLS=48 & Color 0C & Title - WARNING -
 Echo.
 Echo. 
 Echo  YOU MUST HAVE ADMINISTRATOR RIGHTS TO CONTINUE 
 Pause >Nul & Exit
)
Cls
Goto :EOF

Isn't your new script also demanding that I RUN AS ADMIN like your previous one?
How is this an improvement over the Windows SCHTASKS as in post #2?

Script checks to see if you have executed script with administrative privileges.

The SCHTASKS command doesn't backup NTUSER.DAT hive and it only creates single backup while this script creates three backups.

FreeBooter said:

Script checks to see if you have executed script with administrative privileges.

The SCHTASKS command doesn't backup NTUSER.DAT hive and it only creates single backup while this script creates three backups.

Understood: I assumed if MS chose not to backup NTUSER.DAT then it wasn't all that critical, so I'll have to look into why it might be.
Thanks once again!
Dan

You are very welcome!