Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 3 sur 3
Aller à la page: <  1, 2, 3
Regrouper ces connaissances
Auteur Message
Répondre en citant
Message Regrouper ces connaissances 
Revue du message précédent :

Hey Pierrot, j'ai vu que tu as posté le code 0.9 avec la nouvelle option enable/disable autoplay ... SUPER ... ^^ je l'ai reluqué dans tous les sens, et j'ai réparé une petite erreur à la 04 + amélioration de la 03, au final, voilà mon code, n'hésitez pas à le revérifier ...
Code:

@echo off
title Registry Tool V0.9
color 1f
mode con cols=71 lines=24
 
 
if exist "%windir%\System32\reg.*" goto regdetected
cls
echo.
echo   ┌──────────────────┐
echo   │  Reg Undetected  │
echo   └──────────────────┘
echo.
echo   Command Reg [Not found]
echo.
echo   Please, download the command reg.[exe]
echo   and place this file in %windir%\System32\
echo.
echo   If the problem persists, contact a developer.
echo.
echo Press any key...
pause >nul
:regdetected
 
 
if exist "%windir%\RegBackUp" goto backupdetected
cls
echo.
echo   ┌──────────────────┐
echo   │    Reg BackUp    │
echo   └──────────────────┘
echo.
echo   Loading, backup in progress...
md "%windir%\RegBackUp"
reg export HKLM "%windir%\RegBackUp\HKLM.reg"
reg export HKCR "%windir%\RegBackUp\HKCR.reg"
reg export HKCU "%windir%\RegBackUp\HKCU.reg"
reg export HKCC "%windir%\RegBackUp\HKCC.reg"
reg export HKU "%windir%\RegBackUp\HKU.reg"
echo.
echo   Backup in : "%windir%\RegBackUp\"
echo.
echo Press any key...
pause >nul
:backupdetected
 
 
:menu
set crt=enu
cls
echo.
echo                     ╔═════════════════════════════╗
echo                     ║                             ║
echo                     ║        Registry Tool        ║
echo                     ║                             ║
echo                     ╚═════════════════════════════╝
echo.
echo.
echo   ┌────┬──────────────┐  ┌────┬──────────────┐  ┌────┬──────────────┐
echo   │ 01 │   IP Proxy   │  │ 02 │ Hide Desktop │  │ 03 │ Optimize All │
echo   ├────┼──────────────┤  ├────┼──────────────┤  ├────┼──────────────┤
echo   │ 04 │  Auto-Logon  │  │ 05 │  USB Detect  │  │ 06 │  CleanUpReg  │
echo   ├────┼──────────────┤  ├────┼──────────────┤  ├────┼──────────────┤
echo   │ 07 │ Menu Context │  │ 08 │  Reg Backup  │  │ 09 │ Startup Soft │
echo   ├────┼──────────────┤  ├────┼──────────────┤  ├────┼──────────────┤
echo   │ 10 │    Folder    │  │ 11 │ Menu Taskbar │  │ 12 │ USB Autoplay │
echo   ├────┼──────────────┤  ├────┼──────────────┤  ├────┼──────────────┤
echo   │ 13 │              │  │ 14 │              │  │ 15 │              │
echo   └────┴──────────────┘  └────┴──────────────┘  └────┴──────────────┘
echo.
echo.
set /p crt=Choice :
goto m%crt%
 
 
:m0
cls
echo.
echo   ┌────┬──────────────┐   Version : 0.9
echo   │ 00 │ RegistryTool │   Modify : option 12
echo   └────┴──────────────┘   The 31/03/2013 at 21:10
echo.
echo  Create by : Pierre JOUSSAIN
echo  Create for : Batch.xoo.it
echo.
echo  Developed by :
echo    -Raphael Berteaud [^</Troud>] ==== 6 commands
echo    -Unknown [ytrezAn] ==== 1 command
echo    -Pierre JOUSSAIN [Pierrot] ==== 5 commands
echo.
echo Press any key...
pause >nul
goto menu
 
:m1
cls
set oot=1
echo.
echo   ┌────┬──────────────┐   Command by : Pierre JOUSSAIN
echo   │ 01 │   IP Proxy   │   The 15/03/2012 at 19:29
echo   └────┴──────────────┘   Note : for Batch.xoo.it
echo.
echo   ┌────┬──────────────────────┐  ┌────┬──────────────────────┐
echo   │ 01 │     Desactivate      │  │ 02 │       Activate       │
echo   └────┴──────────────────────┘  └────┴──────────────────────┘
echo.
set /p oot=1 or 2 :
set /a oot=%oot%-1
if %oot% equ 0 set crt=ProxyOFF
if %oot% equ 0 goto oot
echo.
echo.
echo   Please, choose an IP adress (ex : 255.18.42.20)
echo.
set /p crt=IP :
:oot
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyenable /t Reg_Dword /d "%oot%" /f
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyserver /t Reg_SZ /d "%crt%" /f
goto result
 
 
:m2
cls
echo.
echo   ┌────┬──────────────┐   Command by : Raphael Berteaud
echo   │ 02 │ Hide Desktop │   The 15/03/2012 at 17:31
echo   └────┴──────────────┘   Note : for exemple
echo.
echo   ┌────┬──────────────────────┐  ┌────┬──────────────────────┐
echo   │ 01 │  Hide desktop icons  │  │ 02 │  Show desktop icons  │
echo   └────┴──────────────────────┘  └────┴──────────────────────┘
echo.     
set /p crt=1 or 2 :
if %crt% equ 1 goto addnodesk
if %crt% equ 2 goto delnodesk
goto m2
 
:addnodesk
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoDesktop /t REG_DWORD /d 1 /f
taskkill /f /im explorer.exe >nul
explorer
goto result
 
:delnodesk
reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoDesktop /f
taskkill /f /im explorer.exe >nul
explorer
goto result
 
 
:m3
cls
echo.
echo   ┌────┬──────────────┐   Command by : Raphael Berteaud
echo   │ 03 │ Optimize All │   The 15/03/2012 at 17:35
echo   └────┴──────────────┘   Note : for exemple
echo.
echo   ----^> Optimize StartUp [Raphael Berteaud]
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction /v OptimizeComplete /t REG_SZ /d no /f
echo   ----^> Optimize Windows [Raphael Berteaud]
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer /v AlwaysUnloadDll /t REG_DWORD /d 1 /f
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v SeparateProcess /t REG_DWORD /d 1 /f
echo   ----^> Optimize extinction [Raphael Berteaud]
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" /v WaitToKillServiceTimeout /t REG_SZ /d 1000 /f
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v AutoEndTasks /t REG_SZ /d 1 /f
echo.
echo You should Restart your computer to apply changes.
set /p crt=Would you like to restart now ? (Y/N) :
if %crt% equ Y shutdown -f -r -t 00
goto result
 
 
:m4
set crt=1
cls
echo.
echo   ┌────┬──────────────┐   Command by : Raphael Berteaud
echo   │ 04 │  Auto-Logon  │   The 16/03/2012 at 17:39
echo   └────┴──────────────┘   Note : Unknown
echo.
echo   ┌────┬───────────────────────┐  ┌────┬──────────────────────┐
echo   │ 01 │ Desactivate AutoLogon │  │ 02 │  Activate AutoLogon  │
echo   └────┴───────────────────────┘  └────┴──────────────────────┘
echo.
echo   Auto logon, your session
echo.
set /p crt=1 or 2 :
set /a crt=%crt%-1
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AutoAdminLogon /t REG_SZ /d %crt% /f
if %crt% EQU 0 (
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultusername" /f >nul 2>nul
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultpassword" /f >nul 2>nul
set /a crt=%crt%+1
goto result
)
set /a crt=%crt%+1
echo.
set /p user=Which session do you want to use as default ? :
echo.
set /p password=Password :
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultusername /t REG_SZ /d %user% /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultpassword /t REG_SZ /d %password% /f
 
echo Now you'll be loged as %user% on every startup.
echo.
echo Note : If user name or password are wrong, the operation wont work !
goto result
 
 
:m5
cls
echo.
echo   ┌────┬──────────────┐   Command by : Pierre JOUSSAIN
echo   │ 05 │  USB Detect  │   The 16/03/2012 at 21:25
echo   └────┴──────────────┘   Note : for %username%
echo.
echo   ┌────┬────────────────────────┐  ┌────┬───────────────────────┐
echo   │ 01 │   Disable USB Detect   │  │ 02 │   Enable USB Detect   │
echo   └────┴────────────────────────┘  └────┴───────────────────────┘
echo.
set /p crt=1 or 2 :
echo.
if %crt% equ 1 reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR" /v Start /t Reg_Dword /d "4" /f
if %crt% equ 2 reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR" /v Start /t Reg_Dword /d "3" /f
echo.
goto result
 
 
:m6
cls
echo.
echo   ┌────┬──────────────┐   Command by : ytrezAn
echo   │ 05 │  CleanUpReg  │   The 16/03/2012 at 20:50
echo   └────┴──────────────┘   Note : Unknown
echo.
echo.
echo   ----^> Delete traces [ytrezAn]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f
echo   ----^> Delete traces [Pierre JOUSSAIN]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f
echo.
goto result
 
 
:m7
set crt=1
cls
echo.
echo   ┌────┬──────────────┐   Command by : Raphael Berteaud
echo   │ 04 │ Menu Context │   The 17/03/2012 at 21:00
echo   └────┴──────────────┘   Note : Unknown
echo.
echo   ┌────┬────────────────────────┐  ┌────┬────────────────────────┐
echo   │ 01 │ Add Option in the menu │  │ 02 │ Del Option in the menu │
echo   └────┴────────────────────────┘  └────┴────────────────────────┘
echo.
echo   It's for the Desktop Context Menu
set /p crt=Choice :
if %crt% equ 2 goto deleter
cls
echo.
echo   ┌────┬─────────────────────────────────────────┐
echo   │ 01 │ Add Option to the Desktop Context Menu  │
echo   └────┴─────────────────────────────────────────┘
echo.
set /p name=What name do you want for the option that you add to the context menu ?
echo.
set /p comm=Which command do you want to associate to the option "%name%" ?
echo.
echo.
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /f
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command /f
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command /ve /d %comm% /f
cls
echo.
echo   ┌────┬────────────────────────┐  ┌────┬───────────────────────┐
echo   │ 02 │      Add an icon       │  │ 03 │ Continue without icon │
echo   └────┴────────────────────────┘  └────┴───────────────────────┘
echo.
set crt=
set /p crt=Choice :
if %crt% equ 2 goto iconadd
goto next1
:iconadd
set /p icon=What icon do you want to use for the option "%name%" ?
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v Icon /t REG_SZ /d %icon% /f
:next1
cls
echo.
echo   ┌────┬─────────────────────────────────────────────────────┐
echo    04 : Show the option "%name%" only when shift is pressed
echo   └────┴─────────────────────────────────────────────────────┘
echo.
echo   ┌────┬─────────────────────────────────────────────────────┐
echo    05 : Always show the option "%name%"
echo   └────┴─────────────────────────────────────────────────────┘
echo.
set /p crt=Choice :
if %crt% equ 4 reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v extended /t REG_SZ /f
cls
echo.
echo   ┌────┬─────────────────────────────────────────────────────┐
echo    06 : Place the option "%name%" at the bottom
echo   ┌────┬─────────────────────────────────────────────────────┐
echo   └────┴─────────────────────────────────────────────────────┘
echo    07 : Place the option "%name%" at the top
echo   └────┴─────────────────────────────────────────────────────┘
echo   ┌────┬─────────────────────────────────────────────────────┐
echo    08 : Don't position the option "%name%"
echo   └────┴─────────────────────────────────────────────────────┘
echo.
set crt=
set /p crt=Choice :
if %crt% EQU 6 goto bottompos
if %crt% EQU 7 goto toppos
if %crt% EQU 8 goto nopos
:bottompos
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v position /t REG_SZ /d bottom /f
goto nopos
:toppos
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v position /t REG_SZ /d top /f
goto nopos
:nopos
echo.
echo.
echo   Operation done ! The option "%name%" has been
echo   successfully added to the desktop context menu !
goto result
:deleter
cls
echo.
echo   ┌────┬─────────────────────────┐
echo   │ 02 │      Delete Option      │
echo   └────┴─────────────────────────┘
echo.
set /p name1=Name of the option you want to delete from the desktop context menu :
reg delete HKEY_CLASSES_ROOT\Directory\Background\shell\%name1% /f
echo.
echo   The option "%name1%" has been successfully
echo   deleted from the desktop context menu !
goto result
 
 
:m8
cls
echo.
echo   ┌────┬──────────────┐   Command by : Pierre JOUSSAIN
echo   │ 08 │  Reg Backup  │   The 18/03/2012 at 18:50
echo   └────┴──────────────┘   Note : An idea of Raphael Berteaud
echo.
echo   ┌────┬──────────────────────┐  ┌────┬─────────────────────┐
echo   │ 01 │       Reg Backup     │  │ 02 │      Reg Restore    │
echo   └────┴──────────────────────┘  └────┴─────────────────────┘
echo.
if not exist "%windir%\RegBackUp" echo   Note : You do not have a backup
if exist "%windir%\RegBackUp" echo   Note : You have a backup
set /p crt=Choice :
echo.
if %crt% equ 1 goto backup
if %crt% equ 2 if exist "%windir%\RegBackUp" goto restore
:backup
echo   Loading, backup in progress...
if not exist "%windir%\RegBackUp\HKLM.reg" md "%windir%\RegBackUp"
reg export HKLM "%windir%\RegBackUp\HKLM.reg" /y
reg export HKCR "%windir%\RegBackUp\HKCR.reg" /y
reg export HKCU "%windir%\RegBackUp\HKCU.reg" /y
reg export HKCC "%windir%\RegBackUp\HKCC.reg" /y
reg export HKU "%windir%\RegBackUp\HKU.reg" /y
echo.
echo   Backup in : "%windir%\RegBackUp\"
echo.
goto result
:restore
echo   Loading, restore in progress...
"%windir%\RegBackUp\HKLM.reg"
"%windir%\RegBackUp\HKCR.reg"
"%windir%\RegBackUp\HKCU.reg"
"%windir%\RegBackUp\HKCC.reg"
"%windir%\RegBackUp\HKU.reg"
echo.
echo   Restore completed !
echo.
goto result
 
 
:m9
cls
echo.
echo   ┌────┬──────────────┐   Command by : Pierre JOUSSAIN
echo   │ 05 │ Startup Soft │   The 19/03/2012 at 18:35
echo   └────┴──────────────┘   Note : Remember to backup the registry
echo.
echo   ┌────┬───────────────────────┐  ┌────┬──────────────────────┐
echo   │ 01 │      Add program      │  │ 02 │    Delete program    │
echo   └────┴───────────────────────┘  └────┴──────────────────────┘
echo.
set /p crt=1 or 2 :
echo.
set /p prt=Program path :
echo.
if %crt% equ 1 reg add "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "%prt%" /t Reg_SZ /d "%prt%" /f
if %crt% equ 2 reg delete "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "%prt%" /f
goto result
 
 
:m10
cls
echo.
echo   ┌────┬──────────────┐   Command by : Raphael BERTEAUD
echo   │ 10 │    Folder    │   The 19/03/2012 at 18:35
echo   └────┴──────────────┘   Note : an idea of Pierre Joussain
echo.
echo.
echo   ┌────┬──────────────────────────────────────┐
echo   │ 01 │ Show or Hide hidden files ^& Folders  │
echo   └────┴──────────────────────────────────────┘
echo.
echo   ┌────┬──────────────────────────────────────┐
echo   │ 02 │  Show or hide known extension files  │
echo   └────┴──────────────────────────────────────┘
echo.
set /p crt=Choice :
if %crt% equ 1 goto hiddenFF
if %crt% equ 2 goto knownEF
:hiddenFF
cls
echo   ┌────┬──────────────────────────────────────┐
echo   │ 01 │ Show or Hide hidden files ^& Folders  │
echo   └────┴──────────────────────────────────────┘
echo.
echo   ┌────┬──────────────────────────────┐
echo   │ 01 │ Show hidden files ^& folders  │
echo   └────┴──────────────────────────────┘
echo.
echo   ┌────┬──────────────────────────────┐
echo   │ 02 │ Hide hidden files ^& folders  │
echo   └────┴──────────────────────────────┘
echo.
set crt=
set /p crt=1 or 2 :
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Hidden /t REG_DWORD /d %crt% /f
tskill explorer
goto result
 
:knownEF
cls
echo   ┌────┬──────────────────────────────────────┐
echo   │ 02 │  Show or hide known extension files  │
echo   └────┴──────────────────────────────────────┘
echo.
echo   ┌────┬─────────────────────────────┐
echo   │ 01 │ Show known files extensions │
echo   └────┴─────────────────────────────┘
echo.
echo   ┌────┬─────────────────────────────┐
echo   │ 02 │ Hide known files extensions │
echo   └────┴─────────────────────────────┘
set crt=
set /p crt=1 or 2 :
set /a crt=%crt%-1
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v HideFileExt /t REG_DWORD /d %crt% /f
set /a crt=%crt%+1
tskill explorer
goto result
 
 
:m11
cls
echo.
echo   ┌────┬──────────────┐   Command by : Raphael BERTEAUD
echo   │ 11 │    Taskbar   │   The 22/03/2012 at 22:35
echo   └────┴──────────────┘   Note : Personalize Taskbar ^& Start Menu
echo.
echo.
echo Personalize the Start Menu shownig or hidding buttons.
echo.
echo 1.Show choosen buttons, 2.Hide choosen buttons, 3.Others
set /p crt=Choice :
if %crt% equ 1 goto showb
if %crt% equ 2 goto hideb
if %crt% equ 3 goto othersb
 
:showb
cls
echo   ┌────┬─────────────────────────────────────┐
echo   │ 01 │   Choose buttons you want to show   │
echo   └────┴─────────────────────────────────────┘
echo.
echo   ┌─────────────────────────┬─────────────────────┐
echo   │ 1.Hard Disk Dirve       │ 4.Music             │
echo   │ 2.User folder           │ 5.Pictures          │
echo   │ 3.Documents             │ 6.Videos            │
echo   ├─────────────────────────┼─────────────────────┤
echo   │ 7.Control Panel         │ 11.Recorded TV      │
echo   │ 8.Administrative Tools  │ 12.Downloads        │
echo   │ 9.Run...                │ 13.Help ^& Support   │
echo   │ 10.Network              │ 14.Games            │
echo   └─────────────────────────┴─────────────────────┘
echo.
echo Note : choose all options you want to show in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:1choice
set cho=
set /p cho=Choice :
if %cho% equ 1 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 2 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 3 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 4 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 5 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 6 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 7 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 8 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 9 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 10 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 11 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 12 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 13 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 14 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 1 /f &goto 1choice
if "%cho%"=="quit" tskill explorer &goto result
 
:hideb
cls
echo   ┌────┬─────────────────────────────────────┐
echo   │ 02 │   Choose buttons you want to hide   │
echo   └────┴─────────────────────────────────────┘
echo.
echo   ┌─────────────────────────┬────────────────────┐
echo   │ 1.Hard Disk Dirve       │ 4.Music            │
echo   │ 2.User folder           │ 5.Pictures         │
echo   │ 3.Documents             │ 6.Videos           │
echo   ├─────────────────────────┼────────────────────┤
echo   │ 7.Control Panel         │ 11.Recorded TV     │
echo   │ 8.Administrative Tools  │ 12.Downloads       │
echo   │ 9.Run...                │ 13.Help ^& Support  │
echo   │ 10.Network              │ 14.Games           │
echo   └─────────────────────────┴────────────────────┘
echo.
echo Note : choose all options you want to hide in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:2choice
set cho=
set /p cho=Choice :
if %cho% equ 1 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 2 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 3 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 4 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 5 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 6 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 7 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 8 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 9 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 10 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 11 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 12 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 13 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 14 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 0 /f &goto 2choice
if "%cho%"=="quit" tskill explorer &goto result
 
:othersb
cls
echo   ┌────┬───────────────────────┐   ┌────┬──────────────────────────┐
echo   │ 03 │  Power button action  │   │ 04 │ Color compressed folders │
echo   └────┴───────────────────────┘   └────┴──────────────────────────┘
echo.
echo                ┌────┬──────────────────────────────┐
echo                │ 05 │Set maximum files in Jump List│
echo                └────┴──────────────────────────────┘
echo.
set crt=
set /p "crt=Choice : "
if %crt% equ 3 goto pwract
if %crt% equ 4 goto clrcpsdfldr
if %crt% equ 5 goto stmxflsjmplst
:pwract
cls
echo   ┌────┬───────────────────────┐
echo   │ 03 │  Power button action  │
echo   └────┴───────────────────────┘
echo.
echo  set to power button function of :
echo   1.Switch User
echo   2.Log off
echo   3.Lock Session
echo   4.Restart Computer
echo   5.Sleep
echo   6.Hibernate
echo   7.Shutdown computer
echo.
set /p cha=Choice :
if %cha% equ 1 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 256 /f
if %cha% equ 2 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 1 /f
if %cha% equ 3 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 512 /f
if %cha% equ 4 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 4 /f
if %cha% equ 5 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 16 /f
if %cha% equ 6 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 64 /f
if %cha% equ 7 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 2 /f
tskill explorer &goto result
 
:clrcpsdfldr
cls
echo   ┌────┬────────────────────────────┐
echo   │ 04 │  Color compressed folders  │
echo   └────┴────────────────────────────┘
echo.
echo 1.Activate color compressed folders
echo 2.Desactivate color compressed folders
echo.
set /p chz=Choice :
if %chz% equ 1 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v ShowCompColor /t REG_DWORD /d 1 /f
if %chz% equ 2 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v ShowCompColor /t REG_DWORD /d 0 /f
goto result
 
:stmxflsjmplst
cls
echo   ┌────┬────────────────────────────────┐
echo   │ 05 │ Set maximum files in jump list │
echo   └────┴────────────────────────────────┘
echo.
set chr=
set /p chr=Choice (0-9999...) :
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_JumpListItems /t REG_DWORD /d %chr% /f
goto result
 
 
:m12
cls
echo.
echo   ┌────┬──────────────┐   Command by : Pierre JOUSSAIN
echo   │ 02 │ USB Autoplay │   The 31/03/2012 at 21:04
echo   └────┴──────────────┘   Note : For this security
echo.
echo   ┌────┬─────────────────────┐  ┌────┬─────────────────────┐
echo   │ 01 │   Enable Autoplay   │  │ 02 │   Disable Autplay   │
echo   └────┴─────────────────────┘  └────┴─────────────────────┘
echo.     
set /p crt=1 or 2 :
if %crt% equ 1 reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x91
if %crt% equ 2 reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x4
goto result
 
 
:result
echo.
echo.
echo   Well considered "%crt%" choice !
echo.
echo Press any key...
pause >nul
goto menu


Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Regrouper ces connaissances 
Bonjour Smile

Code:
HKEY_CLASSES_ROOT (HKCR)
    |-> Consigne de nettoyage : Faire 3 passages
    |
    |___ .*
        |-> La valeur chaîne par défaut est le nom d'une autre clé dans HKCR (notée ici ***)
        |-> Vérifier l'existence de la clé correspondante, si elle n'existe pas supprimer la chaîne
        |-> Si la valeur chaîne par défaut n'est pas définie, supprimer la clé.
        |-> /!\ ATTENTION /!\ Si la clé contient une sous-clé "PersistentHandler" ou "OpenWithProgIDs", conserver la clé.
        |-> Si la sous-clé "PersistentHandler" existe, elle contient elle-même un CLSID à vérifier dans la chaîne par défaut (comme pour les dossiers "***").
    |
    |___ ***
        |-> /!\ Si la sous-clé CLSID n'existe pas, conserver la clé
        |___ CLSID
            |-> La valeur chaîne par défaut contient un CLSID (chaîne de forme {*})
            |-> Supprimer la clé si la clé correspondante n'existe pas dans HKCR\CLSID
    |
    |___ CLSID
        |___{*}
            |-> /!\ ATTENTION /!\ Il est possible que la sous-clé InProcServer32 n'existe pas.
            |->  Dans ce cas, il y a une sous-clé PersistentAddinsRegistered. Celle-ci contient une sous-clé {*} avec un CLSID dans sa chaîne par défaut.
            |->  Vérifier seulement l'existence du CLSID (comme aux dossiers "***").
            |___ InProcServer32
                |-> La valeur chaîne par défaut pointe le chemin d'un fichier
                |-> Si le fichier n'existe pas, supprimer le CLSID {*} correspondant
                |-> /!\ ATTENTION /!\ Ne supprimer AUCUNE des clés de syntaxe {00*}

Faites très attention aux consignes de sécurité, je ne les ai pas inscrites pour rien, même si elles semblent parfois étranges.





______________________________________________________
Skype
Répondre en citant
Message Du neuf, depuis le temps ... 
Salut à tous,
Il y avait bien longtemps que je n'étais pas venu sur le forum, ça fait plaisir de voir qu'il y a encore de l'activité ... Mr. Green
Je viens de finir les dernières touches au programme Registry Tool version 1.0 avec des améliorations de l'interface graphique, l'ajout d'une aide en plusieurs langues, correction de bugs et plein de modifications sur l'option 3 et biens d'autres, je vous laisse jeter un coup d’œil, n'hésitez pas à faire vos critiques ... Smile

Code:

@echo off
title Registry Tool V1.0
color 0f
mode con cols=71 lines=24

if exist "%windir%\System32\reg.*" goto tskilldetect
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º  Reg Undetected  º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Command Reg [Not found]
echo.
echo   Please, download the command reg.[exe]
echo   and place this file in %windir%\System32\
echo.
echo   If the problem persists, contact a developer.
echo.
echo Press any key...
pause >nul
exit

:tskilldetect
if exist "%windir%\system32\tskill.*" goto start
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º  tskill Undetected  º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Command tskill [Not found]
echo.
echo   The absence of this command could cause
echo   problems to Registry Tool runtime.
echo.
echo   To ensure a better functioning of the software,
echo   please, download the command tskill.[exe]
echo   and place this file in %windir%\System32\
echo.
echo   If the problem persists, contact a developer.
echo.
echo Press any key...
pause >nul

:start
 
if exist "%windir%\RegBackUp" goto backupdetected
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º    Reg BackUp    º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Loading, backup in progress...
md "%windir%\RegBackUp"
reg export HKLM "%windir%\RegBackUp\HKLM.reg"
reg export HKCR "%windir%\RegBackUp\HKCR.reg"
reg export HKCU "%windir%\RegBackUp\HKCU.reg"
reg export HKCC "%windir%\RegBackUp\HKCC.reg"
reg export HKU "%windir%\RegBackUp\HKU.reg"
echo Your last registry backup was made on %date% at %time%. >"%windir%\RegBackup\datinfo.rbdt"
echo You've restored the registry backup of %date%, %time%. >"%windir%\RegBackup\restdatinfo.rbrd"
echo.
echo   Backup in : "%windir%\RegBackUp\"
echo.
echo Press any key...
pause >nul
:backupdetected
 
:menu
set crt=enu
cls
:errenu
echo.
echo                     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                     º                             º
echo                     º        Registry Tool        º
echo                     º                             º
echo                     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   IP Proxy   ³  ³ 02 ³ Hide Desktop ³  ³ 03 ³ Optimize All ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 04 ³  Auto-Logon  ³  ³ 05 ³  USB Detect  ³  ³ 06 ³  CleanUpReg  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 07 ³ Menu Context ³  ³ 08 ³  Reg Backup  ³  ³ 09 ³ Startup Soft ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 10 ³    Folder    ³  ³ 11 ³ Menu Taskbar ³  ³ 12 ³ USB Autorun  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo                          ³ 13 ³     Help     ³
echo                          ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo             Note : Please run Registry Tool as Administrator
echo.
set /p crt=Choice :
if %crt% geq 0 (
if %crt% leq 13 (
goto m%crt%
) else (
goto classexit
)
)
 
 
:m0
:m00
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Version : 1.0
echo   º   Registry Tool   º   Modify : option 13 + GUI + option 3 + bugs
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   The 22/08/2014 at 19:40
echo.
echo  Created by : Pierre JOUSSAIN ^& Raphael BERTEAUD
echo  Created for : batch.xoo.it ^& Everyone else
echo.
echo  Developed by :
echo    -Raphael BERTEAUD [^</Troud>] ÍÍÍÍ 6 commands + help
echo    -Pierre JOUSSAIN [Pierrot] ÍÍÍÍÍÍ 5 commands
echo    -Unknown [ytrezAn] ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ 1 command
echo.
echo For questions, comments, or bug reports, please feel free
echo to contact us at the following address : raf.webmaster@octavener.org
echo.
echo Press any key...
pause >nul
goto menu
 
:m1
:m01
cls
:err
set oot=1
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º     IP Proxy     º   The 15/03/2012 at 19:29
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Configure Proxy
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³     Desactivate      ³  ³ 02 ³       Activate       ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p oot=1 or 2 :
set /a oot=%oot%-1
if %oot% equ 0 set crt=ProxyOFF
if %oot% equ 0 goto oot
if %oot% gtr 1 (
cls
echo Invalid Choice !
goto err
)
if %oot% lss 0 (
cls
echo Invalid Choice !
goto err
)
echo.
echo.
echo   Please, choose an IP adress (ex : 255.18.42.20)
echo.
set /p crt=IP :
:oot
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyenable /t Reg_Dword /d "%oot%" /f
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyserver /t Reg_SZ /d "%crt%" /f
goto result
 
 
:m2
:m02
cls
:err2
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Hide Desktop   º   The 15/03/2012 at 17:31
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Show or Hide Desktop Icons
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Hide desktop icons  ³  ³ 02 ³  Show desktop icons  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.     
set /p crt=1 or 2 :
if %crt% equ 1 goto addnodesk
if %crt% equ 2 goto delnodesk
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err2
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err2
)
 
:addnodesk
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoDesktop /t REG_DWORD /d 1 /f
tskill explorer
echo.
echo.
echo Well considered "%crt%" choice !
echo.
echo Press any key...
pause >nul
goto menu
 
:delnodesk
reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoDesktop /f
tskill explorer
echo.
echo.
echo Well considered "%crt%" choice !
echo.
echo Press any key...
pause >nul
goto menu
 
 
:m3
:m03
cls
:err3
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Optimize All   º   The 15/03/2012 at 17:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Faster Boot, Run and Shutdown
echo.
set /p crt=1-Hard Disk Drive (HDD) or 2-Solid State Drive (SSD) ?                 (Choose 1 if you are not shure) :
if %crt% equ 1 goto hdd
if %crt% equ 2 goto ssd
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err3
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err3
)
goto m3

:hdd
echo.
echo   ÄÄÄÄ^> Optimize StartUp [Raphael BERTEAUD]
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction /v OptimizeComplete /t REG_SZ /d no /f
echo.
echo   ÄÄÄÄ^> Optimize Windows [Raphael BERTEAUD]
del "%windir%\temp" /s /q
md "%windir%\temp"
takeown /f "%windir%\Logs\CBS\CBS.log"
echo  >"%windir%\Logs\CBS\CBS.log"
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer /v AlwaysUnloadDll /t REG_DWORD /d 1 /f
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v SeparateProcess /t REG_DWORD /d 1 /f
echo.
echo   ÄÄÄÄ^> Optimize extinction [Raphael BERTEAUD]
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" /v WaitToKillServiceTimeout /t REG_SZ /d 1000 /f
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v AutoEndTasks /t REG_SZ /d 1 /f
echo.
echo You should Restart your computer to apply changes.
set /p crt=Would you like to restart now ? (Y/N) :
if %crt% equ Y shutdown -f -r -t 00
goto result

:ssd
echo.
echo   ÄÄÄÄ^> Optimize Windows [Raphael BERTEAUD]
del "%windir%\temp" /s /q
md "%windir%\temp"
takeown /f "%windir%\Logs\CBS\CBS.log"
echo  >"%windir%\Logs\CBS\CBS.log"
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer /v AlwaysUnloadDll /t REG_DWORD /d 1 /f
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v SeparateProcess /t REG_DWORD /d 1 /f
echo.
echo   ÄÄÄÄ^> Optimize extinction [Raphael BERTEAUD]
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" /v WaitToKillServiceTimeout /t REG_SZ /d 1000 /f
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v AutoEndTasks /t REG_SZ /d 1 /f
echo.
echo You should Restart your computer to apply changes.
set /p crt=Would you like to restart now ? (Y/N) :
if %crt% equ Y shutdown -f -r -t 00
goto result
 

:m4
:m04
set crt=1
cls
:err4
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º    Auto-Logon    º   The 16/03/2012 at 17:39
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Automatic Session Login
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Desactivate AutoLogon ³  ³ 02 ³  Activate AutoLogon   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Auto logon, your session
echo.
set /p crt=1 or 2 :
set /a crt=%crt%-1
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AutoAdminLogon /t REG_SZ /d %crt% /f
if %crt% EQU 0 (
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultusername" /f >nul 2>nul
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultpassword" /f >nul 2>nul
set /a crt=%crt%+1
goto result
)
if %crt% gtr 1 (
cls
echo Invalid choice !
goto err4
)
if %crt% lss 0 (
cls
echo Invalid choice !
goto err4
)
set /a crt=%crt%+1
echo.
set /p user=Which session do you want to use as default ? :
echo.
set /p password=Password :
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultusername /t REG_SZ /d %user% /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultpassword /t REG_SZ /d %password% /f
echo.
echo Now you'll be logged as %user% on every startup.
echo.
echo    Note : If user name or password are wrong, the operation wont work !
echo.
echo WARNING : Your password is now visible in the registry !
echo           If you switch off the AutoLogon, your password will
echo           no longer be visible in the registry.
goto result
 
 
:m5
:m05
cls
:err5
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º    USB Detect    º   The 16/03/2012 at 21:25
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Administrative Tweak for USB
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Disable USB Detect   ³  ³ 02 ³   Enable USB Detect   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=1 or 2 :
echo.
if %crt% equ 1 (
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR" /v Start /t Reg_Dword /d "4" /f
echo.
echo    Your USB ports are now disabled !
)
if %crt% equ 2 (
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR" /v Start /t Reg_Dword /d "3" /f
echo.
echo    Your USB ports are now enabled !
)
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err5
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err5
)
echo.
goto result
 
 
:m6
:m06
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : ytrezAn
echo   º    CleanUpReg    º   The 16/03/2012 at 20:50
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Erase Traces of Uninstalled Programs
echo.
echo.
echo   ÄÄÄÄ^> Delete traces [ytrezAn]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f
echo.
echo   ÄÄÄÄ^> Delete traces [Pierre JOUSSAIN]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f
echo.
goto result
 
 
:m7
:m07
set crt=1
cls
:err7
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Menu Context   º   The 17/03/2012 at 21:00
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Add or Delete Context Menu Entries
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Add Option in the menu ³  ³ 02 ³ Del Option in the menu ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Menu Context affects the desktop context menu
echo.
set /p crt=Choice :
if %crt% equ 2 goto deleter
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err7
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err7
)
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Add Option to the Desktop Context Menu  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p name=How would you name the new context menu entry ? 
echo.
set /p comm=Which command do you want to associate to "%name%" ? 
echo.
echo.
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /f
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command /f
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command /ve /d %comm% /f
cls
:err71
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³      Add an icon       ³  ³ 03 ³ Continue without icon ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt=Choice :
if %crt% equ 2 goto iconadd
if %crt% gtr 3 (
cls
echo Invalid choice !
goto err71
)
if %crt% lss 2 (
cls
echo Invalid choice !
goto err71
)
goto next1
:iconadd
set /p icon=What icon do you want to use for the option "%name%" ? 
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v Icon /t REG_SZ /d %icon% /f
:next1
cls
:err72
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    04 : Show the option "%name%" only when shift is pressed
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    05 : Always show the option "%name%"
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=Choice :
if %crt% equ 4 reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v extended /t REG_SZ /f
if %crt% equ 5 goto placernext
if %crt% gtr 5 (
cls
echo Invalid choice !
goto err72
)
if %crt% lss 4 (
cls
echo Invalid choice !
goto err72
)
:placernext
cls
:err73
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    06 : Place the option "%name%" at the bottom
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    07 : Place the option "%name%" at the top
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    08 : Don't position the option "%name%"
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
set crt=
set /p crt=Choice :
if %crt% EQU 6 goto bottompos
if %crt% EQU 7 goto toppos
if %crt% EQU 8 goto nopos
if %crt% gtr 8 (
cls
echo Invalid choice !
goto err73
)
if %crt% lss 6 (
cls
echo Invalid choice !
goto err73
)
:bottompos
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v position /t REG_SZ /d bottom /f
goto nopos
:toppos
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v position /t REG_SZ /d top /f
goto nopos
:nopos
echo.
echo.
echo   Operation done ! The option "%name%" has been
echo   successfully added to the desktop context menu !
goto result
:deleter
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³      Delete Option      ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p name1=Which context menu entry do you want to remove :
reg delete HKEY_CLASSES_ROOT\Directory\Background\shell\%name1% /f >nul 2>nul
echo.
echo   The "%name1%" entry has been successfully
echo   deleted from the desktop context menu !
goto result


 
:m8
:m08
cls
:err8
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º    Reg Backup    º   The 18/03/2012 at 18:50
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Registry Backup Tool [Raphael B. idea]
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³      Reg Backup      ³  ³ 02 ³     Reg Restore     ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
if not exist "%windir%\RegBackUp" echo   WARNING : You do not have a backup !
if exist "%windir%\RegBackUp" (
echo   Note : You have a backup.
type "%windir%\RegBackup\datinfo.rbdt"
echo.
)
set /p crt=Choice :
echo.
if %crt% equ 1 goto backup
if %crt% equ 2 if exist "%windir%\RegBackUp" goto restore
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err8
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err8
)
:backup
echo   Loading, backup in progress...
if not exist "%windir%\RegBackUp\HKLM.reg" md "%windir%\RegBackUp"
reg export HKLM "%windir%\RegBackUp\HKLM.reg" /y
reg export HKCR "%windir%\RegBackUp\HKCR.reg" /y
reg export HKCU "%windir%\RegBackUp\HKCU.reg" /y
reg export HKCC "%windir%\RegBackUp\HKCC.reg" /y
reg export HKU "%windir%\RegBackUp\HKU.reg" /y
echo Your last registry backup was made on %date% at %time%. >"%windir%\RegBackup\datinfo.rbdt"
echo You've restored the registry backup of %date%, %time%. >"%windir%\RegBackup\restdatinfo.rbrd"
echo.
echo   Backup in : "%windir%\RegBackUp\"
echo.
goto result
:restore
echo   Loading, restore in progress...
echo.
echo   Note : You should be asked if you really want to overwrite the
echo   registry, please always answer yes. If error messages appear
echo   don't panic, it's normal, just ignore them ! Thanks for your
echo   comprehension.
echo.
"%windir%\RegBackUp\HKLM.reg"
"%windir%\RegBackUp\HKCR.reg"
"%windir%\RegBackUp\HKCU.reg"
"%windir%\RegBackUp\HKCC.reg"
"%windir%\RegBackUp\HKU.reg"
echo.
type "%windir%\RegBackup\restdatinfo.rbrd"
echo.
goto result
 
 
:m9
:m09
cls
:err9
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º   Startup Soft   º   The 19/03/2012 at 18:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Modify the Autorun Program List
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³      Add program      ³  ³ 02 ³    Delete program    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=1 or 2 :
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err9
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err9
)
echo.
set /p prt=Program path (without quotes) :
echo.
if %crt% equ 1 reg add HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "%prt%" /t REG_SZ /d "%prt%" /f
if %crt% equ 2 reg delete HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "%prt%" /f
goto result
 
 
:m10
cls
:err10
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º     Folder     º   The 19/03/2012 at 18:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Folders Properties [Pierre J. idea]
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show or Hide hidden files ^& Folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Show or hide known files extension  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=Choice :
if %crt% equ 1 goto hiddenFF
if %crt% equ 2 goto knownEF
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err10
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err10
)
:hiddenFF
cls
:err102
echo.
echo             ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo             º   Show or Hide hidden files ^& Folders   º
echo             ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show hidden files ^& folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³ Hide hidden files ^& folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt=1 or 2 :
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err102
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err102
)
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Hidden /t REG_DWORD /d %crt% /f
tskill explorer
goto result
 
:knownEF
cls
:err103
echo.
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º   Show or hide known files extension   º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show known files extensions ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³ Hide known files extensions ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
set crt=
set /p crt=1 or 2 :
set /a crt=%crt%-1
if %crt% gtr 1 (
cls
echo Invalid choice !
goto err103
)
if %crt% lss 0 (
cls
echo Invalid choice !
goto err103
)
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v HideFileExt /t REG_DWORD /d %crt% /f
set /a crt=%crt%+1
tskill explorer
goto result
 
 
:m11
cls
:err11
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º     Taskbar     º   The 22/03/2012 at 22:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Customize Taskbar ^& Start Menu
echo.
echo.
echo Customize the Start Menu showing or hidding buttons.
echo.
echo 1.Choose shown buttons, 2.Choose hidden buttons, 3.Others
echo.
set /p crt=Choice :
if %crt% equ 1 goto showb
if %crt% equ 2 goto hideb
if %crt% equ 3 goto othersb
if %crt% gtr 3 (
cls
echo Invalid choice !
goto err11
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err11
)
:showb
cls
:err112
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Choose buttons you want to show   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 1.Hard Disk Dirve       ³ 4.Music             ³
echo   ³ 2.User folder           ³ 5.Pictures          ³
echo   ³ 3.Documents             ³ 6.Videos            ³
echo   ³ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄij
echo   ³ 7.Control Panel         ³ 11.Recorded TV      ³
echo   ³ 8.Administrative Tools  ³ 12.Downloads        ³
echo   ³ 9.Run...                ³ 13.Help ^& Support   ³
echo   ³ 10.Network              ³ 14.Games            ³
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo Note : choose all options you want to show in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:1choice
set cho=
set /p cho=Choice :
if %cho% equ 1 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 2 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 3 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 4 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 5 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 6 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 7 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 8 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 9 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 10 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 11 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 12 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 13 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 14 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 1 /f &goto 1choice
if "%cho%"=="quit" tskill explorer & goto result
if %cho% gtr 14 (
cls
echo Invalid choice !
goto err 112
)
if %cho% lss 1 (
cls
echo Invalid choice !
goto err 112
)
:hideb
cls
:err113
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³   Choose buttons you want to hide   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 1.Hard Disk Dirve       ³ 4.Music             ³
echo   ³ 2.User folder           ³ 5.Pictures          ³
echo   ³ 3.Documents             ³ 6.Videos            ³
echo   ³ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄij
echo   ³ 7.Control Panel         ³ 11.Recorded TV      ³
echo   ³ 8.Administrative Tools  ³ 12.Downloads        ³
echo   ³ 9.Run...                ³ 13.Help ^& Support   ³
echo   ³ 10.Network              ³ 14.Games            ³
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo Note : choose all options you want to hide in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:2choice
set cho=
set /p cho=Choice :
if %cho% equ 1 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 2 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 3 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 4 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 5 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 6 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 7 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 8 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 9 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 10 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 11 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 12 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 13 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 14 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 0 /f &goto 2choice
if "%cho%"=="quit" tskill explorer & goto result
if %cho% gtr 14 (
cls
echo Invalid choice !
goto err113
)
if %cho% lss 1 (
cls
echo Invalid choice !
goto err113
)
:othersb
cls
:err114
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 03 ³  Power button action  ³   ³ 04 ³ Color compressed folders ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo                ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo                ³ 05 ³Set maximum files in Jump List³
echo                ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p "crt=Choice : "
if %crt% equ 3 goto pwract
if %crt% equ 4 goto clrcpsdfldr
if %crt% equ 5 goto stmxflsjmplst
if %crt% gtr 5 (
cls
echo Invalid choice !
goto err114
)
if %crt% lss 3 (
cls
echo Invalid choice !
goto err114
)
:pwract
cls
:err115
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º    Power button action    º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Set to power button function of :
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³    Switch User    ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 02 ³      Log off      ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 03 ³   Lock Session    ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 04 ³ Restart Computer  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 05 ³       Sleep       ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 06 ³     Hibernate     ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 07 ³ Shutdown computer ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cha=Choice :
if %cha% equ 1 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 256 /f
if %cha% equ 2 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 1 /f
if %cha% equ 3 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 512 /f
if %cha% equ 4 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 4 /f
if %cha% equ 5 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 16 /f
if %cha% equ 6 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 64 /f
if %cha% equ 7 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 2 /f
if %cha% gtr 7 (
cls
echo Invalid choice !
goto err115
)
if %cha% lss 1 (
cls
echo Invalid choice !
goto err115
)
tskill explorer &goto result
 
:clrcpsdfldr
cls
:err116
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 04 ³  Color compressed folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   1.Activate color compressed folders
echo   2.Desactivate color compressed folders
echo.
set /p chz=Choice :
if %chz% equ 1 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v ShowCompColor /t REG_DWORD /d 1 /f
if %chz% equ 2 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v ShowCompColor /t REG_DWORD /d 0 /f
if %chz% gtr 2 (
cls
echo Invalid choice !
goto err116
)
if %chz% lss 1 (
cls
echo Invalid choice !
goto err116
)
goto result
 
:stmxflsjmplst
cls
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 05 ³ Set maximum files in jump list ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set chr=
set /p chr=Choice (0-9999...) :
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_JumpListItems /t REG_DWORD /d %chr% /f
goto result
 
 
:m12
cls
:err12
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º   USB Autorun   º   The 31/03/2012 at 21:04
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : USB Autorun Security Tweak
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Enable Autorun    ³  ³ 02 ³   Disable Autrun    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.     
set /p crt=1 or 2 :
if %crt% equ 1 (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x91
echo.
echo    Note : Autorun function is now enabled,
echo           please pay attention, if the removable media is infected,
echo           your computer could also be infected
echo           because of the Autorun function.
)
if %crt% equ 2 (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x4
echo.
echo    Note : Autorun function is now disabled,
echo           it could be binding for you,
echo           but it's safer for your computer
echo           and its security.
)
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err12
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err12
)
goto result


:m13
mode con cols=135 lines=32
color f0
cls
echo (en) Help Notes : Please run Registry Tool as Administrator.
echo.
echo Registry backups : It is highly preferable to save the entire registry before starting Registry Tool.
echo Note that this backup is performed automatically by default at the first startup of the program.
echo The files are stored in the directory "RegBackup" Windows.
echo If there is a problem with the automatic backup please use a specially designed program for this (ERUNT for example).
echo We are not responsible of any eventual damage caused by Registry Tool.
echo.
echo.
echo (fr) Notes d'aide : Veuillez executer Registry Tool en tant qu'administrateur.
echo.
echo Sauvegardes du registre : il est fortement preferable de sauvegarder toute la base de registre avant de demarrer Registry Tool.
echo Notez que cette sauvegarde est effectuee automatiquement par defaut au premier demarrage du programme.
echo Les fichiers sont stockes dans le repertoire "RegBackUp" de Windows.
echo En cas de probleme avec la sauvegarde utilisez un programme specialement concu pour cela (ERUNT par exemple).
echo Nous ne seront en aucun cas tenus responsables des eventuels degats que pourraient vous causer Registry Tool.
echo. 
echo.
echo (es) Ayuda : Por favor, ejecute Registry Tool como administrador.
echo.
echo Las copias de seguridad del registro : Es altamente preferible guardar todo el registro antes de iniciar Registry Tool.
echo Tenga en cuenta que esta copia de seguridad se realiza automaticamente de manera predeterminada en el primer inicio del programa.
echo Los archivos se guardan en el directorio "RegBackup" de Windows.
echo Si un problema ocurre con la copia de seguridad por favor utiliza un programa especialmente diseñado para este (por ejemplo ERUNT).
echo No somos responsables de de cualquier daño eventual provocado por Registry Tool.
echo.
echo.
echo For questions, comments, or bug reports, please feel free
echo to contact us at the following address : raf.webmaster@octavener.org
echo.
echo Press any key...
pause >nul
color 0f
mode con cols=71 lines=24
goto menu

 
:result
echo.
echo.
echo   Well considered "%crt%" choice !
echo.
echo Press any key...
pause >nul
goto menu

:classexit
mode con cols=84 lines=69
cls
echo.
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                     '.               ++++++++.               '`                   
echo                    '''.            :++++++++++'.            '''`                   
echo                   '''''.        ;+++++++++++++++++,        '''''`                 
echo                  '''''''.    `++++++++++++++++++++++;     '''''''`                 
echo                 '''''''''.  ++++++++++++++++++++++++++,  '''''''''`               
echo                ''''''''''':+++++++++++++++++++++++++++++'''''''''''`               
echo                .'''''''''++++++++++++++++++++++++++++++++''''''''''               
echo                 .'''''''++++++++++++++++++++++++++++++++++''''''''                 
echo                  .'''''+++++++++++++@#:.` `.;@@#+++++++++++''''''                 
echo                   .'''+++++++++++#'            .##++++++++++''''                   
echo                    .'++++++++++#'                 ##+++++++++''                   
echo                     :+++++++++@                    ,@+++++++++                     
echo                     ++++++++++                       @++++++++'                   
echo                    +++++++++'                         @++++++++`                   
echo                   `+++++++++                           @++++++++                   
echo                   ++++++++@                            `@+++++++.                 
echo                  `++++++++  Registry Tool will now exit ;#+++++++                 
echo                  '+++++++:                               @+++++++                 
echo                  ++++++++                                ,#++++++;                 
echo                  +++++++@###############################, @+++++++                 
echo                 :++++++,`:@@@@@@@@@@@#.```#+@@@@@@@@@@@@:  +++++++                 
echo                 +++++++  ,@@@@@@@@@@@@@:  '+@@@#@@#@@@@@:  '++++++.               
echo         +++++++++++++++  ,@@@@@@@@@@@@@@  '++##@@@@@@@@@:  `++++++++++++++`       
echo         +++++++++++++++  ,@@@@+++++#@@@@  `.,,,+@@@+,,,,`   ++++++++++++++`       
echo         ++++++++++++++;  ,@#@#      ##@@       ;@@#'        ++++++++++++++`       
echo         ++++++++++++++;  ,@@@#  ;;;'@@@@       ;@#@'        ++++++++++++++`       
echo         ++++++++++++++.  ,#@## @@@@#@@@#       '@@@+        ++++++++++++++`       
echo         ++++++++++++++;  ,++#' :##@+@@#        ;#@+;        ++++++++++++++`       
echo         ++++++++++++++;  ,####  ,#+#@.         ;##@;        ++++++++++++++`       
echo         +++++++++++++++   ;###   `++##,        `+++'       `++++++++++++++`       
echo         ::::::::+++++++,   ;@+    `#+#+'         ;@'       :++++++;:::::::`       
echo                 #######@    ,;      '@@##+++++++++@@+++++++#++++++                 
echo                 ;#######`            `````````````````````@+++++++                 
echo                  ########                                 @+++++++                 
echo                  #######@     Thanks for having used     ##++++++,                 
echo                  '########        this software !       `@+++++++                 
echo                   ########.                             @#++++++'                 
echo                   +#######@                            '#+++++++                   
echo                    ########@                          :@++++++++                   
echo                    '########@                        :@++++++++                   
echo                     #########@                      '@++++++++:                   
echo                     ##########@:                   @@+++++++++.                   
echo                    #############@.               '@#+++++++++''.                   
echo                   ################@;          .#@#++++++++++''''.                 
echo                  ###################@@@#+++@@@#++++++++++++''''''.                 
echo                 #####################+++++++++++++++++++++''''''''.               
echo                +#####################++++++++++++++++++++''''''''''.               
echo               ,###########`##########++++++++++++++++++::''''''''''               
echo               +##########`  ,########+++++++++++++++++   :''''''''                 
echo               ##########`     :######+++++++++++++++      :''''''                 
echo              `#########`         '###++++++++++++,         :''''                   
echo              ;########`             .++++++++;`             :''                   
echo              #######+`               ++++++++:               :                     
echo              #+:`                    ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ::::::::,   
ping localhost /n 6 >nul
exit                                 


Voici Registry Tool.exe, personnellement je préfère le fichier exécutable au code source Smile
Registry Tool x64.exe : http://www.sendspace.com/file/ylf5n6
Registry Tool x86.exe : http://www.sendspace.com/file/8moucd

N'hésitez pas à me P.M. en cas de problèmes, bugs, ou si vous avez des questions !! Wink




______________________________________________________
Cordialement, </Troud>.
Répondre en citant
Message Regrouper ces connaissances 
Me revoici avec la toute dernière version de Registry Tool (v1.1) apportant nottament des améliorations à l'option n°3 et quelques autres améliorations minimes ...
Code:

@echo off
title Registry Tool V1.1
color 0f
mode con cols=71 lines=24

if exist "%windir%\System32\reg.*" goto tskilldetect
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º  Reg Undetected  º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Command Reg [Not found]
echo.
echo   Please, download the command reg.[exe]
echo   and place this file in %windir%\System32\
echo.
echo   If the problem persists, contact a developer.
echo.
echo Press any key...
pause >nul
exit

:tskilldetect
if exist "%windir%\system32\tskill.*" goto start
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º  tskill Undetected  º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Command tskill [Not found]
echo.
echo   The absence of this command could cause
echo   problems to Registry Tool runtime.
echo.
echo   To ensure a better functioning of the software,
echo   please, download the command tskill.[exe]
echo   and place this file in %windir%\System32\
echo.
echo   If the problem persists, contact a developer.
echo.
echo Press any key...
pause >nul

:start
 
if exist "%windir%\RegBackUp" goto backupdetected
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º    Reg BackUp    º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Loading, backup in progress...
md "%windir%\RegBackUp"
reg export HKLM "%windir%\RegBackUp\HKLM.reg"
reg export HKCR "%windir%\RegBackUp\HKCR.reg"
reg export HKCU "%windir%\RegBackUp\HKCU.reg"
reg export HKCC "%windir%\RegBackUp\HKCC.reg"
reg export HKU "%windir%\RegBackUp\HKU.reg"
echo   Your last registry backup was made on %date% at %time%. >"%windir%\RegBackup\datinfo.rbt"
echo   You've restored the registry backup of %date%, %time%. >"%windir%\RegBackup\restdatinfo.rbt"
reg add HKEY_CLASSES_ROOT\.rbt /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\.rbt /ve /t REG_SZ /d rbtfile /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /ve /t REG_SZ /d "Registry Backup Tool Data Document" /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /v AlwaysShowExt /t REG_SZ /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\DefaultIcon /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\DefaultIcon /ve /t REG_SZ /d "%SystemRoot%\system32\setupapi.dll,12" /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open\command /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open\command /ve /t REG_SZ /d unknown /f >nul 2>nul
echo.
echo   Backup in : "%windir%\RegBackUp\"
echo.
echo Press any key...
pause >nul
:backupdetected
 
:menu
set crt=enu
cls
:errenu
echo.
echo                     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                     º                             º
echo                     º        Registry Tool        º
echo                     º                             º
echo                     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   IP Proxy   ³  ³ 02 ³ Hide Desktop ³  ³ 03 ³ Optimize All ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 04 ³  Auto-Logon  ³  ³ 05 ³  USB Detect  ³  ³ 06 ³  CleanUpReg  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 07 ³ Menu Context ³  ³ 08 ³  Reg Backup  ³  ³ 09 ³ Startup Soft ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 10 ³    Folder    ³  ³ 11 ³ Menu Taskbar ³  ³ 12 ³ USB Autorun  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo                          ³ 13 ³     Help     ³
echo                          ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo             Note : Please run Registry Tool as Administrator
echo.
set /p crt=Choice :
if %crt% geq 0 (
if %crt% leq 13 (
goto m%crt%
) else (
goto classexit
)
)
 
 
:m0
:m00
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Version : 1.1
echo   º   Registry Tool   º   Modify : option 3
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   The 22/08/2014 at 19:40
echo.
echo  Created by : Pierre JOUSSAIN ^& Raphael BERTEAUD
echo  Created for : batch.xoo.it ^& Everyone else
echo.
echo  Developed by :
echo    -Raphael BERTEAUD [^</Troud>] ÍÍÍÍ 6 commands + help
echo    -Pierre JOUSSAIN [Pierrot] ÍÍÍÍÍÍ 5 commands
echo    -Unknown [ytrezAn] ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ 1 command
echo.
echo For questions, comments, or bug reports, please feel free
echo to contact us at the following address : raf.webmaster@octavener.org
echo.
echo Press any key...
pause >nul
goto menu
 
:m1
:m01
cls
:err
set oot=1
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º     IP Proxy     º   The 15/03/2012 at 19:29
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Configure Proxy
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³     Desactivate      ³  ³ 02 ³       Activate       ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p oot=1 or 2 :
set /a oot=%oot%-1
if %oot% equ 0 set crt=ProxyOFF
if %oot% equ 0 goto oot
if %oot% gtr 1 (
cls
echo Invalid Choice !
goto err
)
if %oot% lss 0 (
cls
echo Invalid Choice !
goto err
)
echo.
echo.
echo   Please, choose an IP adress (ex : 255.18.42.20)
echo.
set /p crt=IP :
:oot
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyenable /t Reg_Dword /d "%oot%" /f
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyserver /t Reg_SZ /d "%crt%" /f
goto result
 
 
:m2
:m02
cls
:err2
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Hide Desktop   º   The 15/03/2012 at 17:31
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Show or Hide Desktop Icons
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Hide desktop icons  ³  ³ 02 ³  Show desktop icons  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.     
set /p crt=1 or 2 :
if %crt% equ 1 goto addnodesk
if %crt% equ 2 goto delnodesk
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err2
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err2
)
 
:addnodesk
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoDesktop /t REG_DWORD /d 1 /f
tskill explorer
echo.
echo.
echo Well considered "%crt%" choice !
echo.
echo Press any key...
pause >nul
goto menu
 
:delnodesk
reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoDesktop /f
tskill explorer
echo.
echo.
echo Well considered "%crt%" choice !
echo.
echo Press any key...
pause >nul
goto menu
 
 
:m3
:m03
cls
:err3
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Optimize All   º   The 15/03/2012 at 17:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Faster Boot, Run and Shutdown
echo.
set /p crt=1-Hard Disk Drive (HDD) or 2-Solid State Drive (SSD) ?                 (Choose 1 if you are not shure) :
if %crt% equ 1 goto hdd
if %crt% equ 2 goto ssd
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err3
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err3
)
goto m3

:hdd
echo.
echo   ÄÄÄÄ^> Optimize StartUp [Raphael BERTEAUD]
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v VerboseStatus /t REG_DWORD /d 1 /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction /v OptimizeComplete /t REG_SZ /d no /f
echo.
echo   ÄÄÄÄ^> Optimize Windows [Raphael BERTEAUD]
del "%windir%\temp" /f /s /q
md "%windir%\temp"
takeown /f "%windir%\Logs\CBS\CBS.log"
echo  >"%windir%\Logs\CBS\CBS.log"
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer /v AlwaysUnloadDll /t REG_DWORD /d 1 /f
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v SeparateProcess /t REG_DWORD /d 1 /f
reg add "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Memory Management" /v DisablePagingExecutive /t REG_DWORD /d 1 /f
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v MenuShowDelay /t REG_SZ /d 50 /f
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v LowLevelHooksTimeout /t REG_SZ /d 1000 /f
reg add "HKEY_USERS\.DEFAULT\Control Panel\Mouse" /v MouseHoverTime /t REG_SZ /d 50 /f
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoInternetOpenWith /t REG_DWORD /d 1 /f
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer /v link /t REG_BINARY /d 00000000 /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPer1_0Server /t REG_DWORD /d 12 /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPerServer /t REG_DWORD /d 12 /f
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Filesystem /v NtfsDisable8dot3NameCreation /t REG_DWORD /d 1 /f
echo.
set /p hibonoff=Do you want to disable hibernation ? (Y/N)                             (This frees up disk space) :
if "%hibonoff%"=="y" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutopthdd
)
if "%hibonoff%"=="yes" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutopthdd
)
if "%hibonoff%"=="o" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutopthdd
)
if "%hibonoff%"=="oui" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutopthdd
)
if "%hibonoff%"=="1" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutopthdd
)
echo Please wait...
powercfg -h on
echo Hibernation enabled.
:shutopthdd
echo.
echo   ÄÄÄÄ^> Optimize extinction [Raphael BERTEAUD]
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" /v WaitToKillServiceTimeout /t REG_SZ /d 1000 /f
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v AutoEndTasks /t REG_SZ /d 1 /f
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v WaitToKillAppTimeout /t REG_SZ /d 1000 /f
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v HungAppTimeout /t REG_SZ /d 1000 /f
reg add "HKEY_USERS\.DEFAULT\Control Panel\Desktop" /v WaitToKillAppTimeout /t REG_SZ /d 1000 /f
reg add "HKEY_USERS\.DEFAULT\Control Panel\Desktop" /v HungAppTimeout /t REG_SZ /d 1000 /f
echo.
echo You should Restart your computer to apply changes.
set /p crt=Would you like to restart now ? (Y/N) :
if "%crt%"=="y" (shutdown -r -t 00) else (goto result)

:ssd
echo.
echo   ÄÄÄÄ^> Optimize StartUp [Raphael BERTEAUD]
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v VerboseStatus /t REG_DWORD /d 1 /f
echo.
echo   ÄÄÄÄ^> Optimize Windows [Raphael BERTEAUD]
del "%windir%\temp" /f /s /q
md "%windir%\temp"
takeown /f "%windir%\Logs\CBS\CBS.log"
echo  >"%windir%\Logs\CBS\CBS.log"
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer /v AlwaysUnloadDll /t REG_DWORD /d 1 /f
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v SeparateProcess /t REG_DWORD /d 1 /f
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem /v NtfsDisableLastAccessUpdate /t REG_DWORD /d 1 /f
reg add "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Memory Management" /v DisablePagingExecutive /t REG_DWORD /d 1 /f
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v MenuShowDelay /t REG_SZ /d 50 /f
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v LowLevelHooksTimeout /t REG_SZ /d 1000 /f
reg add "HKEY_USERS\.DEFAULT\Control Panel\Mouse" /v MouseHoverTime /t REG_SZ /d 50 /f
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoInternetOpenWith /t REG_DWORD /d 1 /f
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer /v link /t REG_BINARY /d 00000000 /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPer1_0Server /t REG_DWORD /d 12 /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPerServer /t REG_DWORD /d 12 /f
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Filesystem /v NtfsDisable8dot3NameCreation /t REG_DWORD /d 1 /f
echo.
set /p hibonoff=Do you want to disable hibernation ? (Y/N)                             (This frees up disk space) :
if "%hibonoff%"=="y" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutoptssd
)
if "%hibonoff%"=="yes" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutoptssd
)
if "%hibonoff%"=="o" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutoptssd
)
if "%hibonoff%"=="oui" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutoptssd
)
if "%hibonoff%"=="1" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutoptssd
)
echo Please wait...
powercfg -h on
echo Hibernation enabled.
:shutoptssd
echo.
echo   ÄÄÄÄ^> Optimize extinction [Raphael BERTEAUD]
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" /v WaitToKillServiceTimeout /t REG_SZ /d 1000 /f
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v AutoEndTasks /t REG_SZ /d 1 /f
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v WaitToKillAppTimeout /t REG_SZ /d 1000 /f
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v HungAppTimeout /t REG_SZ /d 1000 /f
reg add "HKEY_USERS\.DEFAULT\Control Panel\Desktop" /v WaitToKillAppTimeout /t REG_SZ /d 1000 /f
reg add "HKEY_USERS\.DEFAULT\Control Panel\Desktop" /v HungAppTimeout /t REG_SZ /d 1000 /f
echo.
echo You should Restart your computer to apply changes.
set /p crt=Would you like to restart now ? (Y/N) :
if "%crt%"=="Y" (shutdown -r -t 00) else (goto result)
 

:m4
:m04
set crt=1
cls
:err4
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º    Auto-Logon    º   The 16/03/2012 at 17:39
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Automatic Session Login
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Desactivate AutoLogon ³  ³ 02 ³  Activate AutoLogon   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Auto logon, your session
echo.
set /p crt=1 or 2 :
set /a crt=%crt%-1
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AutoAdminLogon /t REG_SZ /d %crt% /f
if %crt% EQU 0 (
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultusername" /f >nul 2>nul
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultpassword" /f >nul 2>nul
set /a crt=%crt%+1
goto result
)
if %crt% gtr 1 (
cls
echo Invalid choice !
goto err4
)
if %crt% lss 0 (
cls
echo Invalid choice !
goto err4
)
set /a crt=%crt%+1
echo.
set /p user=Which session do you want to use as default ? :
echo.
set /p password=Password :
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultusername /t REG_SZ /d %user% /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultpassword /t REG_SZ /d %password% /f
echo.
echo Now you'll be logged as %user% on every startup.
echo.
echo    Note : If user name or password are wrong, the operation wont work !
echo.
echo WARNING : Your password is now visible in the registry !
echo           If you switch off the AutoLogon, your password will
echo           no longer be visible in the registry.
goto result
 
 
:m5
:m05
cls
:err5
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º    USB Detect    º   The 16/03/2012 at 21:25
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Administrative Tweak for USB
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Disable USB Detect   ³  ³ 02 ³   Enable USB Detect   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=1 or 2 :
echo.
if %crt% equ 1 (
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR" /v Start /t Reg_Dword /d "4" /f
echo.
echo    Your USB ports are now disabled !
)
if %crt% equ 2 (
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR" /v Start /t Reg_Dword /d "3" /f
echo.
echo    Your USB ports are now enabled !
)
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err5
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err5
)
echo.
goto result
 
 
:m6
:m06
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : ytrezAn
echo   º    CleanUpReg    º   The 16/03/2012 at 20:50
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Erase Traces of Uninstalled Programs
echo.
echo.
echo   ÄÄÄÄ^> Delete traces [ytrezAn]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f
echo.
echo   ÄÄÄÄ^> Delete traces [Pierre JOUSSAIN]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f
echo.
goto result
 
 
:m7
:m07
set crt=1
cls
:err7
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Menu Context   º   The 17/03/2012 at 21:00
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Add or Delete Context Menu Entries
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Add Option in the menu ³  ³ 02 ³ Del Option in the menu ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Menu Context affects the desktop context menu
echo.
set /p crt=Choice :
if %crt% equ 2 goto deleter
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err7
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err7
)
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Add Option to the Desktop Context Menu  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p name=How would you name the new context menu entry ? 
echo.
set /p comm=Which command do you want to associate to "%name%" ? 
echo.
echo.
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /f
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command /f
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command /ve /d %comm% /f
cls
:err71
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³      Add an icon       ³  ³ 03 ³ Continue without icon ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt=Choice :
if %crt% equ 2 goto iconadd
if %crt% gtr 3 (
cls
echo Invalid choice !
goto err71
)
if %crt% lss 2 (
cls
echo Invalid choice !
goto err71
)
goto next1
:iconadd
set /p icon=What icon do you want to use for the option "%name%" ? 
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v Icon /t REG_SZ /d %icon% /f
:next1
cls
:err72
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    04 : Show the option "%name%" only when shift is pressed
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    05 : Always show the option "%name%"
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=Choice :
if %crt% equ 4 reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v extended /t REG_SZ /f
if %crt% equ 5 goto placernext
if %crt% gtr 5 (
cls
echo Invalid choice !
goto err72
)
if %crt% lss 4 (
cls
echo Invalid choice !
goto err72
)
:placernext
cls
:err73
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    06 : Place the option "%name%" at the bottom
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    07 : Place the option "%name%" at the top
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    08 : Don't position the option "%name%"
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
set crt=
set /p crt=Choice :
if %crt% EQU 6 goto bottompos
if %crt% EQU 7 goto toppos
if %crt% EQU 8 goto nopos
if %crt% gtr 8 (
cls
echo Invalid choice !
goto err73
)
if %crt% lss 6 (
cls
echo Invalid choice !
goto err73
)
:bottompos
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v position /t REG_SZ /d bottom /f
goto nopos
:toppos
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v position /t REG_SZ /d top /f
goto nopos
:nopos
echo.
echo.
echo   Operation done ! The option "%name%" has been
echo   successfully added to the desktop context menu !
goto result
:deleter
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³      Delete Option      ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p name1=Which context menu entry do you want to remove :
reg delete HKEY_CLASSES_ROOT\Directory\Background\shell\%name1% /f >nul 2>nul
echo.
echo   The "%name1%" entry has been successfully
echo   deleted from the desktop context menu !
goto result


 
:m8
:m08
cls
:err8
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º    Reg Backup    º   The 18/03/2012 at 18:50
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Registry Backup Tool [Raphael B. idea]
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³      Reg Backup      ³  ³ 02 ³     Reg Restore     ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
if not exist "%windir%\RegBackUp" echo   WARNING : You do not have a backup !
if exist "%windir%\RegBackUp" (
echo   Note : You have a backup.
type "%windir%\RegBackup\datinfo.rbt" 2>nul
echo.
)
set /p crt=Choice :
echo.
if %crt% equ 1 goto backup
if %crt% equ 2 if exist "%windir%\RegBackUp" goto restore
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err8
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err8
)
:backup
echo   Loading, backup in progress...
if not exist "%windir%\RegBackUp" md "%windir%\RegBackUp"
reg export HKLM "%windir%\RegBackUp\HKLM.reg" /y
reg export HKCR "%windir%\RegBackUp\HKCR.reg" /y
reg export HKCU "%windir%\RegBackUp\HKCU.reg" /y
reg export HKCC "%windir%\RegBackUp\HKCC.reg" /y
reg export HKU "%windir%\RegBackUp\HKU.reg" /y
echo   Your last registry backup was made on %date% at %time%. >"%windir%\RegBackup\datinfo.rbt"
echo   You've restored the registry backup of %date%, %time%. >"%windir%\RegBackup\restdatinfo.rbt"
echo.
echo   Backup in : "%windir%\RegBackUp\"
echo.
goto result
:restore
echo   Loading, restore in progress...
echo.
reg import "%windir%\RegBackUp\HKLM.reg" 2>nul
reg import "%windir%\RegBackUp\HKCR.reg" 2>nul
reg import "%windir%\RegBackUp\HKCU.reg" 2>nul
reg import "%windir%\RegBackUp\HKCC.reg" 2>nul
reg import "%windir%\RegBackUp\HKU.reg" 2>nul
echo.
type "%windir%\RegBackup\restdatinfo.rbt" 2>nul
echo.
goto result
 
 
:m9
:m09
cls
:err9
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º   Startup Soft   º   The 19/03/2012 at 18:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Modify the Autorun Program List
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³      Add program      ³  ³ 02 ³    Delete program    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=1 or 2 :
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err9
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err9
)
echo.
set /p prt=Program path (without quotes) :
echo.
if %crt% equ 1 reg add HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "%prt%" /t REG_SZ /d "%prt%" /f
if %crt% equ 2 reg delete HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "%prt%" /f
goto result
 
 
:m10
cls
:err10
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º     Folder     º   The 19/03/2012 at 18:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Folders Properties [Pierre J. idea]
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show or Hide hidden files ^& Folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Show or hide known files extension  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=Choice :
if %crt% equ 1 goto hiddenFF
if %crt% equ 2 goto knownEF
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err10
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err10
)
:hiddenFF
cls
:err102
echo.
echo             ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo             º   Show or Hide hidden files ^& Folders   º
echo             ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show hidden files ^& folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³ Hide hidden files ^& folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt=1 or 2 :
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err102
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err102
)
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Hidden /t REG_DWORD /d %crt% /f
tskill explorer
goto result
 
:knownEF
cls
:err103
echo.
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º   Show or hide known files extension   º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show known files extensions ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³ Hide known files extensions ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
set crt=
set /p crt=1 or 2 :
set /a crt=%crt%-1
if %crt% gtr 1 (
cls
echo Invalid choice !
goto err103
)
if %crt% lss 0 (
cls
echo Invalid choice !
goto err103
)
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v HideFileExt /t REG_DWORD /d %crt% /f
set /a crt=%crt%+1
tskill explorer
goto result
 
 
:m11
cls
:err11
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º     Taskbar     º   The 22/03/2012 at 22:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Customize Taskbar ^& Start Menu
echo.
echo.
echo Customize the Start Menu showing or hidding buttons.
echo.
echo 1.Choose shown buttons, 2.Choose hidden buttons, 3.Others
echo.
set /p crt=Choice :
if %crt% equ 1 goto showb
if %crt% equ 2 goto hideb
if %crt% equ 3 goto othersb
if %crt% gtr 3 (
cls
echo Invalid choice !
goto err11
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err11
)
:showb
cls
:err112
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Choose buttons you want to show   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 1.Hard Disk Dirve       ³ 4.Music             ³
echo   ³ 2.User folder           ³ 5.Pictures          ³
echo   ³ 3.Documents             ³ 6.Videos            ³
echo   ³ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄij
echo   ³ 7.Control Panel         ³ 11.Recorded TV      ³
echo   ³ 8.Administrative Tools  ³ 12.Downloads        ³
echo   ³ 9.Run...                ³ 13.Help ^& Support   ³
echo   ³ 10.Network              ³ 14.Games            ³
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo Note : choose all options you want to show in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:1choice
set cho=
set /p cho=Choice :
if %cho% equ 1 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 2 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 3 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 4 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 5 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 6 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 7 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 8 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 9 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 10 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 11 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 12 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 13 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 1 /f &goto 1choice
if %cho% equ 14 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 1 /f &goto 1choice
if "%cho%"=="quit" tskill explorer & goto result
if %cho% gtr 14 (
cls
echo Invalid choice !
goto err 112
)
if %cho% lss 1 (
cls
echo Invalid choice !
goto err 112
)
:hideb
cls
:err113
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³   Choose buttons you want to hide   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 1.Hard Disk Dirve       ³ 4.Music             ³
echo   ³ 2.User folder           ³ 5.Pictures          ³
echo   ³ 3.Documents             ³ 6.Videos            ³
echo   ³ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄij
echo   ³ 7.Control Panel         ³ 11.Recorded TV      ³
echo   ³ 8.Administrative Tools  ³ 12.Downloads        ³
echo   ³ 9.Run...                ³ 13.Help ^& Support   ³
echo   ³ 10.Network              ³ 14.Games            ³
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo Note : choose all options you want to hide in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:2choice
set cho=
set /p cho=Choice :
if %cho% equ 1 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 2 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 3 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 4 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 5 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 6 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 7 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 8 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 9 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 10 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 11 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 12 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 13 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 0 /f &goto 2choice
if %cho% equ 14 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 0 /f &goto 2choice
if "%cho%"=="quit" tskill explorer & goto result
if %cho% gtr 14 (
cls
echo Invalid choice !
goto err113
)
if %cho% lss 1 (
cls
echo Invalid choice !
goto err113
)
:othersb
cls
:err114
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 03 ³  Power button action  ³   ³ 04 ³ Color compressed folders ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo                ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo                ³ 05 ³Set maximum files in Jump List³
echo                ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p "crt=Choice : "
if %crt% equ 3 goto pwract
if %crt% equ 4 goto clrcpsdfldr
if %crt% equ 5 goto stmxflsjmplst
if %crt% gtr 5 (
cls
echo Invalid choice !
goto err114
)
if %crt% lss 3 (
cls
echo Invalid choice !
goto err114
)
:pwract
cls
:err115
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º    Power button action    º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Set to power button function of :
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³    Switch User    ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 02 ³      Log off      ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 03 ³   Lock Session    ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 04 ³ Restart Computer  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 05 ³       Sleep       ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 06 ³     Hibernate     ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 07 ³ Shutdown computer ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cha=Choice :
if %cha% equ 1 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 256 /f
if %cha% equ 2 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 1 /f
if %cha% equ 3 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 512 /f
if %cha% equ 4 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 4 /f
if %cha% equ 5 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 16 /f
if %cha% equ 6 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 64 /f
if %cha% equ 7 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 2 /f
if %cha% gtr 7 (
cls
echo Invalid choice !
goto err115
)
if %cha% lss 1 (
cls
echo Invalid choice !
goto err115
)
tskill explorer &goto result
 
:clrcpsdfldr
cls
:err116
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 04 ³  Color compressed folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   1.Activate color compressed folders
echo   2.Desactivate color compressed folders
echo.
set /p chz=Choice :
if %chz% equ 1 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v ShowCompColor /t REG_DWORD /d 1 /f
if %chz% equ 2 reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v ShowCompColor /t REG_DWORD /d 0 /f
if %chz% gtr 2 (
cls
echo Invalid choice !
goto err116
)
if %chz% lss 1 (
cls
echo Invalid choice !
goto err116
)
goto result
 
:stmxflsjmplst
cls
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 05 ³ Set maximum files in jump list ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set chr=
set /p chr=Choice (0-9999...) :
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_JumpListItems /t REG_DWORD /d %chr% /f
goto result
 
 
:m12
cls
:err12
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º   USB Autorun   º   The 31/03/2012 at 21:04
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : USB Autorun Security Tweak
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Enable Autorun    ³  ³ 02 ³   Disable Autrun    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.     
set /p crt=1 or 2 :
if %crt% equ 1 (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x91
echo.
echo    Note : Autorun function is now enabled,
echo           please pay attention, if the removable media is infected,
echo           your computer could also be infected
echo           because of the Autorun function.
)
if %crt% equ 2 (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x4
echo.
echo    Note : Autorun function is now disabled,
echo           it could be binding for you,
echo           but it's safer for your computer
echo           and its security.
)
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err12
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err12
)
goto result


:m13
mode con cols=135 lines=32
color f0
cls
echo (en) Help Notes : Please run Registry Tool as Administrator.
echo.
echo Registry backups : It is highly preferable to save the entire registry before starting Registry Tool.
echo Note that this backup is performed automatically by default at the first startup of the program.
echo The files are stored in the directory "RegBackup" Windows.
echo If there is a problem with the automatic backup please use a specially designed program for this (ERUNT for example).
echo We are not responsible of any eventual damage caused by Registry Tool.
echo.
echo.
echo (fr) Notes d'aide : Veuillez executer Registry Tool en tant qu'administrateur.
echo.
echo Sauvegardes du registre : il est fortement preferable de sauvegarder toute la base de registre avant de demarrer Registry Tool.
echo Notez que cette sauvegarde est effectuee automatiquement par defaut au premier demarrage du programme.
echo Les fichiers sont stockes dans le repertoire "RegBackUp" de Windows.
echo En cas de probleme avec la sauvegarde utilisez un programme specialement concu pour cela (ERUNT par exemple).
echo Nous ne seront en aucun cas tenus responsables des eventuels degats que pourraient vous causer Registry Tool.
echo. 
echo.
echo (es) Ayuda : Por favor, ejecute Registry Tool como administrador.
echo.
echo Las copias de seguridad del registro : Es altamente preferible guardar todo el registro antes de iniciar Registry Tool.
echo Tenga en cuenta que esta copia de seguridad se realiza automaticamente de manera predeterminada en el primer inicio del programa.
echo Los archivos se guardan en el directorio "RegBackup" de Windows.
echo Si un problema ocurre con la copia de seguridad por favor utiliza un programa especialmente diseñado para este (por ejemplo ERUNT).
echo No somos responsables de de cualquier daño eventual provocado por Registry Tool.
echo.
echo.
echo For questions, comments, or bug reports, please feel free
echo to contact us at the following address : raf.webmaster@octavener.org
echo.
echo Press any key...
pause >nul
color 0f
mode con cols=71 lines=24
goto menu

 
:result
echo.
echo.
echo   Well considered "%crt%" choice !
echo.
echo Press any key...
pause >nul
goto menu

:classexit
mode con cols=84 lines=69
cls
echo.
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                     '.               ++++++++.               '`                   
echo                    '''.            :++++++++++'.            '''`                   
echo                   '''''.        ;+++++++++++++++++,        '''''`                 
echo                  '''''''.    `++++++++++++++++++++++;     '''''''`                 
echo                 '''''''''.  ++++++++++++++++++++++++++,  '''''''''`               
echo                ''''''''''':+++++++++++++++++++++++++++++'''''''''''`               
echo                .'''''''''++++++++++++++++++++++++++++++++''''''''''               
echo                 .'''''''++++++++++++++++++++++++++++++++++''''''''                 
echo                  .'''''+++++++++++++@#:.` `.;@@#+++++++++++''''''                 
echo                   .'''+++++++++++#'            .##++++++++++''''                   
echo                    .'++++++++++#'                 ##+++++++++''                   
echo                     :+++++++++@                    ,@+++++++++                     
echo                     ++++++++++                       @++++++++'                   
echo                    +++++++++'                         @++++++++`                   
echo                   `+++++++++                           @++++++++                   
echo                   ++++++++@                            `@+++++++.                 
echo                  `++++++++  Registry Tool will now exit ;#+++++++                 
echo                  '+++++++:                               @+++++++                 
echo                  ++++++++                                ,#++++++;                 
echo                  +++++++@###############################, @+++++++                 
echo                 :++++++,`:@@@@@@@@@@@#.```#+@@@@@@@@@@@@:  +++++++                 
echo                 +++++++  ,@@@@@@@@@@@@@:  '+@@@#@@#@@@@@:  '++++++.               
echo         +++++++++++++++  ,@@@@@@@@@@@@@@  '++##@@@@@@@@@:  `++++++++++++++`       
echo         +++++++++++++++  ,@@@@+++++#@@@@  `.,,,+@@@+,,,,`   ++++++++++++++`       
echo         ++++++++++++++;  ,@#@#      ##@@       ;@@#'        ++++++++++++++`       
echo         ++++++++++++++;  ,@@@#  ;;;'@@@@       ;@#@'        ++++++++++++++`       
echo         ++++++++++++++.  ,#@## @@@@#@@@#       '@@@+        ++++++++++++++`       
echo         ++++++++++++++;  ,++#' :##@+@@#        ;#@+;        ++++++++++++++`       
echo         ++++++++++++++;  ,####  ,#+#@.         ;##@;        ++++++++++++++`       
echo         +++++++++++++++   ;###   `++##,        `+++'       `++++++++++++++`       
echo         ::::::::+++++++,   ;@+    `#+#+'         ;@'       :++++++;:::::::`       
echo                 #######@    ,;      '@@##+++++++++@@+++++++#++++++                 
echo                 ;#######`            `````````````````````@+++++++                 
echo                  ########                                 @+++++++                 
echo                  #######@     Thanks for having used     ##++++++,                 
echo                  '########        this software !       `@+++++++                 
echo                   ########.                             @#++++++'                 
echo                   +#######@                            '#+++++++                   
echo                    ########@                          :@++++++++                   
echo                    '########@                        :@++++++++                   
echo                     #########@                      '@++++++++:                   
echo                     ##########@:                   @@+++++++++.                   
echo                    #############@.               '@#+++++++++''.                   
echo                   ################@;          .#@#++++++++++''''.                 
echo                  ###################@@@#+++@@@#++++++++++++''''''.                 
echo                 #####################+++++++++++++++++++++''''''''.               
echo                +#####################++++++++++++++++++++''''''''''.               
echo               ,###########`##########++++++++++++++++++::''''''''''               
echo               +##########`  ,########+++++++++++++++++   :''''''''                 
echo               ##########`     :######+++++++++++++++      :''''''                 
echo              `#########`         '###++++++++++++,         :''''                   
echo              ;########`             .++++++++;`             :''                   
echo              #######+`               ++++++++:               :                     
echo              #+:`                    ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ::::::::,   
ping localhost /n 6 >nul
exit                                 


Et voici les exécutables de Registry Tool pour 32 ou 64 bits :
Registry Tool x86 : http://www.sendspace.com/file/6zjgeb
Registry Tool x64 : http://www.sendspace.com/file/rhspln

N'hésitez pas à faire part de vos critiques Wink




______________________________________________________
Cordialement, </Troud>.
Répondre en citant
Message Regrouper ces connaissances 
Salut à tous, me revoilà, avec la dernière mise à jour de Registry Tool (1.2.1), qui apporte plein de modifications graphiques, améliorations des commandes 2, 3, 4, 5, 7, 8 et 12 principalement, bref GROSSE UPDATE !! Smile
Code:

@echo off
title Registry Tool V1.2.1
color 0f
mode con cols=71 lines=24

if exist "%windir%\System32\reg.*" goto tskilldetect
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º  Reg Undetected  º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Command Reg [Not found]
echo.
echo   Please, download the command reg.[exe]
echo   and place this file in %windir%\System32\
echo.
echo   If the problem persists, contact a developer.
echo.
echo Press any key...
pause >nul
exit

:tskilldetect
if exist "%windir%\system32\tskill.*" goto start
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º  tskill Undetected  º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Command tskill [Not found]
echo.
echo   The absence of this command could cause
echo   problems to Registry Tool runtime.
echo.
echo   To ensure a better functioning of the software,
echo   please, download the command tskill.[exe]
echo   and place this file in %windir%\System32\
echo.
echo   If the problem persists, contact a developer.
echo.
echo Press any key...
pause >nul

:start
 
if exist "%windir%\RegBackUp\*.reg" goto backupdetected
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º    Reg BackUp    º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Loading, backup in progress...
echo.
echo step 1/5
md "%windir%\RegBackUp" >nul 2>nul
reg export HKLM "%windir%\RegBackUp\HKLM.reg" >nul 2>nul
echo Done !
echo.
echo step 2/5
reg export HKCR "%windir%\RegBackUp\HKCR.reg" >nul 2>nul
echo Done !
echo.
echo step 3/5
reg export HKCU "%windir%\RegBackUp\HKCU.reg" >nul 2>nul
echo Done !
echo.
echo step 4/5
reg export HKCC "%windir%\RegBackUp\HKCC.reg" >nul 2>nul
echo Done !
echo.
echo step 5/5
reg export HKU "%windir%\RegBackUp\HKU.reg" >nul 2>nul
echo Done !
echo   Your last registry backup was made on %date% at %time%. >"%windir%\RegBackup\datinfo.rbt"
echo   You've restored the registry backup of %date%, %time%. >"%windir%\RegBackup\restdatinfo.rbt"
reg add HKEY_CLASSES_ROOT\.rbt /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\.rbt /ve /t REG_SZ /d rbtfile /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /ve /t REG_SZ /d "Registry Backup Tool Data Document" /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /v AlwaysShowExt /t REG_SZ /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\DefaultIcon /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\DefaultIcon /ve /t REG_SZ /d "%SystemRoot%\system32\setupapi.dll,12" /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open\command /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open\command /ve /t REG_SZ /d unknown /f >nul 2>nul
echo.
echo   Backup in : "%windir%\RegBackUp\"
echo.
echo Press any key...
pause >nul
:backupdetected
 
:menu
set crt=enu
cls
:errenu
echo.
echo                     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                     º                             º
echo                     º        Registry Tool        º
echo                     º                             º
echo                     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   IP Proxy   ³  ³ 02 ³ Hide Desktop ³  ³ 03 ³ Optimize All ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 04 ³  Auto-Logon  ³  ³ 05 ³  USB Detect  ³  ³ 06 ³  CleanUpReg  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 07 ³ Menu Context ³  ³ 08 ³  Reg Backup  ³  ³ 09 ³ Startup Soft ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 10 ³    Folder    ³  ³ 11 ³ Menu Taskbar ³  ³ 12 ³ USB Autorun  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo                          ³ 13 ³     Help     ³
echo                          ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo            Note : Please run Registry Tool as Administrator         
echo.
set /p crt=Choice :
if %crt% geq 0 (
if %crt% leq 13 (
goto m%crt%
) else (
goto classexit
)
)

 
:m0
:m00
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Version : 1.2.1
echo   º   Registry Tool   º   Modify : Big updates on almost all options
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   The 16/08/2014 at 00:51
echo.
echo  Created by : Pierre JOUSSAIN ^& Raphael BERTEAUD
echo  Created for : batch.xoo.it ^& Everyone else
echo.
echo  Developed by :
echo    ÄRaphael BERTEAUD [^</Troud>] ÍÍÍÍ 6 commands + help
echo    ÄPierre JOUSSAIN [Pierrot] ÍÍÍÍÍÍ 5 commands
echo    ÄUnknown [ytrezAn] ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ 1 command
echo.
echo For questions, comments, or bug reports, please feel free
echo to contact us at the following address : raf.webmaster@octavener.org
echo.
echo Press any key...
pause >nul
goto menu
 
:m1
:m01
cls
:err
set oot=1
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º     IP Proxy     º   The 15/03/2012 at 19:29
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Configure Proxy
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³     Desactivate      ³  ³ 02 ³       Activate       ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p oot=1 or 2 :
set /a oot=%oot%-1
if %oot% equ 0 set crt=ProxyOFF
if %oot% equ 0 goto oot
if %oot% gtr 1 (
cls
echo Invalid Choice !
goto err
)
if %oot% lss 0 (
cls
echo Invalid Choice !
goto err
)
echo.
echo.
echo   Please, choose an IP adress (ex : 255.18.42.20)
echo.
set /p crt=IP :
:oot
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyenable /t Reg_Dword /d "%oot%" /f >nul 2>nul
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyserver /t Reg_SZ /d "%crt%" /f >nul 2>nul
if %oot% equ 1 (
echo.
echo Proxy Enabled ! ^(%crt%^)
) else (
echo.
echo Proxy Disabled !
)
goto result
 
 
:m2
:m02
cls
:err2
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Hide Desktop   º   The 15/03/2012 at 17:31
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Show or Hide Desktop Icons
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Show desktop icons  ³  ³ 02 ³  Hide desktop icons  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.     
set /p crt=1 or 2 :
set /a crt=%crt%-1
if %crt% gtr 1 (
cls
echo Invalid choice !
goto err2
)
if %crt% lss 0 (
cls
echo Invalid choice !
goto err2
)
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoDesktop /t REG_DWORD /d %crt% /f >nul 2>nul
if %crt% equ 1 (
echo.
echo Desktop icons disabled.
) else (
echo.
echo Desktop icons enabled.
)
tskill explorer
set /a crt=%crt%+1
goto result


:m3
:m03
cls
:err3
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Optimize All   º   The 15/03/2012 at 17:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Faster Boot, Runtime and Shutdown
echo.
echo   ÄÄÄÄ^> Optimize StartUp [Raphael BERTEAUD]
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v VerboseStatus /t REG_DWORD /d 1 /f >nul 2>nul
echo Verbose Mode Enabled.
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction /v OptimizeComplete /t REG_SZ /d no /f >nul 2>nul
echo Startup Defragmentation Disabled.
echo.
echo   ÄÄÄÄ^> Optimize Windows [Raphael BERTEAUD]
del "%windir%\temp" /f /s /q >nul 2>nul
del "%localappdata%\Microsoft\Windows\Temporary Internet Files\*.*" /f /s /q >nul 2>nul
echo Temporary Files Deleted.
del "%windir%\prefetch\*.*" /f /s /q >nul 2>nul
echo Prefetch Folder Cleared.
del index.dat /f /s /q >nul 2>nul
echo "Index.dat" Cleared.
takeown /f "%windir%\Logs\CBS\CBS.log" >nul 2>nul
echo  >"%windir%\Logs\CBS\CBS.log"
echo "CBS.log" Cleared.
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer /v AlwaysUnloadDll /t REG_DWORD /d 1 /f >nul 2>nul
echo Unloading ".dll" Files Enabled.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v SeparateProcess /t REG_DWORD /d 1 /f >nul 2>nul
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem /v NtfsDisableLastAccessUpdate /t REG_DWORD /d 1 /f >nul 2>nul
echo Separation of Processes Enabled.
reg add "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Memory Management" /v DisablePagingExecutive /t REG_DWORD /d 1 /f >nul 2>nul
echo Paging Executive Disabled (Disable Kernel ^& Hardware Drivers Swapping)
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v MenuShowDelay /t REG_SZ /d 50 /f >nul 2>nul
reg add "HKEY_USERS\.DEFAULT\Control Panel\Mouse" /v MouseHoverTime /t REG_SZ /d 50 /f >nul 2>nul
echo Speeding Up Explorer Animations.
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v LowLevelHooksTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoInternetOpenWith /t REG_DWORD /d 1 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPer1_0Server /t REG_DWORD /d 12 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPerServer /t REG_DWORD /d 12 /f >nul 2>nul
echo Extending Connection Limits Per Server.
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Filesystem /v NtfsDisable8dot3NameCreation /t REG_DWORD /d 1 /f >nul 2>nul
echo NTFS "8.3 Name Creation" Disabled.
echo.
set /p hibonoff=Do you want to disable hibernation ? (Y/N)                             (This frees up disk space) :
if "%hibonoff%"=="y" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutopthdd
)
if "%hibonoff%"=="yes" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutopthdd
)
if "%hibonoff%"=="o" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutopthdd
)
if "%hibonoff%"=="oui" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutopthdd
)
if "%hibonoff%"=="1" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutopthdd
)
echo Please wait...
powercfg -h on
echo Hibernation enabled.
:shutopthdd
echo.
echo   ÄÄÄÄ^> Optimize extinction [Raphael BERTEAUD]
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" /v WaitToKillServiceTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v AutoEndTasks /t REG_SZ /d 1 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v WaitToKillAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v HungAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_USERS\.DEFAULT\Control Panel\Desktop" /v WaitToKillAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_USERS\.DEFAULT\Control Panel\Desktop" /v HungAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
echo Reduction of Killing Applications ^& Services' Delays.
echo.
echo You should Restart your computer to apply changes.
set /p crt=Would you like to restart now ? (Y/N) :
if "%crt%"=="y" (shutdown -r -t 00) else (goto result)


:m4
:m04
set crt=1
cls
:err4
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º    Auto-Logon    º   The 16/03/2012 at 17:39
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Automatic Session Logon
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Desactivate AutoLogon ³  ³ 02 ³  Activate AutoLogon   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Logon automatically to the session you want
echo.
set /p crt=1 or 2 :
set /a crt=%crt%-1
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AutoAdminLogon /t REG_SZ /d %crt% /f >nul 2>nul
if %crt% EQU 0 (
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultusername" /f >nul 2>nul
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultpassword" /f >nul 2>nul
echo.
echo Auto logon disabled.
set /a crt=%crt%+1
goto result
) else (
echo.
echo Auto logon enabled.
)
if %crt% gtr 1 (
cls
echo Invalid choice !
goto err4
)
if %crt% lss 0 (
cls
echo Invalid choice !
goto err4
)
set /a crt=%crt%+1
echo.
:askuseral
set /p user=Which session do you want to use as default ? :
if "%user%"=="" (
echo.
echo User cannot be empty !
echo.
echo.
goto askuseral
)
echo.
:askpassword
set /p password=Password :
set /p rpassword=Reenter password :
if not "%password%"=="%rpassword%" (
echo.
echo Passwords do not match !
echo.
echo.
goto askpassword
) else (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultusername /t REG_SZ /d %user% /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultpassword /t REG_SZ /d %password% /f >nul 2>nul
)
echo.
echo Now you'll be logged as %user% on every startup.
echo.
echo    Note : If user name or password are wrong, the operation wont work !
echo.
echo WARNING : Your password is now visible in the registry !
echo           If you switch off the AutoLogon, your password will
echo           no longer be visible in the registry.
goto result
 
 
:m5
:m05
cls
:err5
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º    USB Detect    º   The 16/03/2012 at 21:25
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Administrative Tweak for USB
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Enable USB Detect   ³  ³ 02 ³  Disable USB Detect  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=1 or 2 :
set /a crt=%crt%+2
if %crt% gtr 4 (
cls
echo Invalid choice !
goto err5
)
if %crt% lss 3 (
cls
echo Invalid choice !
goto err5
)
echo.
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR" /v Start /t Reg_Dword /d "%crt%" /f >nul 2>nul
echo.
if %crt% equ 4 (
echo Disabling USB detection.
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies /v WriteProtect /t REG_DWORD /d 1 /f >nul 2>nul
echo.
echo Enabling USB write-protection.
echo.
echo    Your USB ports are now disabled !
echo.
echo You will have to reboot for the changes to take effect.
set /p restartprompt="Would you like to restart now ? (Y/N) : "
if "%restartprompt%"=="y" (shutdown -r -t 00) else (
set /a crt=%crt%-2
goto result
)
) else (
echo Enabling USB detection.
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies /v WriteProtect /t REG_DWORD /d 0 /f >nul 2>nul
echo.
echo Disabling USB write-protection.
echo.
echo    Your USB ports are now enabled !
echo.
echo You will have to reboot for the changes to take effect.
set /p restartprompt="Would you like to restart now ? (Y/N) : "
if "%restartprompt%"=="y" (shutdown -r -t 00) else (
set /a crt=%crt%-2
goto result
)
)
 
 
:m6
:m06
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : ytrezAn
echo   º    CleanUpReg    º   The 16/03/2012 at 20:50
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Erase Traces of Uninstalled Programs
echo.
echo.
echo   ÄÄÄÄ^> Delete traces [ytrezAn]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f >nul 2>nul
echo "Microsoft\Tracing" key ^& subkeys cleared.
echo.
echo   ÄÄÄÄ^> Delete traces [Pierre JOUSSAIN]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f >nul 2>nul
echo "Software\Microsoft\Tracing" key ^& subkeys cleared.
echo.
goto result
 
 
:m7
:m07
set crt=1
cls
:err7
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Menu Context   º   The 17/03/2012 at 21:00
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Add or Delete Context Menu Entries
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Add Option in the menu ³  ³ 02 ³ Del Option in the menu ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Menu Context affects the desktop context menu
echo.
set /p crt=1 or 2 :
if %crt% equ 2 goto deleter
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err7
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err7
)
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Add Option to the Desktop Context Menu  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
:choosenameentry
set /p name=How would you name the new context menu entry ? 
if "%name%"=="" (
echo.
echo The name entry cannot be empty !
echo.
echo.
goto choosenameentry
)
echo.
:choosecommandentry
set /p comm=Which command do you want to associate to "%name%" ? 
if "%comm%"=="" (
echo.
echo The command cannot be empty !
echo.
echo.
goto choosecommandentry
)
echo.
echo.
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command /ve /d %comm% /f >nul 2>nul
cls
:err71
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³      Add an icon       ³  ³ 03 ³ Continue without icon ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cicort=2 or 3 :
if %cicort% equ 2 goto iconadd
if %cicort% gtr 3 (
cls
echo Invalid choice !
goto err71
)
if %cicort% lss 2 (
cls
echo Invalid choice !
goto err71
)
goto next1
:iconadd
set /p icon=What icon do you want to use for the option "%name%" ? 
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v Icon /t REG_SZ /d %icon% /f >nul 2>nul
:next1
cls
:err72
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    04 : Show the option "%name%" only when shift is pressed
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    05 : Always show the option "%name%"
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cshextrt=4 or 5 :
if %cshextrt% equ 4 reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v extended /t REG_SZ /f >nul 2>nul
if %cshextrt% equ 5 goto placernext
if %cshextrt% gtr 5 (
cls
echo Invalid choice !
goto err72
)
if %cshextrt% lss 4 (
cls
echo Invalid choice !
goto err72
)
:placernext
cls
:err73
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    06 : Place the option "%name%" at the bottom
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    07 : Place the option "%name%" at the top
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    08 : Don't position the option "%name%"
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
set /p cplacert=6, 7 or 8 :
if %cplacert% EQU 6 goto bottompos
if %cplacert% EQU 7 goto toppos
if %cplacert% EQU 8 goto nopos
if %cplacert% gtr 8 (
cls
echo Invalid choice !
goto err73
)
if %cplacert% lss 6 (
cls
echo Invalid choice !
goto err73
)
:bottompos
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v position /t REG_SZ /d bottom /f >nul 2>nul
goto nopos
:toppos
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v position /t REG_SZ /d top /f >nul 2>nul
:nopos
cls
echo.
echo   Option added to desktop context menu.
echo.
echo   Informations :
echo      Name : %name%
echo      Command : %comm%
if defined icon echo      Icon : %icon%
if %cshextrt% equ 4 (echo      Type : Extended desktop menu only) else (echo      Type : Classic desktop menu)
if %cplacert% equ 6 echo      Position : Bottom
if %cplacert% equ 7 echo      Position : Top
set crt=%cplacert%
goto result
:deleter
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³      Delete Option      ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
:askdelentrycm
set /p name1=Which context menu entry do you want to remove :
if "%name1%"=="" (
echo.
echo Menu entry cannot be empty !
echo.
echo.
goto askdelentrycm
)
reg delete HKEY_CLASSES_ROOT\Directory\Background\shell\%name1% /f >nul 2>nul
echo.
echo   The "%name1%" entry has been successfully
echo   deleted from the desktop context menu !
goto result


 
:m8
:m08
cls
:err8
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º    Reg Backup    º   The 18/03/2012 at 18:50
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Registry Backup Tool [Raphael B. idea]
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³      Reg Backup      ³  ³ 02 ³     Reg Restore     ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
if not exist "%windir%\RegBackUp" (
echo   WARNING : You do not have a backup !
echo.
)
if exist "%windir%\RegBackUp\*.reg" (
echo   Note : You have a backup.
if exist "%windir%\RegBackUp\datinfo.rbt" (
type "%windir%\RegBackup\datinfo.rbt" 2>nul
echo.
) else (
echo.
)
)
set /p crt=1 or 2 :
echo.
if %crt% equ 1 goto backup
if %crt% equ 2 if exist "%windir%\RegBackUp" (
goto restore
) else (
cls
echo You don't have any registry backup, so you cannot restore it.
goto err8
)
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err8
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err8
)
:backup
echo   Loading, backup in progress...
if not exist "%windir%\RegBackUp" md "%windir%\RegBackUp"
echo.
echo step 1/5
reg export HKLM "%windir%\RegBackUp\HKLM.reg" /y >nul 2>nul
echo Done !
echo.
echo step 2/5
reg export HKCR "%windir%\RegBackUp\HKCR.reg" /y >nul 2>nul
echo Done !
echo.
echo step 3/5
reg export HKCU "%windir%\RegBackUp\HKCU.reg" /y >nul 2>nul
echo Done !
echo.
echo step 4/5
reg export HKCC "%windir%\RegBackUp\HKCC.reg" /y >nul 2>nul
echo Done !
echo.
echo step 5/5
reg export HKU "%windir%\RegBackUp\HKU.reg" /y >nul 2>nul
echo Done !
echo.
echo   Your last registry backup was made on %date% at %time%. >"%windir%\RegBackup\datinfo.rbt"
echo   You've restored the registry backup of %date%, %time%. >"%windir%\RegBackup\restdatinfo.rbt"
echo.
echo   Backup in : "%windir%\RegBackUp\"
echo.
goto result
:restore
echo   Loading, restore in progress...
echo.
echo step 1/5
reg import "%windir%\RegBackUp\HKLM.reg" >nul 2>nul
echo Done !
echo.
echo step 2/5
reg import "%windir%\RegBackUp\HKCR.reg" >nul 2>nul
echo Done !
echo.
echo step 3/5
reg import "%windir%\RegBackUp\HKCU.reg" >nul 2>nul
echo Done !
echo.
echo step 4/5
reg import "%windir%\RegBackUp\HKCC.reg" >nul 2>nul
echo Done !
echo.
echo step 5/5
reg import "%windir%\RegBackUp\HKU.reg" >nul 2>nul
echo Done !
echo.
type "%windir%\RegBackup\restdatinfo.rbt" 2>nul
echo.
goto result
 
 
:m9
:m09
cls
:err9
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º   Startup Soft   º   The 19/03/2012 at 18:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Modify the Autorun Program List
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³      Add program      ³  ³ 02 ³    Delete program    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=1 or 2 :
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err9
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err9
)
echo.
set /p prt="Program path (without quotes) : "
echo.
if %crt% equ 1 (
reg add HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "%prt%" /t REG_SZ /d "%prt%" /f >nul 2>nul
echo "%prt%" has been added to the startup programs list.
)
if %crt% equ 2 (
reg delete HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "%prt%" /f >nul 2>nul
echo "%prt%" has been deleted from the startup programs list.
)
goto result
 
 
:m10
cls
:err10
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º     Folder     º   The 19/03/2012 at 18:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Folders Properties [Pierre J. idea]
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show or Hide hidden files ^& Folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Show or hide known files extension  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=1 or 2 :
if %crt% equ 1 goto hiddenFF
if %crt% equ 2 goto knownEF
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err10
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err10
)
:hiddenFF
cls
:err102
echo.
echo             ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo             º   Show or Hide hidden files ^& Folders   º
echo             ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show hidden files ^& folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³ Hide hidden files ^& folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt=1 or 2 :
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err102
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err102
)
echo.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Hidden /t REG_DWORD /d %crt% /f >nul 2>nul
if %crt% equ 1 (echo   Hidden files ^& folders are visible.) else (echo   Hidden files ^& folders are invisible.)
tskill explorer
goto result
 
:knownEF
cls
:err103
echo.
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º   Show or hide known files extension   º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show known files extensions ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³ Hide known files extensions ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
set crt=
set /p crt=1 or 2 :
set /a crt=%crt%-1
if %crt% gtr 1 (
cls
echo Invalid choice !
goto err103
)
if %crt% lss 0 (
cls
echo Invalid choice !
goto err103
)
echo.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v HideFileExt /t REG_DWORD /d %crt% /f >nul 2>nul
if %crt% equ 1 (echo   Known files extensions are invisible.) else (echo   Known files extensions are visible.)
set /a crt=%crt%+1
tskill explorer
goto result
 
 
:m11
cls
:err11
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º     Taskbar     º   The 22/03/2012 at 22:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Customize Taskbar ^& Start Menu
echo.
echo.
echo Customize the Start Menu showing or hidding buttons.
echo.
echo 1.Choose shown buttons, 2.Choose hidden buttons, 3.Others
echo.
set /p crt=1, 2 or 3 :
if %crt% equ 1 goto showb
if %crt% equ 2 goto hideb
if %crt% equ 3 goto othersb
if %crt% gtr 3 (
cls
echo Invalid choice !
goto err11
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err11
)
:showb
cls
:err112
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Choose buttons you want to show   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 1.Hard Disk Dirve       ³ 4.Music             ³
echo   ³ 2.User folder           ³ 5.Pictures          ³
echo   ³ 3.Documents             ³ 6.Videos            ³
echo   ³ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄij
echo   ³ 7.Control Panel         ³ 11.Recorded TV      ³
echo   ³ 8.Administrative Tools  ³ 12.Downloads        ³
echo   ³ 9.Run...                ³ 13.Help ^& Support   ³
echo   ³ 10.Network              ³ 14.Games            ³
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo Note : choose all options you want to show in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:1choice
set cho=
set /p cho=Choice :
if %cho% equ 1 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 1 /f >nul 2>nul
echo "Computer" is now visible in start menu.
echo.
goto 1choice
)
if %cho% equ 2 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 1 /f >nul 2>nul
echo "%username% folder" is now visible in start menu.
echo.
goto 1choice
)
if %cho% equ 3 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 1 /f >nul 2>nul
echo "My documents" folder is now visible in start menu
echo.
goto 1choice
)
if %cho% equ 4 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 1 /f >nul 2>nul
echo "My music" folder is now visible in start menu.
echo.
goto 1choice
)
if %cho% equ 5 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 1 /f >nul 2>nul
echo "My pictures" folder is now visible in start menu.
echo.
goto 1choice
)
if %cho% equ 6 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 1 /f >nul 2>nul
echo "My videos" folder is now visible in start menu.
echo.
goto 1choice
)
if %cho% equ 7 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 1 /f >nul 2>nul
echo "Control Panel" is now visible in start menu.
echo.
goto 1choice
)
if %cho% equ 8 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 1 /f >nul 2>nul
echo "Administration tools" folder is now visible in start menu.
echo.
goto 1choice
)
if %cho% equ 9 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 1 /f >nul 2>nul
echo "run" button is now visible in start menu.
echo.
goto 1choice
)
if %cho% equ 10 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 1 /f >nul 2>nul
echo "Network" folder is now visible in start menu.
echo.
goto 1choice
)
if %cho% equ 11 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 1 /f >nul 2>nul
echo "Recorded TV" folder is now visible in start menu.
echo.
goto 1choice
)
if %cho% equ 12 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 1 /f >nul 2>nul
echo "Downloads" folder is now visible in start menu.
echo.
goto 1choice
)
if %cho% equ 13
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 1 /f >nul 2>nul
echo "Help" button is now visible in start menu.
echo.
goto 1choice
)
if %cho% equ 14 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 1 /f >nul 2>nul
echo "My games" folder is now visible in start menu.
echo.
goto 1choice
)
if "%cho%"=="quit" tskill explorer & goto result
if %cho% gtr 14 (
cls
echo Invalid choice !
goto err 112
)
if %cho% lss 1 (
cls
echo Invalid choice !
goto err 112
)
:hideb
cls
:err113
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³   Choose buttons you want to hide   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 1.Hard Disk Dirve       ³ 4.Music             ³
echo   ³ 2.User folder           ³ 5.Pictures          ³
echo   ³ 3.Documents             ³ 6.Videos            ³
echo   ³ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄij
echo   ³ 7.Control Panel         ³ 11.Recorded TV      ³
echo   ³ 8.Administrative Tools  ³ 12.Downloads        ³
echo   ³ 9.Run...                ³ 13.Help ^& Support   ³
echo   ³ 10.Network              ³ 14.Games            ³
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo Note : choose all options you want to hide in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:2choice
set cho=
set /p cho=Choice :
echo.
if %cho% equ 1 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 0 /f >nul 2>nul
echo "Computer" isn't visible in start menu.
echo.
goto 1choice
)
if %cho% equ 2 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 0 /f >nul 2>nul
echo "%username% folder" isn't visible in start menu.
echo.
goto 1choice
)
if %cho% equ 3 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 0 /f >nul 2>nul
echo "My documents" folder isn't visible in start menu
echo.
goto 1choice
)
if %cho% equ 4 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 0 /f >nul 2>nul
echo "My music" folder isn't visible in start menu.
echo.
goto 1choice
)
if %cho% equ 5 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 0 /f >nul 2>nul
echo "My pictures" folder isn't visible in start menu.
echo.
goto 1choice
)
if %cho% equ 6 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 0 /f >nul 2>nul
echo "My videos" folder isn't visible in start menu.
echo.
goto 1choice
)
if %cho% equ 7 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 0 /f >nul 2>nul
echo "Control Panel" isn't visible in start menu.
echo.
goto 1choice
)
if %cho% equ 8 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 0 /f >nul 2>nul
echo "Administration tools" folder isn't visible in start menu.
echo.
goto 1choice
)
if %cho% equ 9 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 0 /f >nul 2>nul
echo "run" button isn't visible in start menu.
echo.
goto 1choice
)
if %cho% equ 10 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 0 /f >nul 2>nul
echo "Network" folder isn't visible in start menu.
echo.
goto 1choice
)
if %cho% equ 11 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 0 /f >nul 2>nul
echo "Recorded TV" folder isn't visible in start menu.
echo.
goto 1choice
)
if %cho% equ 12 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 0 /f >nul 2>nul
echo "Downloads" folder isn't visible in start menu.
echo.
goto 1choice
)
if %cho% equ 13
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 0 /f >nul 2>nul
echo "Help" button isn't visible in start menu.
echo.
goto 1choice
)
if %cho% equ 14 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 0 /f >nul 2>nul
echo "My games" folder isn't visible in start menu.
echo.
goto 1choice
)
if "%cho%"=="quit" tskill explorer & goto result
if %cho% gtr 14 (
cls
echo Invalid choice !
goto err113
)
if %cho% lss 1 (
cls
echo Invalid choice !
goto err113
)
:othersb
cls
:err114
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 03 ³  Power button action  ³   ³ 04 ³ Color compressed folders ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo                ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo                ³ 05 ³Set maximum files in Jump List³
echo                ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p "crt=3, 4 or 5 : "
if %crt% equ 3 goto pwract
if %crt% equ 4 goto clrcpsdfldr
if %crt% equ 5 goto stmxflsjmplst
if %crt% gtr 5 (
cls
echo Invalid choice !
goto err114
)
if %crt% lss 3 (
cls
echo Invalid choice !
goto err114
)
:pwract
cls
:err115
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º    Power button action    º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Set to power button function of :
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³    Switch User    ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 02 ³      Log off      ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 03 ³   Lock Session    ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 04 ³ Restart Computer  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 05 ³       Sleep       ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 06 ³     Hibernate     ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 07 ³ Shutdown computer ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cha=Choice :
echo.
if %cha% equ 1 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 256 /f >nul 2>nul
echo Power button's function is now "Switch user".
)
if %cha% equ 2 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 1 /f >nul 2>nul
echo Power button's function is now "Log off".
)
if %cha% equ 3 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 512 /f >nul 2>nul
echo Power button's function is now "Lock session".
)
if %cha% equ 4 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 4 /f >nul 2>nul
echo Power button's function is now "Restart computer".
)
if %cha% equ 5 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 16 /f >nul 2>nul
echo Power button's function is now "Sleep".
)
if %cha% equ 6 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 64 /f >nul 2>nul
echo Power button's function is now "Hibernate".
echo.
echo   Note : This will not work if you've disabled
echo          the hibernate function.
)
if %cha% equ 7 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 2 /f >nul 2>nul
echo Power button's function is now "Shutdown computer".
)
if %cha% gtr 7 (
cls
echo Invalid choice !
goto err115
)
if %cha% lss 1 (
cls
echo Invalid choice !
goto err115
)
tskill explorer &goto result
 
:clrcpsdfldr
cls
:err116
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 04 ³  Color compressed folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Disable compressed folders color  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Enable compressed folders color   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p chz=1 or 2 :
set /a chz=%chz%-1
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v ShowCompColor /t REG_DWORD /d %chz% /f >nul 2>nul
if %chz% gtr 2 (
cls
echo Invalid choice !
goto err116
)
if %chz% lss 1 (
cls
echo Invalid choice !
goto err116
)
echo.
if %chz% equ 0 (echo Compressed folder color disabled.) else (echo Compressed folder color enabled.)
set chr=%chz%+1
goto result
 
:stmxflsjmplst
cls
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 05 ³ Set maximum files in jump list ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
:errstmxfljpls
set chr=
set /p chr=Choice (0-9999...) :
if "%chr%"=="" (
echo.
echo Choice cannot be empty !
echo.
echo.
goto errstmxfljpls
)
echo.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_JumpListItems /t REG_DWORD /d %chr% /f >nul 2>nul
if %chr% equ 1 (echo Jump list can now contain 1 item.)
if %chr% lss 1 (echo Jump list cannot contain any item.)
if %chr% gtr 1 (echo Jump list can now contain %chr% items.)
goto result
 
 
:m12
cls
:err12
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º   USB Autorun   º   The 31/03/2012 at 21:04
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : USB Autorun Security Tweak
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Enable Autorun    ³  ³ 02 ³   Disable Autrun    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.     
set /p crt=1 or 2 :
if %crt% equ 1 (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x91 >nul 2>nul
echo.
echo Autorun function is now enabled
echo.
echo    Note : please pay attention, if the removable media is infected,
echo           your computer could also be infected
echo           because of the Autorun function.
)
if %crt% equ 2 (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x4 >nul 2>nul
echo.
echo Autorun function is now disabled
echo.
echo    Note : This could be binding for you,
echo           but it's safer for your computer
echo           and its security.
)
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err12
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err12
)
goto result


:m13
mode con cols=135 lines=32
color f0
cls
echo (en) Help Notes : Please run Registry Tool as Administrator.
echo.
echo Registry backups : It is highly preferable to save the entire registry before starting Registry Tool.
echo Note that this backup is performed automatically by default at the first startup of the program.
echo The files are stored in the directory "RegBackup" Windows.
echo If there is a problem with the automatic backup please use a specially designed program for this (ERUNT for example).
echo We are not responsible of any eventual damage caused by Registry Tool.
echo.
echo.
echo (fr) Notes d'aide : Veuillez executer Registry Tool en tant qu'administrateur.
echo.
echo Sauvegardes du registre : il est fortement preferable de sauvegarder toute la base de registre avant de demarrer Registry Tool.
echo Notez que cette sauvegarde est effectuee automatiquement par defaut au premier demarrage du programme.
echo Les fichiers sont stockes dans le repertoire "RegBackUp" de Windows.
echo En cas de probleme avec la sauvegarde utilisez un programme specialement concu pour cela (ERUNT par exemple).
echo Nous ne seront en aucun cas tenus responsables des eventuels degats que pourraient vous causer Registry Tool.
echo. 
echo.
echo (es) Ayuda : Por favor, ejecute Registry Tool como administrador.
echo.
echo Las copias de seguridad del registro : Es altamente preferible guardar todo el registro antes de iniciar Registry Tool.
echo Tenga en cuenta que esta copia de seguridad se realiza automaticamente de manera predeterminada en el primer inicio del programa.
echo Los archivos se guardan en el directorio "RegBackup" de Windows.
echo Si un problema ocurre con la copia de seguridad por favor utiliza un programa especialmente diseñado para este (por ejemplo ERUNT).
echo No somos responsables de de cualquier daño eventual provocado por Registry Tool.
echo.
echo.
echo For questions, comments, or bug reports, please feel free
echo to contact us at the following address : raf.webmaster@octavener.org
echo.
echo Press any key...
pause >nul
color 0f
mode con cols=71 lines=24
goto menu

 
:result
echo.
echo.
echo   Well considered "%crt%" choice !
echo.
echo Press any key...
pause >nul
goto menu

:classexit
mode con cols=84 lines=69
cls
echo.
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                     '.               ++++++++.               '`                   
echo                    '''.            :++++++++++'.            '''`                   
echo                   '''''.        ;+++++++++++++++++,        '''''`                 
echo                  '''''''.    `++++++++++++++++++++++;     '''''''`                 
echo                 '''''''''.  ++++++++++++++++++++++++++,  '''''''''`               
echo                ''''''''''':+++++++++++++++++++++++++++++'''''''''''`               
echo                .'''''''''++++++++++++++++++++++++++++++++''''''''''               
echo                 .'''''''++++++++++++++++++++++++++++++++++''''''''                 
echo                  .'''''+++++++++++++@#:.` `.;@@#+++++++++++''''''                 
echo                   .'''+++++++++++#'            .##++++++++++''''                   
echo                    .'++++++++++#'                 ##+++++++++''                   
echo                     :+++++++++@                    ,@+++++++++                     
echo                     ++++++++++                       @++++++++'                   
echo                    +++++++++'                         @++++++++`                   
echo                   `+++++++++                           @++++++++                   
echo                   ++++++++@                            `@+++++++.                 
echo                  `++++++++  Registry Tool will now exit ;#+++++++                 
echo                  '+++++++:                               @+++++++                 
echo                  ++++++++                                ,#++++++;                 
echo                  +++++++@###############################, @+++++++                 
echo                 :++++++,`:@@@@@@@@@@@#.```#+@@@@@@@@@@@@:  +++++++                 
echo                 +++++++  ,@@@@@@@@@@@@@:  '+@@@#@@#@@@@@:  '++++++.               
echo         +++++++++++++++  ,@@@@@@@@@@@@@@  '++##@@@@@@@@@:  `++++++++++++++`       
echo         +++++++++++++++  ,@@@@+++++#@@@@  `.,,,+@@@+,,,,`   ++++++++++++++`       
echo         ++++++++++++++;  ,@#@#      ##@@       ;@@#'        ++++++++++++++`       
echo         ++++++++++++++;  ,@@@#  ;;;'@@@@       ;@#@'        ++++++++++++++`       
echo         ++++++++++++++.  ,#@## @@@@#@@@#       '@@@+        ++++++++++++++`       
echo         ++++++++++++++;  ,++#' :##@+@@#        ;#@+;        ++++++++++++++`       
echo         ++++++++++++++;  ,####  ,#+#@.         ;##@;        ++++++++++++++`       
echo         +++++++++++++++   ;###   `++##,        `+++'       `++++++++++++++`       
echo         ::::::::+++++++,   ;@+    `#+#+'         ;@'       :++++++;:::::::`       
echo                 #######@    ,;      '@@##+++++++++@@+++++++#++++++                 
echo                 ;#######`            `````````````````````@+++++++                 
echo                  ########                                 @+++++++                 
echo                  #######@     Thanks for having used     ##++++++,                 
echo                  '########        this software !       `@+++++++                 
echo                   ########.                             @#++++++'                 
echo                   +#######@                            '#+++++++                   
echo                    ########@                          :@++++++++                   
echo                    '########@                        :@++++++++                   
echo                     #########@                      '@++++++++:                   
echo                     ##########@:                   @@+++++++++.                   
echo                    #############@.               '@#+++++++++''.                   
echo                   ################@;          .#@#++++++++++''''.                 
echo                  ###################@@@#+++@@@#++++++++++++''''''.                 
echo                 #####################+++++++++++++++++++++''''''''.               
echo                +#####################++++++++++++++++++++''''''''''.               
echo               ,###########`##########++++++++++++++++++::''''''''''               
echo               +##########`  ,########+++++++++++++++++   :''''''''                 
echo               ##########`     :######+++++++++++++++      :''''''                 
echo              `#########`         '###++++++++++++,         :''''                   
echo              ;########`             .++++++++;`             :''                   
echo              #######+`               ++++++++:               :                     
echo              #+:`                    ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ::::::::,   
ping localhost /n 6 >nul
exit                                 

Et, comme d'habitude depuis la version 1.0, voici les exécutables de Registry Tool pour 64 et 86 bits :
Registry Tool (x64)
Registry Tool (x86)
Merci d'avance pour vos critiques et n'hésitez pas à contribuer à la programmation de ce programme Wink




______________________________________________________
Cordialement, </Troud>.
Répondre en citant
Message Regrouper ces connaissances 
Bonjour

pourquoi 2 executables ? pourquoi ne pas détecter l architecture du pc sit x86 ou x64 pour avoir qu'un fichier ?
est ce que toute les améliorations soient compatibles sur tout les systemes d exploitation ?

utilisation de l anglais c est pas mal malheureusement beaucoup ne parle pas anglais, pourquoi pas une développé en deux langues au moins ?

aucune informations sur les modifications qui sont apportées.

si j ai bien compris un peu votre code (manque de commentaires pour s y retrouver)
vous sauvegarder toute la base de registre et non la clé de registre modifiée

avez vous pensé à une suppression des modifications ?

Bonne continuation




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message Quelques infos sur le logiciel ... 
Bonjour, c'est vrai que j'ai donné peu d'informations sur le logiciel et ses fonctionnalités, désolé ...

Alors, je me sert de Bat to Exe pour compiler les batch, et je ne sais pas comment ça marche, tout ce que je sais la dessus c'est que les versions x64 et x86 ne fonctionnent pas de la même façon en fonction de l'architecture du pc.

Ensuite, pour ce qui est de la compatibilité sur tous les OS Windows, il me semble que oui, car nous utilisons tout le temps des variables du style "%windir%". Sinon pour la traduction du logiciel, c'est une bonne idée, sauf que je ne pourrai le faire qu'en français. J'ai pensé que l'anglais était une langue parlée un peu partout, mais c'est vrai que tout le monde ne comprend pas l'anglais ...

Le logiciel inclut une fonction de sauvegarde et restauration de la base de registre. A la première exécution du logiciel, une sauvegarde du registre est effectuée dans le répertoire "%windir%\RegBackUp", ce qui permet de la restaurer ultérieurement en cas de mauvaise manipulation du registre.

Si tu veux un résumé complet de toutes les fonctionnalités des options du logiciel, je te l'enverrai, mais sa risque de me prendre un peu de temps ... Voilà, j'espère avoir répondu à plus ou moins toutes tes questions, sinon, n'hésites pas à m'en faire part. Merci d'avance.

Cordialement, Raphaël.




______________________________________________________
Cordialement, </Troud>.
Répondre en citant
Message Regrouper ces connaissances 
Me voilà avec la version 1.2.2 de Registry Tool qui corrige un bug de l'option 11, avec des commentaires pour les options, et qui corrige un très léger bug d'affichage toujours sur l'option 11.
Code:

@echo off
title Registry Tool V1.2.2
color 0f
mode con cols=71 lines=24

:: DETECTION DE LA COMMANDE REG.EXE

if exist "%windir%\System32\reg.*" goto tskilldetect
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º  Reg Undetected  º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Command Reg [Not found]
echo.
echo   Please, download the command reg.[exe]
echo   and place this file in %windir%\System32\
echo.
echo   If the problem persists, contact a developer.
echo.
echo Press any key...
pause >nul
exit

:: DETECTION DE LA COMMANDE TSKILL.EXE

:tskilldetect
if exist "%windir%\system32\tskill.*" goto start
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º  tskill Undetected  º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Command tskill [Not found]
echo.
echo   The absence of this command could cause
echo   problems to Registry Tool runtime.
echo.
echo   To ensure a better functioning of the software,
echo   please, download the command tskill.[exe]
echo   and place this file in %windir%\System32\
echo.
if not exist %windir%\RegistryTool md %windir%\RegistryTool
echo On error resume next >%windir%\RegistryTool\notskill.vbs
echo msgbox "This last error report indicates the tskill command was not found in your computer. To correct the problem, try to find the tskill.exe file on the internet, then place the file in %windir%\system32. If you cannot do this, you will have to reboot your computer for some changes to take effect. For advanced users, you will just have to kill explorer.exe process and then restart it.", 64+4096+vbokonly, "Command tskill not found details" >>%windir%\RegistryTool\notskill.vbs
echo   For more details, open %windir%\RegistryTool\notskill.vbs
echo.
echo   If the problem persists, contact a developer.
echo.
echo Press any key...
pause >nul

:start
 
:: DETECTION DE LA SAUVEGARDE DU REGISTRE, SI ELLE N'EXISTE PAS, ELLE SERA EFFECTUEE AUTOMATIQUEMENT

if exist "%windir%\RegistryTool\RegBackUp\*.reg" goto backupdetected
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º    Reg BackUp    º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Loading, backup in progress...
echo.
echo step 1/5
md "%windir%\RegistryTool\RegBackUp" >nul 2>nul
reg export HKLM "%windir%\RegistryTool\RegBackUp\HKLM.reg" >nul 2>nul
echo Done !
echo.
echo step 2/5
reg export HKCR "%windir%\RegistryTool\RegBackUp\HKCR.reg" >nul 2>nul
echo Done !
echo.
echo step 3/5
reg export HKCU "%windir%\RegistryTool\RegBackUp\HKCU.reg" >nul 2>nul
echo Done !
echo.
echo step 4/5
reg export HKCC "%windir%\RegistryTool\RegBackUp\HKCC.reg" >nul 2>nul
echo Done !
echo.
echo step 5/5
reg export HKU "%windir%\RegistryTool\RegBackUp\HKU.reg" >nul 2>nul
echo Done !
echo   Your last registry backup was made on %date% at %time%. >"%windir%\RegistryTool\RegBackup\datinfo.rbt"
echo   You've restored the registry backup of %date%, %time%. >"%windir%\RegistryTool\RegBackup\restdatinfo.rbt"
reg add HKEY_CLASSES_ROOT\.rbt /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\.rbt /ve /t REG_SZ /d rbtfile /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /ve /t REG_SZ /d "Registry Backup Tool Data Document" /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /v AlwaysShowExt /t REG_SZ /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\DefaultIcon /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\DefaultIcon /ve /t REG_SZ /d "%SystemRoot%\system32\setupapi.dll,12" /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open\command /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open\command /ve /t REG_SZ /d unknown /f >nul 2>nul
echo.
echo   Backup in : "%windir%\RegistryTool\RegBackUp\"
echo.
echo Press any key...
pause >nul
:backupdetected
 
:menu
set crt=enu
cls
:errenu
echo.
echo                     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                     º                             º
echo                     º        Registry Tool        º
echo                     º                             º
echo                     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   IP Proxy   ³  ³ 02 ³ Hide Desktop ³  ³ 03 ³ Optimize All ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 04 ³  Auto-Logon  ³  ³ 05 ³  USB Detect  ³  ³ 06 ³  CleanUpReg  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 07 ³ Menu Context ³  ³ 08 ³  Reg Backup  ³  ³ 09 ³ Startup Soft ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 10 ³    Folder    ³  ³ 11 ³ Menu Taskbar ³  ³ 12 ³ USB Autorun  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo                          ³ 13 ³     Help     ³
echo                          ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo            Note : Please run Registry Tool as Administrator         
echo.
set /p crt=Choice :
if %crt% geq 0 (
if %crt% leq 13 (
goto m%crt%
) else (
goto classexit
)
)

::CREDITS

:m0
:m00
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Version : 1.2.2
echo   º   Registry Tool   º   Modify : Bugs (option 11) + option 13 + GUI
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   The 16/08/2014 at 00:51
echo.
echo  Created by : Pierre JOUSSAIN ^& Raphael BERTEAUD
echo  Created for : batch.xoo.it ^& Everyone else
echo.
echo  Developed by :
echo    ÄRaphael BERTEAUD [^</Troud>] ÍÍÍÍ 6 commands + help
echo    ÄPierre JOUSSAIN [Pierrot] ÍÍÍÍÍÍ 5 commands
echo    ÄUnknown [ytrezAn] ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ 1 command
echo.
echo For questions, comments, or bug reports, please feel free
echo to contact us at the following address : raf.webmaster@octavener.org
echo.
echo Press any key...
pause >nul
goto menu

:: OPTION 1  CONFIGURATION DU PROXY

:m1
:m01
cls
:err
set oot=1
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º     IP Proxy     º   The 15/03/2012 at 19:29
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Configure Proxy
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³     Desactivate      ³  ³ 02 ³       Activate       ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p oot=1 or 2 :
set /a oot=%oot%-1
if %oot% equ 0 set crt=ProxyOFF
if %oot% equ 0 goto oot
if %oot% gtr 1 (
cls
echo Invalid Choice !
goto err
)
if %oot% lss 0 (
cls
echo Invalid Choice !
goto err
)
echo.
echo.
echo   Please, choose an IP adress (ex : 255.18.42.20)
echo.
set /p crt=IP :
:oot
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyenable /t Reg_Dword /d "%oot%" /f >nul 2>nul
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyserver /t Reg_SZ /d "%crt%" /f >nul 2>nul
if %oot% equ 1 (
echo.
echo Proxy Enabled ! ^(%crt%^)
) else (
echo.
echo Proxy Disabled !
)
goto result
 
:: OPTION 2  AFFICHAGE DES ICONES DU BUREAU

:m2
:m02
cls
:err2
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Hide Desktop   º   The 15/03/2012 at 17:31
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Show or Hide Desktop Icons
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Show desktop icons  ³  ³ 02 ³  Hide desktop icons  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.     
set /p crt=1 or 2 :
set /a crt=%crt%-1
if %crt% gtr 1 (
cls
echo Invalid choice !
goto err2
)
if %crt% lss 0 (
cls
echo Invalid choice !
goto err2
)
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoDesktop /t REG_DWORD /d %crt% /f >nul 2>nul
if %crt% equ 1 (
echo.
echo Desktop icons disabled.
) else (
echo.
echo Desktop icons enabled.
)
tskill explorer
set /a crt=%crt%+1
goto result

:: OPTION 3  OPTIMISATION DU DEMARRAGE, DE L'EXECUTION ET DE L'EXTINCTION DE WINDOWS

:m3
:m03
cls
:err3
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Optimize All   º   The 15/03/2012 at 17:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Faster Boot, Runtime and Shutdown
echo.
echo   ÄÄÄÄ^> Optimize StartUp [Raphael BERTEAUD]
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v VerboseStatus /t REG_DWORD /d 1 /f >nul 2>nul
echo Verbose Mode Enabled.
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction /v OptimizeComplete /t REG_SZ /d no /f >nul 2>nul
echo Startup Defragmentation Disabled.
echo.
echo   ÄÄÄÄ^> Optimize Windows [Raphael BERTEAUD]
del "%windir%\temp" /f /s /q >nul 2>nul
del "%localappdata%\Microsoft\Windows\Temporary Internet Files\*.*" /f /s /q >nul 2>nul
echo Temporary Files Deleted.
del "%windir%\prefetch\*.*" /f /s /q >nul 2>nul
echo Prefetch Folder Cleared.
del index.dat /f /s /q >nul 2>nul
echo "Index.dat" Cleared.
takeown /f "%windir%\Logs\CBS\CBS.log" >nul 2>nul
echo  >"%windir%\Logs\CBS\CBS.log"
echo "CBS.log" Cleared.
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer /v AlwaysUnloadDll /t REG_DWORD /d 1 /f >nul 2>nul
echo Unloading ".dll" Files Enabled.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v SeparateProcess /t REG_DWORD /d 1 /f >nul 2>nul
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem /v NtfsDisableLastAccessUpdate /t REG_DWORD /d 1 /f >nul 2>nul
echo Separation of Processes Enabled.
reg add "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Memory Management" /v DisablePagingExecutive /t REG_DWORD /d 1 /f >nul 2>nul
echo Paging Executive Disabled (Disable Kernel ^& Hardware Drivers Swapping)
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v MenuShowDelay /t REG_SZ /d 50 /f >nul 2>nul
reg add "HKEY_USERS\.DEFAULT\Control Panel\Mouse" /v MouseHoverTime /t REG_SZ /d 50 /f >nul 2>nul
echo Speeding Up Explorer Animations.
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v LowLevelHooksTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoInternetOpenWith /t REG_DWORD /d 1 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPer1_0Server /t REG_DWORD /d 12 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPerServer /t REG_DWORD /d 12 /f >nul 2>nul
echo Extending Connection Limits Per Server.
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Filesystem /v NtfsDisable8dot3NameCreation /t REG_DWORD /d 1 /f >nul 2>nul
echo NTFS "8.3 Name Creation" Disabled.
echo.
set /p hibonoff=Do you want to disable hibernation ? (Y/N)                             (This frees up disk space) :
if "%hibonoff%"=="y" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutopthdd
)
if "%hibonoff%"=="yes" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutopthdd
)
if "%hibonoff%"=="o" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutopthdd
)
if "%hibonoff%"=="oui" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutopthdd
)
if "%hibonoff%"=="1" (
echo Please wait...
powercfg -h off
echo Hibernation Disabled.
goto shutopthdd
)
echo Please wait...
powercfg -h on
echo Hibernation enabled.
:shutopthdd
echo.
echo   ÄÄÄÄ^> Optimize extinction [Raphael BERTEAUD]
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" /v WaitToKillServiceTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v AutoEndTasks /t REG_SZ /d 1 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v WaitToKillAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v HungAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_USERS\.DEFAULT\Control Panel\Desktop" /v WaitToKillAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_USERS\.DEFAULT\Control Panel\Desktop" /v HungAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
echo Reduction of Killing Applications ^& Services' Delays.
echo.
echo You should Restart your computer to apply changes.
set /p crt=Would you like to restart now ? (Y/N) :
if "%crt%"=="y" (shutdown -r -t 00) else (goto result)

:: OPTION 4  CONFIGURATION DE LA CONNEXION AUTOMATIQUE A UNE SESSION DEFINIE AU DEMARRAGE DE WINDOWS

:m4
:m04
set crt=1
cls
:err4
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º    Auto-Logon    º   The 16/03/2012 at 17:39
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Automatic Session Logon
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Desactivate AutoLogon ³  ³ 02 ³  Activate AutoLogon   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Logon automatically to the session you want
echo.
set /p crt=1 or 2 :
set /a crt=%crt%-1
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AutoAdminLogon /t REG_SZ /d %crt% /f >nul 2>nul
if %crt% EQU 0 (
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultusername" /f >nul 2>nul
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultpassword" /f >nul 2>nul
echo.
echo Auto logon disabled.
set /a crt=%crt%+1
goto result
) else (
echo.
echo Auto logon enabled.
)
if %crt% gtr 1 (
cls
echo Invalid choice !
goto err4
)
if %crt% lss 0 (
cls
echo Invalid choice !
goto err4
)
set /a crt=%crt%+1
echo.
:askuseral
set /p user=Which session do you want to use as default ? :
if "%user%"=="" (
echo.
echo User cannot be empty !
echo.
echo.
goto askuseral
)
echo.
:askpassword
set /p password=Password :
set /p rpassword=Reenter password :
if not "%password%"=="%rpassword%" (
echo.
echo Passwords do not match !
echo.
echo.
goto askpassword
) else (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultusername /t REG_SZ /d %user% /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultpassword /t REG_SZ /d %password% /f >nul 2>nul
)
echo.
echo Now you'll be logged as %user% on every startup.
echo.
echo    Note : If user name or password are wrong, the operation wont work !
echo.
echo WARNING : Your password is now visible in the registry !
echo           If you switch off the AutoLogon, your password will
echo           no longer be visible in the registry.
goto result
 
:: OPTION 5  CONFIGURATION DE LA DETECTION DES USB (LES EFFETS SONT EFFECTIFS APRES REDEMARRAGE UNIQUEMENT)

:m5
:m05
cls
:err5
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º    USB Detect    º   The 16/03/2012 at 21:25
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Administrative Tweak for USB
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Enable USB Detect   ³  ³ 02 ³  Disable USB Detect  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=1 or 2 :
set /a crt=%crt%+2
if %crt% gtr 4 (
cls
echo Invalid choice !
goto err5
)
if %crt% lss 3 (
cls
echo Invalid choice !
goto err5
)
echo.
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR" /v Start /t Reg_Dword /d "%crt%" /f >nul 2>nul
echo.
if %crt% equ 4 (
echo Disabling USB detection.
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies /v WriteProtect /t REG_DWORD /d 1 /f >nul 2>nul
echo.
echo Enabling USB write-protection.
echo.
echo    Your USB ports are now disabled !
echo.
echo You will have to reboot for the changes to take effect.
set /p restartprompt="Would you like to restart now ? (Y/N) : "
if "%restartprompt%"=="y" (shutdown -r -t 00) else (
set /a crt=%crt%-2
goto result
)
) else (
echo Enabling USB detection.
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies /v WriteProtect /t REG_DWORD /d 0 /f >nul 2>nul
echo.
echo Disabling USB write-protection.
echo.
echo    Your USB ports are now enabled !
echo.
echo You will have to reboot for the changes to take effect.
set /p restartprompt="Would you like to restart now ? (Y/N) : "
if "%restartprompt%"=="y" (shutdown -r -t 00) else (
set /a crt=%crt%-2
goto result
)
)

:: OPTION 6  LEGER NETTOYAGE DE LA BASE DE REGISTRE PAR SUPPRESSION DE VALEURS INUTILES
 
:m6
:m06
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : ytrezAn
echo   º    CleanUpReg    º   The 16/03/2012 at 20:50
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Erase Traces of Uninstalled Programs
echo.
echo.
echo   ÄÄÄÄ^> Delete traces [ytrezAn]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f >nul 2>nul
echo "Microsoft\Tracing" key ^& subkeys cleared.
echo.
echo   ÄÄÄÄ^> Delete traces [Pierre JOUSSAIN]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f >nul 2>nul
echo "Software\Microsoft\Tracing" key ^& subkeys cleared.
echo.
goto result
 
:: OPTION 7  CONFIGURATION DES OPTIONS DU MENU CONTEXTUEL (CLIC DROIT DE LA SOURIS) DU BUREAU

:m7
:m07
set crt=1
cls
:err7
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Menu Context   º   The 17/03/2012 at 21:00
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Add or Delete Context Menu Entries
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Add Option in the menu ³  ³ 02 ³ Del Option in the menu ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Menu Context affects the desktop context menu
echo.
set /p crt=1 or 2 :
if %crt% equ 2 goto deleter
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err7
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err7
)
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Add Option to the Desktop Context Menu  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
:choosenameentry
set /p name=How would you name the new context menu entry ? 
if "%name%"=="" (
echo.
echo The name entry cannot be empty !
echo.
echo.
goto choosenameentry
)
echo.
:choosecommandentry
set /p comm=Which command do you want to associate to "%name%" ? 
if "%comm%"=="" (
echo.
echo The command cannot be empty !
echo.
echo.
goto choosecommandentry
)
echo.
echo.
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command /ve /d %comm% /f >nul 2>nul
cls
:err71
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³      Add an icon       ³  ³ 03 ³ Continue without icon ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cicort=2 or 3 :
if %cicort% equ 2 goto iconadd
if %cicort% gtr 3 (
cls
echo Invalid choice !
goto err71
)
if %cicort% lss 2 (
cls
echo Invalid choice !
goto err71
)
goto next1
:iconadd
set /p icon=What icon do you want to use for the option "%name%" ? 
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v Icon /t REG_SZ /d %icon% /f >nul 2>nul
:next1
cls
:err72
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    04 : Show the option "%name%" only when shift is pressed
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    05 : Always show the option "%name%"
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cshextrt=4 or 5 :
if %cshextrt% equ 4 reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v extended /t REG_SZ /f >nul 2>nul
if %cshextrt% equ 5 goto placernext
if %cshextrt% gtr 5 (
cls
echo Invalid choice !
goto err72
)
if %cshextrt% lss 4 (
cls
echo Invalid choice !
goto err72
)
:placernext
cls
:err73
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    06 : Place the option "%name%" at the bottom
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    07 : Place the option "%name%" at the top
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    08 : Don't position the option "%name%"
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
set /p cplacert=6, 7 or 8 :
if %cplacert% EQU 6 goto bottompos
if %cplacert% EQU 7 goto toppos
if %cplacert% EQU 8 goto nopos
if %cplacert% gtr 8 (
cls
echo Invalid choice !
goto err73
)
if %cplacert% lss 6 (
cls
echo Invalid choice !
goto err73
)
:bottompos
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v position /t REG_SZ /d bottom /f >nul 2>nul
goto nopos
:toppos
reg add HKEY_CLASSES_ROOT\Directory\Background\shell\%name% /v position /t REG_SZ /d top /f >nul 2>nul
:nopos
cls
echo.
echo   Option added to desktop context menu.
echo.
echo   Informations :
echo      Name : %name%
echo      Command : %comm%
if defined icon echo      Icon : %icon%
if %cshextrt% equ 4 (echo      Type : Extended desktop menu only) else (echo      Type : Classic desktop menu)
if %cplacert% equ 6 echo      Position : Bottom
if %cplacert% equ 7 echo      Position : Top
set crt=%cplacert%
goto result
:deleter
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³      Delete Option      ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
:askdelentrycm
set /p name1=Which context menu entry do you want to remove :
if "%name1%"=="" (
echo.
echo Menu entry cannot be empty !
echo.
echo.
goto askdelentrycm
)
reg delete HKEY_CLASSES_ROOT\Directory\Background\shell\%name1% /f >nul 2>nul
echo.
echo   The "%name1%" entry has been successfully
echo   deleted from the desktop context menu !
goto result

:: OPTION 8  OUTIL DE SAUVEGARDE ET DE RESTAURATION DE LA BASE DE REGISTRE
 
:m8
:m08
cls
:err8
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º    Reg Backup    º   The 18/03/2012 at 18:50
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Registry Backup Tool [Raphael B. idea]
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³      Reg Backup      ³  ³ 02 ³     Reg Restore     ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
if not exist "%windir%\RegistryTool\RegBackUp" (
echo   WARNING : You do not have a backup !
echo.
)
if exist "%windir%\RegistryTool\RegBackUp\*.reg" (
echo   Note : You have a backup.
if exist "%windir%\RegistryTool\RegBackUp\datinfo.rbt" (
type "%windir%\RegistryTool\RegBackup\datinfo.rbt" 2>nul
echo.
) else (
echo.
)
)
set /p crt=1 or 2 :
echo.
if %crt% equ 1 goto backup
if %crt% equ 2 if exist "%windir%\RegistryTool\RegBackUp" (
goto restore
) else (
cls
echo You don't have any registry backup, so you cannot restore it.
goto err8
)
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err8
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err8
)
:backup
echo   Loading, backup in progress...
if not exist "%windir%\RegistryTool\RegBackUp" md "%windir%\RegistryTool\RegBackUp"
echo.
echo step 1/5
reg export HKLM "%windir%\RegistryTool\RegBackUp\HKLM.reg" /y >nul 2>nul
echo Done !
echo.
echo step 2/5
reg export HKCR "%windir%\RegistryTool\RegBackUp\HKCR.reg" /y >nul 2>nul
echo Done !
echo.
echo step 3/5
reg export HKCU "%windir%\RegistryTool\RegBackUp\HKCU.reg" /y >nul 2>nul
echo Done !
echo.
echo step 4/5
reg export HKCC "%windir%\RegistryTool\RegBackUp\HKCC.reg" /y >nul 2>nul
echo Done !
echo.
echo step 5/5
reg export HKU "%windir%\RegsitryTool\RegBackUp\HKU.reg" /y >nul 2>nul
echo Done !
echo.
echo   Your last registry backup was made on %date% at %time%. >"%windir%\RegistryTool\RegBackup\datinfo.rbt"
echo   You've restored the registry backup of %date%, %time%. >"%windir%\RegistryTool\RegBackup\restdatinfo.rbt"
echo.
echo   Backup in : "%windir%\RegistryTool\RegBackUp\"
echo.
goto result
:restore
echo   Loading, restore in progress...
echo.
echo step 1/5
reg import "%windir%\RegistryTool\RegBackUp\HKLM.reg" >nul 2>nul
echo Done !
echo.
echo step 2/5
reg import "%windir%\RegistryTool\RegBackUp\HKCR.reg" >nul 2>nul
echo Done !
echo.
echo step 3/5
reg import "%windir%\RegistryTool\RegBackUp\HKCU.reg" >nul 2>nul
echo Done !
echo.
echo step 4/5
reg import "%windir%\RegistryTool\RegBackUp\HKCC.reg" >nul 2>nul
echo Done !
echo.
echo step 5/5
reg import "%windir%\RegistryTool\RegBackUp\HKU.reg" >nul 2>nul
echo Done !
echo.
type "%windir%\RegistryTool\RegBackup\restdatinfo.rbt" 2>nul
echo.
goto result
 
:: OPTION 9  CONFIGURATION DES LOGICIELS EXECUTES AUTOMATIQUEMENT AU DEMARRAGE DE WINDOWS

:m9
:m09
cls
:err9
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º   Startup Soft   º   The 19/03/2012 at 18:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Modify the Autorun Program List
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³      Add program      ³  ³ 02 ³    Delete program    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=1 or 2 :
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err9
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err9
)
echo.
set /p prt="Program path (without quotes) : "
echo.
if %crt% equ 1 (
reg add HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "%prt%" /t REG_SZ /d "%prt%" /f >nul 2>nul
echo "%prt%" has been added to the startup programs list.
)
if %crt% equ 2 (
reg delete HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "%prt%" /f >nul 2>nul
echo "%prt%" has been deleted from the startup programs list.
)
goto result

:: OPTION 10  CONFIGURATION D'AFFICHAGE DES FICHIERS ET DOSSIERS DE WINDOWS (fichiers et dossiers cachés, extension de fichiers connus ...)
 
:m10
cls
:err10
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º     Folder     º   The 19/03/2012 at 18:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Folders Properties [Pierre J. idea]
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show or Hide hidden files ^& Folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Show or hide known files extension  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=1 or 2 :
if %crt% equ 1 goto hiddenFF
if %crt% equ 2 goto knownEF
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err10
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err10
)
:hiddenFF
cls
:err102
echo.
echo             ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo             º   Show or Hide hidden files ^& Folders   º
echo             ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show hidden files ^& folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³ Hide hidden files ^& folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt=1 or 2 :
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err102
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err102
)
echo.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Hidden /t REG_DWORD /d %crt% /f >nul 2>nul
if %crt% equ 1 (echo   Hidden files ^& folders are visible.) else (echo   Hidden files ^& folders are invisible.)
tskill explorer
goto result
 
:knownEF
cls
:err103
echo.
echo              ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo              º   Show or hide known files extension   º
echo              ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show known files extensions ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³ Hide known files extensions ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
set crt=
set /p crt=1 or 2 :
set /a crt=%crt%-1
if %crt% gtr 1 (
cls
echo Invalid choice !
goto err103
)
if %crt% lss 0 (
cls
echo Invalid choice !
goto err103
)
echo.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v HideFileExt /t REG_DWORD /d %crt% /f >nul 2>nul
if %crt% equ 1 (echo   Known files extensions are invisible.) else (echo   Known files extensions are visible.)
set /a crt=%crt%+1
tskill explorer
goto result
 
:: OPTION 11  CONFIGURATION DES BOUTTONS PRESENTS DANS LE MENU DEMARRER SUR LE PANNEAU DE DROITE (Ordinateur, mes documents, jeux, ma musique, mes vidéos, téléchargements, ...)

:m11
cls
:err11
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º     Taskbar     º   The 22/03/2012 at 22:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Customize Taskbar ^& Start Menu
echo.
echo.
echo Customize the Start Menu showing or hidding buttons.
echo.
echo 1.Choose shown buttons, 2.Choose hidden buttons, 3.Others
echo.
set /p crt=1, 2 or 3 :
if %crt% equ 1 goto showb
if %crt% equ 2 goto hideb
if %crt% equ 3 goto othersb
if %crt% gtr 3 (
cls
echo Invalid choice !
goto err11
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err11
)
:showb
cls
:err112
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Choose buttons you want to show   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 1.Hard Disk Dirve       ³ 4.Music             ³
echo   ³ 2.User folder           ³ 5.Pictures          ³
echo   ³ 3.Documents             ³ 6.Videos            ³
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 7.Control Panel         ³ 11.Recorded TV      ³
echo   ³ 8.Administrative Tools  ³ 12.Downloads        ³
echo   ³ 9.Run...                ³ 13.Help ^& Support   ³
echo   ³ 10.Network              ³ 14.Games            ³
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo Note : choose all options you want to show in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:1choice
set cho=
set /p cho=Choice :
if %cho% equ 1 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 1 /f >nul 2>nul
echo "Computer" button is now visible !
goto 1choice
)
if %cho% equ 2 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 1 /f >nul 2>nul
echo "User folder" button is now visible !
goto 1choice
)
if %cho% equ 3 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 1 /f >nul 2>nul
echo "My documents" button is now visible !
goto 1choice
)
if %cho% equ 4 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 1 /f >nul 2>nul
echo "My music" button is now visible !
goto 1choice
)
if %cho% equ 5 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 1 /f >nul 2>nul
echo "My pictures" button is now visible !
goto 1choice
)
if %cho% equ 6 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 1 /f >nul 2>nul
echo "My videos" button is now visible !
goto 1choice
)
if %cho% equ 7 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 1 /f >nul 2>nul
echo "Control panel" button is now visible !
goto 1choice
)
if %cho% equ 8 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 1 /f >nul 2>nul
echo "Administrative tools" button is now visible !
goto 1choice
)
if %cho% equ 9 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 1 /f >nul 2>nul
echo "Run command" button is now visible !
goto 1choice
)
if %cho% equ 10 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 1 /f >nul 2>nul
echo "Network" button is now visible !
goto 1choice
)
if %cho% equ 11 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 1 /f >nul 2>nul
echo "Recorded TV" button is now visible !
goto 1choice
)
if %cho% equ 12 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 1 /f >nul 2>nul
echo "Downloads" button is now visible !
goto 1choice
)
if %cho% equ 13 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 1 /f >nul 2>nul
echo "Help" button is now visible !
goto 1choice
)
if %cho% equ 14 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 1 /f >nul 2>nul
echo "Games" button is now visible !
goto 1choice
)
if "%cho%"=="quit" (
tskill explorer
set crt=%cho%
goto result
)
if %cho% gtr 14 (
cls
echo Invalid choice !
goto err112
)
if %cho% lss 1 (
cls
echo Invalid choice !
goto err112
)

:hideb
cls
:err113
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³   Choose buttons you want to hide   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 1.Hard Disk Dirve       ³ 4.Music             ³
echo   ³ 2.User folder           ³ 5.Pictures          ³
echo   ³ 3.Documents             ³ 6.Videos            ³
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 7.Control Panel         ³ 11.Recorded TV      ³
echo   ³ 8.Administrative Tools  ³ 12.Downloads        ³
echo   ³ 9.Run...                ³ 13.Help ^& Support   ³
echo   ³ 10.Network              ³ 14.Games            ³
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo Note : choose all options you want to hide in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:2choice
set cho=
set /p cho=Choice :
if %cho% equ 1 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 0 /f >nul 2>nul
echo "Computer" button isn't visible !
goto 2choice
)
if %cho% equ 2 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 0 /f >nul 2>nul
echo "User folder" button isn't visible !
goto 2choice
)
if %cho% equ 3 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 0 /f >nul 2>nul
echo "My documents" button isn't visible !
goto 2choice
)
if %cho% equ 4 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 0 /f >nul 2>nul
echo "My music" button isn't visible !
goto 2choice
)
if %cho% equ 5 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 0 /f >nul 2>nul
echo "My pictures" button isn't visible !
goto 2choice
)
if %cho% equ 6 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 0 /f >nul 2>nul
echo "My videos" button isn't visible !
goto 2choice
)
if %cho% equ 7 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 0 /f >nul 2>nul
echo "Control panel" button isn't visible !
goto 2choice
)
if %cho% equ 8 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 0 /f >nul 2>nul
echo "Administrative tools" button isn't visible !
goto 2choice
)
if %cho% equ 9 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 0 /f >nul 2>nul
echo "Run command" button isn't visible !
goto 2choice
)
if %cho% equ 10 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 0 /f >nul 2>nul
echo "Network" button isn't visible !
goto 2choice
)
if %cho% equ 11 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 0 /f >nul 2>nul
echo "Recorded TV" button isn't visible !
goto 2choice
)
if %cho% equ 12 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 0 /f >nul 2>nul
echo "Downloads" button isn't visible !
goto 2choice
)
if %cho% equ 13 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 0 /f >nul 2>nul
echo "Help" button isn't visible !
goto 2choice
)
if %cho% equ 14 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 0 /f >nul 2>nul
echo "Games" button isn't visible !
goto 2choice
)
if "%cho%"=="quit" (
tskill explorer
set crt=%cho%
goto result
)
if %cho% gtr 14 (
cls
echo Invalid choice !
goto err113
)
if %cho% lss 1 (
cls
echo Invalid choice !
goto err113
)

:: PETIT + DE L'OPTION 11  CONFIGURATION DE L'ACTION DU BOUTTON D'ARRET DU MENU DEMARRER, COLORATION DES DOSSIERS COMPRESSES, CONFIGURATION DU NOMBRE MAXIMAL DE FICHIERS DANS L'EMPLACEMENT RECENT (CLIC DROIT SUR L'ICONE DE L'EXPLORATEUR WINDOWS DANS LA BARRE DES TACHES)

:othersb
cls
:err114
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 03 ³  Power button action  ³   ³ 04 ³ Color compressed folders ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo                ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo                ³ 05 ³Set maximum files in Jump List³
echo                ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p "crt=3, 4 or 5 : "
if %crt% equ 3 goto pwract
if %crt% equ 4 goto clrcpsdfldr
if %crt% equ 5 goto stmxflsjmplst
if %crt% gtr 5 (
cls
echo Invalid choice !
goto err114
)
if %crt% lss 3 (
cls
echo Invalid choice !
goto err114
)
:pwract
cls
:err115
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º    Power button action    º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Set to power button function of :
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³    Switch User    ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 02 ³      Log off      ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 03 ³   Lock Session    ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 04 ³ Restart Computer  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 05 ³       Sleep       ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 06 ³     Hibernate     ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 07 ³ Shutdown computer ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cha=Choice :
echo.
if %cha% equ 1 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 256 /f >nul 2>nul
echo Power button's function is now "Switch user".
)
if %cha% equ 2 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 1 /f >nul 2>nul
echo Power button's function is now "Log off".
)
if %cha% equ 3 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 512 /f >nul 2>nul
echo Power button's function is now "Lock session".
)
if %cha% equ 4 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 4 /f >nul 2>nul
echo Power button's function is now "Restart computer".
)
if %cha% equ 5 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 16 /f >nul 2>nul
echo Power button's function is now "Sleep".
)
if %cha% equ 6 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 64 /f >nul 2>nul
echo Power button's function is now "Hibernate".
echo.
echo   Note : This will not work if you've disabled
echo          the hibernate function.
)
if %cha% equ 7 (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 2 /f >nul 2>nul
echo Power button's function is now "Shutdown computer".
)
if %cha% gtr 7 (
cls
echo Invalid choice !
goto err115
)
if %cha% lss 1 (
cls
echo Invalid choice !
goto err115
)
tskill explorer &goto result
 
:clrcpsdfldr
cls
:err116
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 04 ³  Color compressed folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Disable compressed folders color  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Enable compressed folders color   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p chz=1 or 2 :
set /a chz=%chz%-1
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v ShowCompColor /t REG_DWORD /d %chz% /f >nul 2>nul
if %chz% gtr 2 (
cls
echo Invalid choice !
goto err116
)
if %chz% lss 1 (
cls
echo Invalid choice !
goto err116
)
echo.
if %chz% equ 0 (echo Compressed folder color disabled.) else (echo Compressed folder color enabled.)
set chr=%chz%+1
goto result
 
:stmxflsjmplst
cls
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 05 ³ Set maximum files in jump list ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
:errstmxfljpls
set chr=
set /p chr=Choice (0-9999...) :
if "%chr%"=="" (
echo.
echo Choice cannot be empty !
echo.
echo.
goto errstmxfljpls
)
echo.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_JumpListItems /t REG_DWORD /d %chr% /f >nul 2>nul
if %chr% equ 1 (echo Jump list can now contain 1 item.)
if %chr% lss 1 (echo Jump list cannot contain any item.)
if %chr% gtr 1 (echo Jump list can now contain %chr% items.)
goto result
 
:: OPTION 12  CONFIGURATION DE LA FONCTION AUTORUN DES MEDIAS AMOVIBLES

:m12
cls
:err12
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º   USB Autorun   º   The 31/03/2012 at 21:04
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : USB Autorun Security Tweak
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Enable Autorun    ³  ³ 02 ³   Disable Autrun    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.     
set /p crt=1 or 2 :
if %crt% equ 1 (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x91 >nul 2>nul
echo.
echo Autorun function is now enabled
echo.
echo    Note : please pay attention, if the removable media is infected,
echo           your computer could also be infected
echo           because of the Autorun function.
)
if %crt% equ 2 (
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x4 >nul 2>nul
echo.
echo Autorun function is now disabled
echo.
echo    Note : This could be binding for you,
echo           but it's safer for your computer
echo           and its security.
)
if %crt% gtr 2 (
cls
echo Invalid choice !
goto err12
)
if %crt% lss 1 (
cls
echo Invalid choice !
goto err12
)
goto result

:: OPTION 13  AIDE

:m13
mode con cols=135 lines=32
color f0
cls
echo (en) Help Notes : Please run Registry Tool as Administrator.
echo.
echo Registry backups : It is highly preferable to save the entire registry before starting Registry Tool.
echo Note that this backup is performed automatically by default at the first startup of the program.
echo The files are stored in the directory "%windir%\RegistryTool\RegBackUp".
echo If there is a problem with the automatic backup, please use a specially designed program for this (ERUNT for example).
echo We are not responsible of any eventual damage caused by Registry Tool.
echo.
echo.
echo (fr) Notes d'aide : Veuillez executer Registry Tool en tant qu'administrateur.
echo.
echo Sauvegardes du registre : il est fortement recommand‚ de sauvegarder toute la base de registre avant de d‚marrer Registry Tool.
echo Notez que cette sauvegarde est effectu‚e automatiquement par d‚faut au premier d‚marrage du programme.
echo Les fichiers sont stock‚s dans le r‚pertoire "%windir%\RegistryTool\RegBackUp".
echo En cas de problŠme avec la sauvegarde, veuillez utiliser un programme sp‚cialement conÞu pour cela (ERUNT par exemple).
echo Nous ne seront en aucun cas tenus responsables des eventuels d‚gƒts que pourraient vous causer Registry Tool.
echo. 
echo.
echo (es) Ayuda : Por favor, ejecute Registry Tool como administrador.
echo.
echo Las copias de seguridad del registro : Es altamente preferible guardar todo el registro antes de iniciar Registry Tool.
echo Tenga en cuenta que esta copia de seguridad se realiza automaticamente de manera predeterminada en el primer inicio del programa.
echo Los archivos se guardan en el directorio "%windir%\RegistryTool\RegBackUp".
echo Si un problema ocurre con la copia de seguridad, por favor utiliza un programa especialmente dise¤ado para este (por ejemplo ERUNT).
echo No somos responsables de de cualquier da¤o eventual provocado por Registry Tool.
echo.
echo.
echo For questions, comments, or bug reports, please feel free
echo to contact us at the following address : raf.webmaster@octavener.org
echo.
echo Press any key...
pause >nul
color 0f
mode con cols=71 lines=24
goto menu

:: RESULTAT DE TOUTES LES COMMANDES PRECEDENTES

:result
echo.
echo.
echo   Well considered "%crt%" choice !
echo.
echo Press any key...
pause >nul
goto menu

:: SORTIE DU SCRIPT AVEC LE LOGO DE REGISTRY TOOL

:classexit
mode con cols=84 lines=69
cls
echo.
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                     '.               ++++++++.               '`                   
echo                    '''.            :++++++++++'.            '''`                   
echo                   '''''.        ;+++++++++++++++++,        '''''`                 
echo                  '''''''.    `++++++++++++++++++++++;     '''''''`                 
echo                 '''''''''.  ++++++++++++++++++++++++++,  '''''''''`               
echo                ''''''''''':+++++++++++++++++++++++++++++'''''''''''`               
echo                .'''''''''++++++++++++++++++++++++++++++++''''''''''               
echo                 .'''''''++++++++++++++++++++++++++++++++++''''''''                 
echo                  .'''''+++++++++++++@#:.` `.;@@#+++++++++++''''''                 
echo                   .'''+++++++++++#'            .##++++++++++''''                   
echo                    .'++++++++++#'                 ##+++++++++''                   
echo                     :+++++++++@                    ,@+++++++++                     
echo                     ++++++++++                       @++++++++'                   
echo                    +++++++++'                         @++++++++`                   
echo                   `+++++++++                           @++++++++                   
echo                   ++++++++@                            `@+++++++.                 
echo                  `++++++++  Registry Tool will now exit ;#+++++++                 
echo                  '+++++++:                               @+++++++                 
echo                  ++++++++                                ,#++++++;                 
echo                  +++++++@###############################, @+++++++                 
echo                 :++++++,`:@@@@@@@@@@@#.```#+@@@@@@@@@@@@:  +++++++                 
echo                 +++++++  ,@@@@@@@@@@@@@:  '+@@@#@@#@@@@@:  '++++++.               
echo         +++++++++++++++  ,@@@@@@@@@@@@@@  '++##@@@@@@@@@:  `++++++++++++++`       
echo         +++++++++++++++  ,@@@@+++++#@@@@  `.,,,+@@@+,,,,`   ++++++++++++++`       
echo         ++++++++++++++;  ,@#@#      ##@@       ;@@#'        ++++++++++++++`       
echo         ++++++++++++++;  ,@@@#  ;;;'@@@@       ;@#@'        ++++++++++++++`       
echo         ++++++++++++++.  ,#@## @@@@#@@@#       '@@@+        ++++++++++++++`       
echo         ++++++++++++++;  ,++#' :##@+@@#        ;#@+;        ++++++++++++++`       
echo         ++++++++++++++;  ,####  ,#+#@.         ;##@;        ++++++++++++++`       
echo         +++++++++++++++   ;###   `++##,        `+++'       `++++++++++++++`       
echo         ::::::::+++++++,   ;@+    `#+#+'         ;@'       :++++++;:::::::`       
echo                 #######@    ,;      '@@##+++++++++@@+++++++#++++++                 
echo                 ;#######`            `````````````````````@+++++++                 
echo                  ########                                 @+++++++                 
echo                  #######@     Thanks for having used     ##++++++,                 
echo                  '########        this software !       `@+++++++                 
echo                   ########.                             @#++++++'                 
echo                   +#######@                            '#+++++++                   
echo                    ########@                          :@++++++++                   
echo                    '########@                        :@++++++++                   
echo                     #########@                      '@++++++++:                   
echo                     ##########@:                   @@+++++++++.                   
echo                    #############@.               '@#+++++++++''.                   
echo                   ################@;          .#@#++++++++++''''.                 
echo                  ###################@@@#+++@@@#++++++++++++''''''.                 
echo                 #####################+++++++++++++++++++++''''''''.               
echo                +#####################++++++++++++++++++++''''''''''.               
echo               ,###########`##########++++++++++++++++++::''''''''''               
echo               +##########`  ,########+++++++++++++++++   :''''''''                 
echo               ##########`     :######+++++++++++++++      :''''''                 
echo              `#########`         '###++++++++++++,         :''''                   
echo              ;########`             .++++++++;`             :''                   
echo              #######+`               ++++++++:               :                     
echo              #+:`                    ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ::::::::,   
ping localhost /n 6 >nul
exit                                 

et voici les exécutables :
Registry Tool 1.2.2 (x64)
Registry Tool 1.2.2 (x86)

Merci à tous.
Cordialement, Raphaël.




______________________________________________________
Cordialement, </Troud>.
Répondre en citant
Message Regrouper ces connaissances 
Salut Laughing
Je voulais juste m’intervenir sur la façon comment masquer la saisie du mot de passe; alors j'ai posté dans le forum un module facilement intégrable a vos batchs pour les masquer en utilisant du Vbscript et du HTA.
Le module se trouve dans cette discussion : [BAT][VBS][HTA]Générer un HTABOX pour cacher un mot de passe
Donc, j'ai pris dans cet exemple de Registry Tool ou il y a l'option 4 nécessite la saisie du mot de passe :

Code:
@echo off
Title Masquer la saisie du mot de passe en utilisant le module du HTABOX by Hackoo
mode con cols=75 lines=24 & color 9B
:askpassword
echo                  Veuillez Taper votre mot de passe
Set MyVBSFile=%tmp%\%~n0.vbs
Set MyHTAFile=%tmp%\%~n0.hta
Call :CreateMyVBS
Cscript.exe //NOLOGO %MyVBSFile%
start /wait mshta.exe "%MyHTAFile%"
for /f %%i in (%tmp%\userIn) do set "password=%%i"
cls
echo               Veuillez confirmer de nouveau votre mot de passe
Call :CreateMyVBS
start /wait mshta.exe "%MyHTAFile%"
for /f %%i in (%tmp%\userIn) do set "rpassword=%%i"
Del "%MyVBSFile%" & Del "%MyHTAFile%" & Del %tmp%\userIn
cls
if not "%password%"=="%rpassword%" (
echo.
echo                         Passwords do not match !
echo.
echo.
Timeout /NOBREAK /T 3 >nul
cls
goto askpassword
) else (
::reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultusername /t REG_SZ /d %user% /f >nul 2>nul
::reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultpassword /t REG_SZ /d %password% /f >nul 2>nul
)
echo.
echo Now you'll be logged as %user% on every startup.
echo.
echo    Note : If user name or password are wrong, the operation wont work !
echo.
echo WARNING : Your password is now visible in the registry !
echo           If you switch off the AutoLogon, your password will
echo           no longer be visible in the registry.
::goto result
Timeout /NOBREAK /T 10 >nul
::****************************************************************************************
:#Start
<html>
<head>
<title>Mot de Passe © Hackoo</title>
<hta:application id="htaid"
applicationName="Password"
border="thin"
icon="wlrmdr.exe"
borderStyle="normal"
caption="yes"
contextMenu="no"
maximizeButton="no"
minimizeButton="yes"
navigable="yes"
showInTaskbar="yes"
singleInstance="yes"
sysmenu="yes"
SCROLL="NO"
SHOWINTASKBAR="Yes"   
SELECTION="no"
MINIMIZEBUTTON="no"
>
</head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<BODY TOPMARGIN="1" LEFTMARGIN="1"><CENTER><DIV><SPAN ID="ONSCR"></SPAN></DIV></CENTER></BODY>
<script language="vbscript">
'---------------------------------------------------------------------------------------
Sub Window_OnLoad
    CenterWindow 300,150
    Call PasswordForm()
   Call Parler("Veuillez entrer votre mot de passe")
    Call TextFocus()
end sub
'---------------------------------------------------------------------------------------
Sub CenterWindow(x,y)
    Dim iLeft,itop
    window.resizeTo x,y
    iLeft = window.screen.availWidth/2 - x/2
    itop = window.screen.availHeight/2 - y/2
    window.moveTo ileft,itop
End Sub
'----------------------------------------------------------------------------------------
Sub SavePassword()
    set fs=CreateObject("Scripting.FileSystemObject")
    strFile=fs.GetAbsolutePathName(fs.BuildPath(fs.GetSpecialFolder(2),"UserIn"))
    set ts=fs.OpenTextFile(strFile,2,True)
    If PasswordArea.value <> "" Then
        ts.WriteLine PasswordArea.value
        ts.Close
        self.Close 'Pour fermer ce HTA après avoir enregistré le mot de passe comme une variable dans le fichier Userin
    else
        Msgbox "Le mot de passe est vide ! "& Vbcrlf & "SVP entrez de nouveau votre mot de passe",VbExclamation,"Mot de Passe © Hackoo"
        Location.reload(true) 'Pour recharger à nouveau ce HTA
    end if
End Sub
'----------------------------------------------------------------------------------------
Sub PasswordForm()
    Self.document.title = "Mot de Passe © Hackoo"
    Self.document.bgColor = "lightblue"
    ONSCR.InnerHTML="<center><FONT COLOR=""#FFFFFF"" SIZE=""+1"" FACE=""VERDANA,ARIAL,HELVETICA,SANS-SERIF"">Taper votre mot de passe</FONT<br>"_
    &"<input type=""password"" name=""PasswordArea"" size=""20"" onKeyUp=""TextFocus""><P"_
    &"<input type=""Submit"" STYLE=""HEIGHT:25;WIDTH:110"" value=""OK"" onClick=""SavePassword"">"
END Sub
'----------------------------------------------------------------------------------------
Sub TextFocus
    PasswordArea.Focus
End Sub
'----------------------------------------------------------------------------------------
Sub Sleep(MSecs)' Fonction pour faire une pause car wscript.sleep ne marche pas dans un HTA
   Set fso = CreateObject("Scripting.FileSystemObject")
   Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
   Dim tempName : tempName = "Sleeper.vbs"
   If Fso.FileExists(tempFolder&"\"&tempName)=False Then
      Set objOutputFile = fso.CreateTextFile(tempFolder&"\"&tempName, True)
      objOutputFile.Write "wscript.sleep WScript.Arguments(0)"
      objOutputFile.Close
   End If
   CreateObject("WScript.Shell").Run tempFolder&"\"&tempName &" "& MSecs,1,True
 '----------------------------------------------------------------------------------------
End Sub
Sub Parler(Message)
Set Sound = CreateObject("WMPlayer.OCX.7")
Sound.URL = "http://translate.google.com/translate_tts?tl=fr&q=" & Message
Sound.Controls.play
Do while Sound.currentmedia.duration = 0
   Sleep 100
loop
Sleep (int(Sound.currentmedia.duration)+1)*1000
End Sub
::'***********************************************************************************************
</script>
</body>
</html>
:#End
::***********************************************************************************************
:CreateMyVBS
::'**********************************************************************************************
(
echo. Set fso = CreateObject^("Scripting.FileSystemObject"^)
echo. Set f=fso.opentextfile^("%~f0",1^)
echo. a=f.readall
echo. Set r=new regexp
echo. r.pattern = "(?:^|(?:\r\n))(?::#Start\r\n)([\s\S]*?)(?:\r\n)(?::#End)"
echo. Set Matches = r.Execute^(a^)
echo. If Matches.Count ^> 0 Then Data = Matches^(0^).SubMatches^(0^)
echo. WriteFileText "%MyHTAFile%",Data
echo. f.close
::'**********************************************************************************************
echo.
echo. Function WriteFileText^(sFile,Data^)
echo.     Dim objFSO,oTS,sText
echo.     Set objFSO = CreateObject^("Scripting.FileSystemObject"^)
echo.     Set oTS = objFSO.CreateTextFile^(sFile,2^)
echo.     oTS.WriteLine Data
echo.     oTS.close
echo.     set oTS = nothing
echo.     Set objFSO = nothing
echo. End Function
) > %MyVBSFile%
::'***********************************************************************************************





______________________________________________________
Mes Contributions en Téléchargement
Répondre en citant
Message Nouvelle version de Registry Tool (1.4.5) ! 
Salut à tous, aujourd'hui je viens à vous avec la version 1.4.5 de Registry Tool avec comme nouveautés, de légères améliorations au niveau des options 7 et 11, DEUX NOUVELLES OPTIONS (13 et 14) !! L'ajout de sons lors d'erreurs, la vérification de l'exécution du script en tant qu'administrateur, ainsi que la création d'un fichier README.txt que vous pourrez retrouver dans "C:\Windows\RegistryTool" Smile
Code:

@echo off
title Registry Tool V1.4.5
color 0f
mode con cols=71 lines=24

::DETECTION DE L'EXECUTION EN TANT QU'ADMINISTRATEUR
color 0c
mode con cols=71 lines=24

net session >nul 2>nul
   if errorlevel 1 (
      for /l %%i in (0,1,2) do (
      echo 
      ping 127.0.0.1 /n 1 >nul 2>nul
      cls
    )
   echo.
   echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
   echo   º  Not Administrator  º
   echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
   echo.
   echo   You must run Registry Tool as Administrator.
   echo   ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
   echo.
   echo   If you see this error message running Registry Tool
   echo   as Administrator, contact a developer.
   echo.
   echo Press any key...
   pause >nul
   exit /B
 ) else (goto wdrtdirectory)


::CREATION DU REPERTOIRE WINDIR\REGISTRYTOOL
:wdrtdirectory
   if exist "%windir%\RegistryTool" (
   goto readmefile
   ) else (
   md "%windir%\RegistryTool"
 )


::CREATION D'UN FICHIER README.TXT
:readmefile
set oldfileversioninfo= Registry Tool 1.2.2
set fileversioninfo= Registry Tool 1.4.5
   if exist "%windir%\RegistryTool\README%fileversioninfo%.txt" goto regdetect else (
      if exist "%windir%\RegistryTool\README%oldfileversioninfo%.txt" (
      del "%windir%\RegistryTool\README%oldfileversioninfo%.txt" /f /s /q >nul 2>nul
      goto startreadme
   ) else (goto startreadme)
:startreadme
echo   ------------------------------------- >"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo    Registry Tool 1.4.5 -- batch.xoo.it >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   ------------------------------------- >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo This software was founded by Pierre JOUSSAIN ^& Raphael BERTEAUD on batch.xoo.it. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo What's new : >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   Improving of option 7, option 11, a new option 13 and a new option 14 ! >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   Add sounds for errors and audit of admin rights. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   Add the creation of a readme.txt file.>>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo Description : >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   Registry Tool is a small tool predominantly coded in batch which serves to customize and optimize any computer with a WINDOWS® Operating System. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo Instructions : >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   Run Registry Tool.BAT as Administrator (right clic, and select run as administrator). Registry Tool.EXE doesn't need this manipulation cause it's automatically done. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   A registry backup is automatically made on the first execution, or if it's not detected in the "%windir%\RegistryTool\RegBackUp\" directory. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   This software also includes in the same option a function to restore your last registry backup. So if there was a wrong manipulation, you'll be able to cancel it. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo FAQ : >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   For any question concerning the Registry Tool project, please feel free to contact us at the following e-mail address : raf.webmaster@octavener.org >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   To see the evolution of the Registry Tool project, don't hesitate to visit this link : http://batch.xoo.it/t3247-Regrouper-ces-connaissances.htm >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   If you're interested in the project, contact us at the same address : raf.webmaster@octavener.org >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   And, if you're interested in programmation (batch, vbs, hta, etc...), visit this great forum : batch.xoo.it (http://batch.xoo.it/index.php) >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo Secrets : >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   In the main menu, type "quit", "exit", "shut", "switch off", "close", "turn off", "fermer", "quitter" or any number weaker than 0 to perform a "Class Exit" ;) >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   In this same  main menu, enter 0 as choice to see the credits ;) >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   In any option, enter "back", "quit", "exit" or "fermer" as choice to come back to the main menu. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo Credits : >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo   Founded by Pierre JOUSSAIN ^& Raphael BERTEAUD. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo     Thanks to : >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo       -ytrezAn on batch.xoo.it for a command in option 6 >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo       -Hackoo on batch.xoo.it for hta ^& vbs code in option 4 (Big Security Update) for further update >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo       -BlastKiller (not on batch.xoo.it) for most of the option 14's code >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo       -Laddy on batch.xoo.it for the creation of private sub-forum for a better work >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
echo. >>"%windir%\RegistryTool\README%fileversioninfo%.txt"
   if exist "%userprofile%\desktop" (
   copy /y "%windir%\RegistryTool\README%fileversioninfo%.txt" "%userprofile%\desktop"
   ) else (
      if exist "%userprofile%\bureau" (
      copy /y "%windir%\RegistryTool\README%fileversioninfo%.txt" "%userprofile%\bureau"
      ) else (goto regdetect)
    )
 

:: DETECTION DE LA COMMANDE REG.EXE
:regdetect
   if exist "%windir%\System32\reg.*" goto tskilldetect
cls
   for /l %%i in (0,1,2) do (
   echo 
   ping 127.0.0.1 /n 1 >nul 2>nul
   cls
 )
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º  Reg Undetected  º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Command Reg [Not found]
echo.
echo   Please, download the command reg.[exe]
echo   and place this file in %windir%\System32\
echo.
echo   If the problem persists, contact a developer.
   if not exist "%windir%\RegistryTool\noreg.vbs" (
   echo On error resume next >"%windir%\RegistryTool\noreg.vbs"
   echo msgbox "This error report indicates the " ^& chr^(34^) ^& "reg.exe" ^& chr^(34^) ^& " command was not found in your computer. This command is used by all the options of this program, so without it, the whole program is useless." ^& vbcrlf ^& vbcrlf ^& "The only way to fix this problem is to find " ^& chr^(34^) ^& "reg.exe" ^& chr^(34^) ^& " on the internet, and to place it in %windir%\system32.", 16+4096+vbokonly, "Command reg not found details" >>"%windir%\RegistryTool\noreg.vbs"
 )
echo.
echo Press any key...
"%windir%\RegistryTool\noreg.vbs"
pause >nul
exit /B

:: DETECTION DE LA COMMANDE TSKILL.EXE

:tskilldetect
   if exist "%windir%\system32\tskill.*" goto start
cls
   for /l %%i in (0,1,1) do (
   echo 
   ping 127.0.0.1 /n 1 >nul 2>nul
   cls
 )
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º  tskill Undetected  º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Command tskill [Not found]
echo.
echo   The absence of this command could cause
echo   problems to Registry Tool runtime.
echo.
echo   To ensure a better functioning of the software,
echo   please, download the command tskill.[exe]
echo   and place this file in %windir%\System32\
echo.
   if not exist "%windir%\RegistryTool\notskill.vbs" md "%windir%\RegistryTool\notskillfirstappear"
echo On error resume next >"%windir%\RegistryTool\notskillfirstappear\notskill.vbs"
echo msgbox "This error report indicates the " ^& chr(34) ^& "tskill.exe" ^& chr(34) ^& " command was not found in your computer." ^& vbcrlf ^& "To correct the problem, try to find the " ^& chr(34) ^& "tskill.exe" ^& chr(34) ^& " file on the internet, then place the file in %windir%\system32." ^& vbcrlf ^& "If you cannot do this, you will have to reboot your computer after each error message concerning " ^& chr(34) ^& "tskill.exe" ^& chr(34) ^& " for some changes to take effect." ^& vbcrlf ^& vbcrlf ^& "For advanced users only, you will just have to kill " ^& chr(34) ^& "explorer.exe" ^& chr(34) ^& " process and then restart it each time the error message concerning " ^& chr(34) ^& "tskill.exe" ^& chr(34) ^& " appears.", 64+4096+vbokonly, "Command tskill not found details" >>"%windir%\RegistryTool\notskillfirstappear\notskill.vbs"
echo   For more details, open %windir%\RegistryTool\notskill.vbs
echo.
echo   If the problem persists, contact a developer.
echo.
echo Press any key...
   if not exist "%windir%\RegistryTool\notskill.vbs" (
   "%windir%\RegistryTool\notskillfirstappear\notskill.vbs"
   move /y "%windir%\RegistryTool\notskillfirstappear\notskill.vbs" "%windir%\RegistryTool" >nul 2>nul
   rd "%windir%\RegistryTool\notskillfirstappear" /q >nul 2>nul
   ) else (
   del "%windir%\RegistryTool\notskillfirstappear" /f /s /q >nul 2>nul
 )
pause >nul

:start
 
:: DETECTION DE LA SAUVEGARDE DU REGISTRE, SI ELLE N'EXISTE PAS, ELLE SERA EFFECTUEE AUTOMATIQUEMENT
color 0f
   if exist "%windir%\RegistryTool\RegBackUp\*.reg" goto backupdetected
mode con cols=71 lines=26
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º    Reg BackUp    º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Loading, backup in progress...
echo.
echo step 1/5
md "%windir%\RegistryTool\RegBackUp" >nul 2>nul
reg export HKLM "%windir%\RegistryTool\RegBackUp\HKLM.reg" >nul 2>nul
echo Done !
echo.
echo step 2/5
reg export HKCR "%windir%\RegistryTool\RegBackUp\HKCR.reg" >nul 2>nul
echo Done !
echo.
echo step 3/5
reg export HKCU "%windir%\RegistryTool\RegBackUp\HKCU.reg" >nul 2>nul
echo Done !
echo.
echo step 4/5
reg export HKCC "%windir%\RegistryTool\RegBackUp\HKCC.reg" >nul 2>nul
echo Done !
echo.
echo step 5/5
reg export HKU "%windir%\RegistryTool\RegBackUp\HKU.reg" >nul 2>nul
echo Done !
echo   Your last registry backup was made on %date% at %time%. >"%windir%\RegistryTool\RegBackup\datinfo.rbt"
echo   You've restored the registry backup of %date%, %time%. >"%windir%\RegistryTool\RegBackup\restdatinfo.rbt"
reg add HKEY_CLASSES_ROOT\.rbt /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\.rbt /ve /t REG_SZ /d rbtfile /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /ve /t REG_SZ /d "Registry Backup Tool Data Document" /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /v AlwaysShowExt /t REG_SZ /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\DefaultIcon /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\DefaultIcon /ve /t REG_SZ /d "%SystemRoot%\system32\setupapi.dll,12" /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open\command /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open\command /ve /t REG_SZ /d unknown /f >nul 2>nul
echo.
echo   Backup in : "%windir%\RegistryTool\RegBackUp\"
echo.
echo Press any key...
pause >nul
mode con cols=71 lines=24
:backupdetected
 
:menu
color 0f
set crt=enu
cls
:errenu
echo.
echo                     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                     º                             º
echo                     º        Registry Tool        º
echo                     º                             º
echo                     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   IP Proxy   ³  ³ 02 ³ Hide Desktop ³  ³ 03 ³ Optimize All ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 04 ³  Auto-Logon  ³  ³ 05 ³  USB Detect  ³  ³ 06 ³  CleanUpReg  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 07 ³ Context Menu ³  ³ 08 ³  Reg Backup  ³  ³ 09 ³ Startup Soft ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 10 ³    Folder    ³  ³ 11 ³ Menu Taskbar ³  ³ 12 ³ USB Autorun  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 13 ³ Admin Tweaks ³  ³ 14 ³ System Infos ³  ³ 15 ³     Help     ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.
echo.
set /p crt=Choice :
   if /I "%crt%"=="quit" goto classexit
   if /I "%crt%"=="exit" goto classexit
   if /I "%crt%"=="shut" goto classexit
   if /I "%crt%"=="switch off" goto classexit
   if /I "%crt%"=="close" goto classexit
   if /I "%crt%"=="turn off" goto classexit
   if /I "%crt%"=="fermer" goto classexit
   if /I "%crt%"=="quitter" goto classexit
   if %crt% geq 0 (
      if %crt% leq 15 (
      goto m%crt%
      ) else (
      echo 
      cls
      echo Invalid choice !
      goto errenu
    )
 ) else (goto classexit)

::CREDITS

:m0
:m00
mode con cols=75 lines=28
cls
echo.
echo                            Version : 1.4.5
echo.
echo    ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Modify : option 7, option 11, new option 13
echo    º   Registry Tool   º            new option 14, add sound, audit of
echo    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ            admin rights, creation of README.txt
echo.
echo                            The 26/08/2014 at 22:08
echo.
echo   Created by : Pierre JOUSSAIN ^& Raphael BERTEAUD
echo   Created for : batch.xoo.it ^& Everyone else
echo.
echo   Developed by :
echo     ÄRaphael BERTEAUD [^</Troud>] ÍÍÍÍ 7 commands + part of 1h + help
echo     ÄPierre JOUSSAIN [Pierrot] ÍÍÍÍÍÍ 5 commands
echo     ÄBlastKiller ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ most of the option 14's code
echo     ÄUnknown [Laddy] ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ private sub-forum in batch.xoo.it
echo     ÄUnknown [ytrezAn] ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ command for option 6
echo.
echo    For questions, comments, or bug reports, please feel free
echo    to contact us at the following address : raf.webmaster@octavener.org
echo.
echo    Don't forget to check the README file in "%windir%\RegistryTool\"
echo.
echo Press any key...
pause >nul
mode con cols=71 lines=24
goto menu

:: OPTION 1  CONFIGURATION DU PROXY

:m1
:m01
cls
:err
set oot=1
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º     IP Proxy     º   The 15/03/2012 at 19:29
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Configure Proxy
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³     Desactivate      ³  ³ 02 ³       Activate       ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p oot=1 or 2 :
   if /I "%oot%"=="back" goto menu
   if /I "%oot%"=="exit" goto menu
   if /I "%oot%"=="quit" goto menu
   if /I "%oot%"=="retour" goto menu
set /a oot=%oot%-1
   if %oot% equ 0 set crt=ProxyOFF
   if %oot% equ 0 goto oot
   if %oot% gtr 1 (
   echo 
   cls
   echo Invalid Choice !
   goto err
 )
   if %oot% lss 0 (
   echo 
   cls
   echo Invalid Choice !
   goto err
 )
echo.
echo.
echo   Please, choose an IP adress (ex : 255.18.42.20)
echo.
set /p crt=IP :
:oot
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyenable /t Reg_Dword /d "%oot%" /f >nul 2>nul
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyserver /t Reg_SZ /d "%crt%" /f >nul 2>nul
   if %oot% equ 1 (
   echo.
   echo Proxy Enabled ! ^(%crt%^)
   ) else (
   echo.
   echo Proxy Disabled !
 )
goto result
 
:: OPTION 2  AFFICHAGE DES ICONES DU BUREAU

:m2
:m02
cls
:err2
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Hide Desktop   º   The 15/03/2012 at 17:31
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Show or Hide Desktop Icons
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Show desktop icons  ³  ³ 02 ³  Hide desktop icons  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.     
set /p crt=1 or 2 :
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
set /a crt=%crt%-1
   if %crt% gtr 1 (
   echo 
   cls
   echo Invalid choice !
   goto err2
 )
   if %crt% lss 0 (
   echo 
   cls
   echo Invalid choice !
   goto err2
 )
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoDesktop /t REG_DWORD /d %crt% /f >nul 2>nul
   if %crt% equ 1 (
   echo.
   echo Desktop icons disabled.
   ) else (
   echo.
   echo Desktop icons enabled.
 )
tskill explorer 2>nul
   if errorlevel 1 "%windir%\RegistryTool\notskill.vbs"
set /a crt=%crt%+1
goto result

:: OPTION 3  OPTIMISATION DU DEMARRAGE, DE L'EXECUTION ET DE L'EXTINCTION DE WINDOWS

:m3
:m03
cls
:err3
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Optimize All   º   The 15/03/2012 at 17:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Faster Boot, Runtime and Shutdown
echo.
echo   ÄÄÄÄ^> Optimize StartUp [Raphael BERTEAUD]
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v VerboseStatus /t REG_DWORD /d 1 /f >nul 2>nul
echo Verbose Mode Enabled.
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction /v OptimizeComplete /t REG_SZ /d no /f >nul 2>nul
echo Startup Defragmentation Disabled.
echo.
echo   ÄÄÄÄ^> Optimize Windows [Raphael BERTEAUD]
del "%windir%\temp" /f /s /q >nul 2>nul
del "%localappdata%\Microsoft\Windows\Temporary Internet Files\*.*" /f /s /q >nul 2>nul
echo Temporary Files Deleted.
del "%windir%\prefetch\*.*" /f /s /q >nul 2>nul
echo Prefetch Folder Cleared.
del index.dat /f /s /q >nul 2>nul
echo "Index.dat" Cleared.
takeown /f "%windir%\Logs\CBS\CBS.log" >nul 2>nul
echo  >"%windir%\Logs\CBS\CBS.log"
echo "CBS.log" Cleared.
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer /v AlwaysUnloadDll /t REG_DWORD /d 1 /f >nul 2>nul
echo Unloading ".dll" Files Enabled.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v SeparateProcess /t REG_DWORD /d 1 /f >nul 2>nul
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem /v NtfsDisableLastAccessUpdate /t REG_DWORD /d 1 /f >nul 2>nul
echo Separation of Processes Enabled.
reg add "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Memory Management" /v DisablePagingExecutive /t REG_DWORD /d 1 /f >nul 2>nul
echo Paging Executive Disabled (Disable Kernel ^& Hardware Drivers Swapping)
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v MenuShowDelay /t REG_SZ /d 50 /f >nul 2>nul
reg add "HKEY_USERS\.DEFAULT\Control Panel\Mouse" /v MouseHoverTime /t REG_SZ /d 50 /f >nul 2>nul
echo Speeding Up Explorer Animations.
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v LowLevelHooksTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoInternetOpenWith /t REG_DWORD /d 1 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPer1_0Server /t REG_DWORD /d 12 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPerServer /t REG_DWORD /d 12 /f >nul 2>nul
echo Extending Connection Limits Per Server.
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Filesystem /v NtfsDisable8dot3NameCreation /t REG_DWORD /d 1 /f >nul 2>nul
echo NTFS "8.3 Name Creation" Disabled.
echo.
set /p hibonoff=Do you want to disable hibernation ? (Y/N)                             (This frees up disk space) :
   if /I "%hibonoff%"=="y" (
   echo Please wait...
   powercfg -h off
   echo Hibernation Disabled.
   goto shutopthdd
 )
   if /I "%hibonoff%"=="yes" (
   echo Please wait...
   powercfg -h off
   echo Hibernation Disabled.
   goto shutopthdd
 )
   if /I "%hibonoff%"=="o" (
   echo Please wait...
   powercfg -h off
   echo Hibernation Disabled.
   goto shutopthdd
 )
   if /I "%hibonoff%"=="oui" (
   echo Please wait...
   powercfg -h off
   echo Hibernation Disabled.
   goto shutopthdd
 )
   if "%hibonoff%"=="1" (
   echo Please wait...
   powercfg -h off
   echo Hibernation Disabled.
   goto shutopthdd
 )
echo Please wait...
powercfg -h on
echo Hibernation enabled.
:shutopthdd
echo.
echo   ÄÄÄÄ^> Optimize extinction [Raphael BERTEAUD]
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" /v WaitToKillServiceTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v AutoEndTasks /t REG_SZ /d 1 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v WaitToKillAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v HungAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_USERS\.DEFAULT\Control Panel\Desktop" /v WaitToKillAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_USERS\.DEFAULT\Control Panel\Desktop" /v HungAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
echo Reduction of Killing Applications ^& Services' Delays.
echo.
echo You should Restart your computer to apply changes.
set /p crt=Would you like to restart now ? (Y/N) :
   if /I "%crt%"=="y" (shutdown -r -t 00) else (goto result)

:: OPTION 4  CONFIGURATION DE LA CONNEXION AUTOMATIQUE A UNE SESSION DEFINIE AU DEMARRAGE DE WINDOWS

:m4
:m04
set crt=1
cls
:err4
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º    Auto-Logon    º   The 16/03/2012 at 17:39
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Automatic Session Logon
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Desactivate AutoLogon ³  ³ 02 ³  Activate AutoLogon   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Logon automatically to the session you want
echo.
set /p crt=1 or 2 :
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
set /a crt=%crt%-1
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AutoAdminLogon /t REG_SZ /d %crt% /f >nul 2>nul
   if %crt% EQU 0 (
   reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultusername" /f >nul 2>nul
   reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultpassword" /f >nul 2>nul
   echo.
   echo Auto logon disabled.
   set /a crt=%crt%+1
   goto result
   ) else (
   echo.
   echo Auto logon enabled.
 )
   if %crt% gtr 1 (
   echo 
   cls
   echo Invalid choice !
   goto err4
 )
   if %crt% lss 0 (
   echo 
   cls
   echo Invalid choice !
   goto err4
 )
set /a crt=%crt%+1
echo.
:askuseral
set /p user=Which session do you want to use as default ? :
   if "%user%"=="" (
   echo.
   echo User cannot be empty !
   echo.
   echo.
   goto askuseral
 )
echo.
:askpassword
set /p password=Password :
set /p rpassword=Reenter password :
   if not "%password%"=="%rpassword%" (
   echo.
   echo Passwords do not match !
   echo.
   echo.
   goto askpassword
   ) else (
   reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultusername /t REG_SZ /d %user% /f >nul 2>nul
   reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultpassword /t REG_SZ /d %password% /f >nul 2>nul
 )
cls
echo.
echo Now you'll be logged as %user% on every startup.
echo.
echo    Note : If user name or password are wrong, the operation wont work !
echo.
echo WARNING : Your password is now visible in the registry !
echo           If you switch off the AutoLogon, your password will
echo           no longer be visible in the registry.
goto result
 
:: OPTION 5  CONFIGURATION DE LA DETECTION DES USB (LES EFFETS SONT EFFECTIFS APRES REDEMARRAGE UNIQUEMENT)

:m5
:m05
cls
:err5
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º    USB Detect    º   The 16/03/2012 at 21:25
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Administrative Tweak for USB
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Enable USB Detect   ³  ³ 02 ³  Disable USB Detect  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=1 or 2 :
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
set /a crt=%crt%+2
   if %crt% gtr 4 (
   echo 
   cls
   echo Invalid choice !
   goto err5
 )
   if %crt% lss 3 (
   echo 
   cls
   echo Invalid choice !
   goto err5
 )
echo.
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR" /v Start /t Reg_Dword /d "%crt%" /f >nul 2>nul
echo.
   if %crt% equ 4 (
   echo Disabling USB detection.
   reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies /v WriteProtect /t REG_DWORD /d 1 /f >nul 2>nul
   echo.
   echo Enabling USB write-protection.
   echo.
   echo    Your USB ports are now disabled !
   echo.
   echo You will have to reboot for the changes to take effect.
   set /p restartprompt="Would you like to restart now ? (Y/N) : "
      if /I "%restartprompt%"=="y" (shutdown -r -t 00) else (
      set /a crt=%crt%-2
      goto result
    )
   ) else (
   echo Enabling USB detection.
   reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies /v WriteProtect /t REG_DWORD /d 0 /f >nul 2>nul
   echo.
   echo Disabling USB write-protection.
   echo.
   echo    Your USB ports are now enabled !
   echo.
   echo You will have to reboot for the changes to take effect.
   set /p restartprompt="Would you like to restart now ? (Y/N) : "
      if /I "%restartprompt%"=="y" (shutdown -r -t 00) else (
      set /a crt=%crt%-2
      goto result
    )
 )

:: OPTION 6  LEGER NETTOYAGE DE LA BASE DE REGISTRE PAR SUPPRESSION DE VALEURS INUTILES
 
:m6
:m06
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : ytrezAn
echo   º    CleanUpReg    º   The 16/03/2012 at 20:50
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Erase Traces of Uninstalled Programs
echo.
echo.
echo   ÄÄÄÄ^> Delete traces [ytrezAn]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f >nul 2>nul
echo "Microsoft\Tracing" key ^& subkeys cleared.
echo.
echo   ÄÄÄÄ^> Delete traces [Pierre JOUSSAIN]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f >nul 2>nul
echo "Software\Microsoft\Tracing" key ^& subkeys cleared.
echo.
goto result
 
:: OPTION 7  CONFIGURATION DES OPTIONS DU MENU CONTEXTUEL (CLIC DROIT DE LA SOURIS) DU BUREAU

:m7
:m07
set crt=1
cls
:err7
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Context Menu   º   The 17/03/2012 at 21:00
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Add or Delete Context Menu Entries
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Add Option in the menu ³  ³ 02 ³ Del Option in the menu ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo              ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo              ³ 03 ³  Configure desktop context menu  ³
echo              ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Context menu affects the desktop context menu
echo.
set /p crt=1, 2 or 3 :
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 2 goto deleter
   if %crt% equ 3 goto disabledcm
   if %crt% gtr 3 (
   echo 
   cls
   echo Invalid choice !
   goto err7
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err7
 )
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Add Option to the Desktop Context Menu  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
:choosenameentry
set /p name=How would you name the new context menu entry ?
   if "%name%"=="" (
   echo.
   echo The name entry cannot be empty !
   echo.
   echo.
   goto choosenameentry
 )
echo.
:choosecommandentry
set /p comm=Which command do you want to associate to "%name%" ?
   if "%comm%"=="" (
   echo.
   echo The command cannot be empty !
   echo.
   echo.
   goto choosecommandentry
 )
echo.
echo.
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%" /f >nul 2>nul
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command" /f >nul 2>nul
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command" /ve /d %comm% /f >nul 2>nul
cls
:err71
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³      Add an icon       ³  ³ 03 ³ Continue without icon ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cicort=2 or 3 :
   if %cicort% equ 2 goto iconadd
   if %cicort% gtr 3 (
   echo 
   cls
   echo Invalid choice !
   goto err71
 )
   if %cicort% lss 2 (
   echo 
   cls
   echo Invalid choice !
   goto err71
 )
goto next1
:iconadd
echo.
set /p icon=What icon do you want to use for the option "%name%" ?
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%" /v Icon /t REG_SZ /d %icon% /f >nul 2>nul
:next1
cls
:err72
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    04 : Show the option "%name%" only when shift is pressed
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    05 : Always show the option "%name%"
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cshextrt=4 or 5 :
   if %cshextrt% equ 4 reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%" /v extended /t REG_SZ /f >nul 2>nul
   if %cshextrt% equ 5 goto placernext
   if %cshextrt% gtr 5 (
   echo 
   cls
   echo Invalid choice !
   goto err72
 )
   if %cshextrt% lss 4 (
   echo 
   cls
   echo Invalid choice !
   goto err72
 )
:placernext
cls
:err73
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    06 : Place the option "%name%" at the bottom
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    07 : Place the option "%name%" at the top
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    08 : Don't position the option "%name%"
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
set /p cplacert=6, 7 or 8 :
   if %cplacert% EQU 6 goto bottompos
   if %cplacert% EQU 7 goto toppos
   if %cplacert% EQU 8 goto nopos
   if %cplacert% gtr 8 (
   echo 
   cls
   echo Invalid choice !
   goto err73
 )
   if %cplacert% lss 6 (
   echo 
   cls
   echo Invalid choice !
   goto err73
 )
:bottompos
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%" /v position /t REG_SZ /d bottom /f >nul 2>nul
goto nopos
:toppos
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%" /v position /t REG_SZ /d top /f >nul 2>nul
:nopos
cls
echo.
echo   Option added to desktop context menu.
echo.
echo   Informations :
echo      Name : %name%
echo      Command : %comm%
   if defined icon echo      Icon : %icon%
   if %cshextrt% equ 4 (echo      Type : Extended desktop menu only) else (echo      Type : Classic desktop menu)
   if %cplacert% equ 6 echo      Position : Bottom
   if %cplacert% equ 7 echo      Position : Top
set crt=%cplacert%
goto result
:deleter
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³      Delete Option      ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
:askdelentrycm
set /p name1=Which context menu entry do you want to remove :
   if "%name1%"=="" (
   echo.
   echo Menu entry cannot be empty !
   echo.
   echo.
   goto askdelentrycm
 )
reg delete "HKEY_CLASSES_ROOT\Directory\Background\shell\%name1%" /f >nul 2>nul
   if errorlevel 1 (
   echo.
   echo   The "%name1%" entry seems to don't exist !
   echo.
   goto result
 )
echo.
echo   The "%name1%" entry has been successfully
echo   deleted from the desktop context menu !
goto result
:disabledcm
cls
:err74
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Enable desktop context menu  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Disable desktop context menu  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt=1 or 2 :
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err74
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err74
 )
set /a crt=%crt%-1
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /t REG_DWORD /d %crt% /f >nul 2>nul
echo.
set /a crt=%crt%+1
   if %crt% equ 1 (
   reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /f >nul 2>nul
   echo   Desktop context menu is enabled !
   tskill explorer 2>nul
   if errorlevel 1 "%windir%\RegistryTool\notskill.vbs"
   goto result
 )
   if %crt% equ 2 (
   echo   Desktop context menu is disabled !
   tskill explorer 2>nul
      if errorlevel 1 "%windir%\RegistryTool\notskill.vbs"
   goto result
 )


:: OPTION 8  OUTIL DE SAUVEGARDE ET DE RESTAURATION DE LA BASE DE REGISTRE
 
:m8
:m08
cls
:err8
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º    Reg Backup    º   The 18/03/2012 at 18:50
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Registry Backup Tool [Raphael B. idea]
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³      Reg Backup      ³  ³ 02 ³     Reg Restore     ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
   if not exist "%windir%\RegistryTool\RegBackUp" (
   echo   WARNING : You do not have a backup !
   echo.
 )
   if exist "%windir%\RegistryTool\RegBackUp\*.reg" (
   echo   Note : You have a backup.
      if exist "%windir%\RegistryTool\RegBackUp\datinfo.rbt" (
      type "%windir%\RegistryTool\RegBackup\datinfo.rbt" 2>nul
      echo.
      ) else (
      echo.
    )
 )
set /p crt=1 or 2 :
echo.
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 1 goto backup
   if %crt% equ 2 if exist "%windir%\RegistryTool\RegBackUp" (
   goto restore
   ) else (
   cls
   echo You don't have any registry backup, so you cannot restore it.
   goto err8
 )
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err8
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err8
 )
:backup
echo   Loading, backup in progress...
   if not exist "%windir%\RegistryTool\RegBackUp" md "%windir%\RegistryTool\RegBackUp"
echo.
echo step 1/5
reg export HKLM "%windir%\RegistryTool\RegBackUp\HKLM.reg" /y >nul 2>nul
echo Done !
echo.
echo step 2/5
reg export HKCR "%windir%\RegistryTool\RegBackUp\HKCR.reg" /y >nul 2>nul
echo Done !
echo.
echo step 3/5
reg export HKCU "%windir%\RegistryTool\RegBackUp\HKCU.reg" /y >nul 2>nul
echo Done !
echo.
echo step 4/5
reg export HKCC "%windir%\RegistryTool\RegBackUp\HKCC.reg" /y >nul 2>nul
echo Done !
echo.
echo step 5/5
reg export HKU "%windir%\RegsitryTool\RegBackUp\HKU.reg" /y >nul 2>nul
echo Done !
echo.
echo   Your last registry backup was made on %date% at %time%. >"%windir%\RegistryTool\RegBackup\datinfo.rbt"
echo   You've restored the registry backup of %date%, %time%. >"%windir%\RegistryTool\RegBackup\restdatinfo.rbt"
echo.
echo   Backup in : "%windir%\RegistryTool\RegBackUp\"
echo.
goto result
:restore
echo   Loading, restore in progress...
echo.
echo step 1/5
reg import "%windir%\RegistryTool\RegBackUp\HKLM.reg" >nul 2>nul
echo Done !
echo.
echo step 2/5
reg import "%windir%\RegistryTool\RegBackUp\HKCR.reg" >nul 2>nul
echo Done !
echo.
echo step 3/5
reg import "%windir%\RegistryTool\RegBackUp\HKCU.reg" >nul 2>nul
echo Done !
echo.
echo step 4/5
reg import "%windir%\RegistryTool\RegBackUp\HKCC.reg" >nul 2>nul
echo Done !
echo.
echo step 5/5
reg import "%windir%\RegistryTool\RegBackUp\HKU.reg" >nul 2>nul
echo Done !
echo.
type "%windir%\RegistryTool\RegBackup\restdatinfo.rbt" 2>nul
echo.
goto result
 
:: OPTION 9  CONFIGURATION DES LOGICIELS EXECUTES AUTOMATIQUEMENT AU DEMARRAGE DE WINDOWS

:m9
:m09
cls
:err9
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º   Startup Soft   º   The 19/03/2012 at 18:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Modify the Autorun Program List
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³      Add program      ³  ³ 02 ³    Delete program    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=1 or 2 :
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err9
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err9
 )
echo.
:askprogpath
set /p prt="Program path (without quotes) : "
   if "%prt%"=="" (
   echo.
   echo Program path cannot be empty !
   echo.
   echo.
   goto askprogpath
 )
echo.
   if %crt% equ 1 (
   reg add HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "%prt%" /t REG_SZ /d "%prt%" /f >nul 2>nul
   echo "%prt%" has been added to the startup programs list.
 )
   if %crt% equ 2 (
   reg delete HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "%prt%" /f >nul 2>nul
      if errorlevel 1 (
      echo "%prt%" seems to don't be in the autorun programs list.
      goto result
    )
   echo "%prt%" has been deleted from the startup programs list.
 )
goto result

:: OPTION 10  CONFIGURATION D'AFFICHAGE DES FICHIERS ET DOSSIERS DE WINDOWS (fichiers et dossiers cachés, extension de fichiers connus ...)
 
:m10
cls
:err10
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º     Folder     º   The 19/03/2012 at 18:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Folders Properties [Pierre J. idea]
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show or Hide hidden files ^& Folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Show or hide known files extension  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=1 or 2 :
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 1 goto hiddenFF
   if %crt% equ 2 goto knownEF
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err10
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err10
 )
:hiddenFF
cls
:err102
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show hidden files ^& folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³ Hide hidden files ^& folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt=1 or 2 :
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err102
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err102
 )
echo.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Hidden /t REG_DWORD /d %crt% /f >nul 2>nul
   if %crt% equ 1 (echo   Hidden files ^& folders are visible.) else (echo   Hidden files ^& folders are invisible.)
tskill explorer 2>nul
   if errorlevel 1 "%windir%\RegistryTool\notskill.vbs"
goto result
 
:knownEF
cls
:err103
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show known files extensions ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³ Hide known files extensions ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
set crt=
set /p crt=1 or 2 :
set /a crt=%crt%-1
   if %crt% gtr 1 (
   echo 
   cls
   echo Invalid choice !
   goto err103
 )
   if %crt% lss 0 (
   echo 
   cls
   echo Invalid choice !
   goto err103
 )
echo.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v HideFileExt /t REG_DWORD /d %crt% /f >nul 2>nul
   if %crt% equ 1 (echo   Known files extensions are invisible.) else (echo   Known files extensions are visible.)
set /a crt=%crt%+1
tskill explorer 2>nul
   if errorlevel 1 "%windir%\RegistryTool\notskill.vbs"
goto result
 
:: OPTION 11  CONFIGURATION DES BOUTTONS PRESENTS DANS LE MENU DEMARRER SUR LE PANNEAU DE DROITE (Ordinateur, mes documents, jeux, ma musique, mes vidéos, téléchargements, ...)

:m11
cls
:err11
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º     Taskbar     º   The 22/03/2012 at 22:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Customize Taskbar ^& Start Menu
echo.
echo.
echo  Customize taskbar ^& start menu + windows update ^& other tweaks
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿     ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Choose shown buttons  ³     ³ 02 ³  Choose hidden buttons  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ     ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿        ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 03 ³  Configure Windows Update  ³        ³ 04 ³   other   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ        ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=1, 2, 3 or 4 :
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 1 goto showb
   if %crt% equ 2 goto hideb
   if %crt% equ 3 goto winupdate
   if %crt% equ 4 goto othersb
   if %crt% gtr 4 (
   echo 
   cls
   echo Invalid choice !
   goto err11
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err11
 )
:showb
cls
:err112
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Choose buttons you want to show   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 1.Hard Disk Dirve       ³ 4.Music             ³
echo   ³ 2.User folder           ³ 5.Pictures          ³
echo   ³ 3.Documents             ³ 6.Videos            ³
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 7.Control Panel         ³ 11.Recorded TV      ³
echo   ³ 8.Administrative Tools  ³ 12.Downloads        ³
echo   ³ 9.Run...                ³ 13.Help ^& Support   ³
echo   ³ 10.Network              ³ 14.Games            ³
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo Note : choose all options you want to show in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:1choice
set cho=
set /p cho=Choice :
   if %cho% equ 1 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Computer" button is now visible !
   goto 1choice
 )
   if %cho% equ 2 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 1 /f >nul 2>nul
   echo "User folder" button is now visible !
   goto 1choice
 )
   if %cho% equ 3 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 1 /f >nul 2>nul
   echo "My documents" button is now visible !
   goto 1choice
 )
   if %cho% equ 4 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 1 /f >nul 2>nul
   echo "My music" button is now visible !
   goto 1choice
 )
   if %cho% equ 5 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 1 /f >nul 2>nul
   echo "My pictures" button is now visible !
   goto 1choice
 )
   if %cho% equ 6 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 1 /f >nul 2>nul
   echo "My videos" button is now visible !
   goto 1choice
 )
   if %cho% equ 7 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Control panel" button is now visible !
   goto 1choice
 )
   if %cho% equ 8 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Administrative tools" button is now visible !
   goto 1choice
 )
   if %cho% equ 9 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Run command" button is now visible !
   goto 1choice
 )
   if %cho% equ 10 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Network" button is now visible !
   goto 1choice
 )
   if %cho% equ 11 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Recorded TV" button is now visible !
   goto 1choice
 )
   if %cho% equ 12 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Downloads" button is now visible !
   goto 1choice
 )
   if %cho% equ 13 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Help" button is now visible !
   goto 1choice
 )
   if %cho% equ 14 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Games" button is now visible !
   goto 1choice
 )
   if /I "%cho%"=="quit" (
   tskill explorer 2>nul
      if errorlevel 1 "%windir%\RegistryTool\notskill.vbs"
   set crt=%cho%
   goto result
 )
   if %cho% gtr 14 (
   echo 
   cls
   echo Invalid choice !
   goto err112
 )
   if %cho% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err112
 )

:hideb
cls
:err113
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³   Choose buttons you want to hide   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 1.Hard Disk Dirve       ³ 4.Music             ³
echo   ³ 2.User folder           ³ 5.Pictures          ³
echo   ³ 3.Documents             ³ 6.Videos            ³
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 7.Control Panel         ³ 11.Recorded TV      ³
echo   ³ 8.Administrative Tools  ³ 12.Downloads        ³
echo   ³ 9.Run...                ³ 13.Help ^& Support   ³
echo   ³ 10.Network              ³ 14.Games            ³
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo Note : choose all options you want to hide in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:2choice
set cho=
set /p cho=Choice :
   if %cho% equ 1 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Computer" button isn't visible !
   goto 2choice
 )
   if %cho% equ 2 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 0 /f >nul 2>nul
   echo "User folder" button isn't visible !
   goto 2choice
 )
   if %cho% equ 3 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 0 /f >nul 2>nul
   echo "My documents" button isn't visible !
   goto 2choice
 )
   if %cho% equ 4 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 0 /f >nul 2>nul
   echo "My music" button isn't visible !
   goto 2choice
 )
   if %cho% equ 5 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 0 /f >nul 2>nul
   echo "My pictures" button isn't visible !
   goto 2choice
 )
   if %cho% equ 6 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 0 /f >nul 2>nul
   echo "My videos" button isn't visible !
   goto 2choice
 )
   if %cho% equ 7 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Control panel" button isn't visible !
   goto 2choice
 )
   if %cho% equ 8 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Administrative tools" button isn't visible !
   goto 2choice
 )
   if %cho% equ 9 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Run command" button isn't visible !
   goto 2choice
 )
   if %cho% equ 10 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Network" button isn't visible !
   goto 2choice
 )
   if %cho% equ 11 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Recorded TV" button isn't visible !
   goto 2choice
 )
   if %cho% equ 12 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Downloads" button isn't visible !
   goto 2choice
 )
   if %cho% equ 13 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Help" button isn't visible !
   goto 2choice
 )
   if %cho% equ 14 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Games" button isn't visible !
   goto 2choice
 )
   if /I "%cho%"=="quit" (
   tskill explorer 2>nul
      if errorlevel 1 "%windir%\RegistryTool\notskill.vbs"
   set crt=%cho%
   goto result
 )
   if %cho% gtr 14 (
   echo 
   cls
   echo Invalid choice !
   goto err113
 )
   if %cho% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err113
 )
:winupdate
cls
:err117
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Enable Windows Update  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Disable Windows Update  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt=1 or 2 :
   if %crt% equ 1 goto enawinupdate
   if %crt% equ 2 goto diswinupdate
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err117
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err117
 )
:enawinupdate
reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies /v DisableWindowsUpdateAccess /f >nul 2>nul
reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoWindowsUpdate /f >nul 2>nul
echo.
echo Windows update is enabled !
echo.
echo   Note : Please wait a few seconds for changes to take effect.
goto result
:diswinupdate
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies /v DisableWindowsUpdateAccess /t REG_DWORD /d 1 /f >nul 2>nul
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoWindowsUpdate /t REG_DWORD /d 1 /f >nul 2>nul
echo.
echo Windows update is disabled !
echo.
echo   Note : Please wait a few seconds for changes to take effect.
goto result


:: PETIT + DE L'OPTION 11  CONFIGURATION DE L'ACTION DU BOUTTON D'ARRET DU MENU DEMARRER, COLORATION DES DOSSIERS COMPRESSES, CONFIGURATION DU NOMBRE MAXIMAL DE FICHIERS DANS L'EMPLACEMENT RECENT (CLIC DROIT SUR L'ICONE DE L'EXPLORATEUR WINDOWS DANS LA BARRE DES TACHES)

:othersb
cls
:err114
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 03 ³  Power button action  ³   ³ 04 ³ Color compressed folders ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo                ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo                ³ 05 ³Set maximum files in Jump List³
echo                ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p "crt=3, 4 or 5 : "
   if %crt% equ 3 goto pwract
   if %crt% equ 4 goto clrcpsdfldr
   if %crt% equ 5 goto stmxflsjmplst
   if %crt% gtr 5 (
   echo 
   cls
   echo Invalid choice !
   goto err114
 )
   if %crt% lss 3 (
   echo 
   cls
   echo Invalid choice !
   goto err114
 )
:pwract
cls
:err115
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º    Power button action    º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Set to power button function of :
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³    Switch User    ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 02 ³      Log off      ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 03 ³   Lock Session    ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 04 ³ Restart Computer  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 05 ³       Sleep       ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 06 ³     Hibernate     ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 07 ³ Shutdown computer ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cha=Choice :
echo.
   if %cha% equ 1 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 256 /f >nul 2>nul
   echo Power button's function is now "Switch user".
 )
   if %cha% equ 2 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 1 /f >nul 2>nul
   echo Power button's function is now "Log off".
 )
   if %cha% equ 3 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 512 /f >nul 2>nul
   echo Power button's function is now "Lock session".
 )
   if %cha% equ 4 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 4 /f >nul 2>nul
   echo Power button's function is now "Restart computer".
 )
   if %cha% equ 5 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 16 /f >nul 2>nul
   echo Power button's function is now "Sleep".
 )
   if %cha% equ 6 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 64 /f >nul 2>nul
   echo Power button's function is now "Hibernate".
   echo.
   echo   Note : This will not work if you've disabled
   echo          the hibernate function.
 )
   if %cha% equ 7 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 2 /f >nul 2>nul
   echo Power button's function is now "Shutdown computer".
 )
   if %cha% gtr 7 (
   echo 
   cls
   echo Invalid choice !
   goto err115
 )
   if %cha% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err115
 )
tskill explorer 2>nul
   if errorlevel 1 "%windir%\RegistryTool\notskill.vbs"
goto result

:clrcpsdfldr
cls
:err116
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 04 ³  Color compressed folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Disable compressed folders color  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Enable compressed folders color   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p chz=1 or 2 :
set /a chz=%chz%-1
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v ShowCompColor /t REG_DWORD /d %chz% /f >nul 2>nul
   if %chz% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err116
 )
   if %chz% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err116
 )
echo.
   if %chz% equ 0 (echo Compressed folder color disabled.) else (echo Compressed folder color enabled.)
set chr=%chz%+1
goto result
 
:stmxflsjmplst
cls
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 05 ³ Set maximum files in jump list ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
:errstmxfljpls
set chr=
set /p chr=Choice (0-9999...) :
   if "%chr%"=="" (
   echo.
   echo Choice cannot be empty !
   echo.
   echo.
   goto errstmxfljpls
 )
echo.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_JumpListItems /t REG_DWORD /d %chr% /f >nul 2>nul
   if %chr% equ 1 (echo Jump list can now contain 1 item.)
   if %chr% lss 1 (echo Jump list cannot contain any item.)
   if %chr% gtr 1 (echo Jump list can now contain %chr% items.)
goto result
 
:: OPTION 12  CONFIGURATION DE LA FONCTION AUTORUN DES MEDIAS AMOVIBLES

:m12
cls
:err12
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º   USB Autorun   º   The 31/03/2012 at 21:04
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : USB Autorun Security Tweak
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Enable Autorun    ³  ³ 02 ³   Disable Autrun    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.     
set /p crt=1 or 2 :
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 1 (
   reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x91 >nul 2>nul
   echo.
   echo Autorun function is now enabled
   echo.
   echo    Note : please pay attention, if the removable media is infected,
   echo           your computer could also be infected
   echo           because of the Autorun function.
 )
   if %crt% equ 2 (
   reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x4 >nul 2>nul
   echo.
   echo Autorun function is now disabled
   echo.
   echo    Note : This could be binding for you,
   echo           but it's safer for your computer
   echo           and its security.
 )
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err12
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err12
 )
goto result


:: OPTION 13  CONFIGURE L'ACCESS A CMD.exe (.bat et .cmd), AU GESTIONNAIRE DES TÂCHES ET AU PANNEAU DE CONFIGURATION.

:m13
cls
:err13
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º  Administrative Tweaks  º   The 22/08/2014 at 21:52
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Administrative Tweaks
echo.
echo     ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo     ³ 01 ³  Configure CMD.exe access  ³
echo     ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Configure Task Manager access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 03 ³  Configure Control Panel access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt=1, 2 or 3 :
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 1 goto cmdaccess
   if %crt% equ 2 goto taskmgraccess
   if %crt% equ 3 goto cpanelaccess
   if %crt% gtr 3 (
   echo 
   cls
   echo Invalid choice !
   goto err13
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err13
 )
:cmdaccess
cls
:err131
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Enable CMD ^& .bat ^& .cmd files    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Disable CMD ^& .bat ^& .cmd files    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo           ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿       
echo           ³ 03 ³  Disable CMD only  ³
echo           ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt=1, 2 or 3 :
   if %crt% gtr 3 (
   echo 
   cls
   echo Invalid choice !
   goto err131
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err131
 )
set /a crt=%crt%-1
reg add HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System /v DisableCMD /t REG_DWORD /d %crt% /f >nul 2>nul
echo.
set /a crt=%crt%+1
   if %crt% equ 1 (
   echo   CMD.exe, .bat ^& .cmd files are enabled !
   goto result
 )
   if %crt% equ 2 (
   echo   CMD.exe, .bat ^& .cmd files are disabled !
   goto result
 )
   if %crt% equ 3 (
   echo   Only CMD.exe is disabled !
   goto result
 )
:taskmgraccess
cls
:err132
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Enable Task Manager access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Disable Task Manager Access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt=1 or 2 :
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err132
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err132
 )
set /a crt=%crt%-1
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d %crt% /f >nul 2>nul
echo.
set /a crt=%crt%+1
   if %crt% equ 1 (
   echo   Task Manager is enabled !
   goto result
 )
   if %crt% equ 2 (
   echo   Task Manager is Disabled !
   goto result
 )
:cpanelaccess
cls
:err133
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Enable Control Panel access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Disable Control Panel access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt=1 or 2 :
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err133
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err133
 )
set /a crt=%crt%-1
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d %crt% /f >nul 2>nul
echo.
set /a crt=%crt%+1
   if %crt% equ 1 (
   echo   Control Panel is enabled !
   tskill explorer 2>nul
      if errorlevel 1 "%windir%\RegistryTool\notskill.vbs"
   goto result
 )
   if %crt% equ 2 (
   echo   Control Panel is disabled !
   tskill explorer 2>nul
      if errorlevel 1 "%windir%\RegistryTool\notskill.vbs"
   goto result
 )


:m14
cls
:err14
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : R. BERTEAUD (BlastKiller)
echo   º   System Informations   º   The 26/08/2014 at 17:31
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : System Informations
echo.
echo Please wait...
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\ACPI ^| findstr ACPI\') do call :mb %%a
goto nextmb
:mb
set mbvar=%1
   for /f "delims=" %%b in ('reg query %mbvar% ^| findstr %mbvar%\ ^| findstr /v /e _') do set mbvar1=%%b
:nextmb
   for /f "delims=" %%c in ('reg query %mbvar1% ^| findstr %mbvar1%\') do set mb=%%c
set mb=%mb:~38,47%
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System /v SystemBiosVersion ^| findstr "Bios"') do set bios="%%a"
set bios=%bios:~42,47%
set bios=%bios:"=%
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0 /v ProcessorNameString ^| findstr "NameString"') do set proc="%%a"
set proc=%proc:~38,47%
set proc=%proc:"=%
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0 /v ~MHz ^| findstr "MHz"') do set cpu="%%a"
set cpu=%cpu:~25,10%
set cpu=%cpu:"=%
set cpu=%cpu:x=%
set cpu1=%cpu:~-1%
set cpu2=%cpu:~-2%
set cpu2=%cpu2:~0,1%
set cpu3=%cpu:~-3%
set cpu3=%cpu3:~0,1%
   if %cpu1%==a set cpu1=10
   if %cpu1%==b set cpu1=11
   if %cpu1%==c set cpu1=12
   if %cpu1%==d set cpu1=13
   if %cpu1%==e set cpu1=14
   if %cpu1%==f set cpu1=15
   if %cpu2%==a set cpu2=10
   if %cpu2%==b set cpu2=11
   if %cpu2%==c set cpu2=12
   if %cpu2%==d set cpu2=13
   if %cpu2%==e set cpu2=14
   if %cpu2%==f set cpu2=15
   if %cpu3%==a set cpu3=10
   if %cpu3%==b set cpu3=11
   if %cpu3%==c set cpu3=12
   if %cpu3%==d set cpu3=13
   if %cpu3%==e set cpu3=14
   if %cpu3%==f set cpu3=15
set /a cpu2=%cpu2%*16
set /a cpu3=%cpu3%*16*16
set /a cpu=%cpu1%+%cpu2%+%cpu3%
   for /f "delims=" %%a in ('reg query HKLM\SYSTEM\CurrentControlSet\Control\Video /s ^| findstr /e "\0000\Settings" 2^>nul') do call :gc "%%a"
goto nextgc
:gc
set gcvar=%1
reg query %gcvar% /v Mirrordriver >nul 2>nul
set gc=%gcvar%
:nextgc
   for /f "delims=" %%a in ('reg query %gc% /v "Device Description" ^| findstr "Device"') do set gc="%%a"
set gc=%gc:~37,47%
set gc=%gc:"=%
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DEVICEMAP\Scsi /s ^| findstr "Logical" 2^>nul') do call :dd "%%a"
:dd
set ddvar=%1
   for /f "delims=" %%b in ('reg query %ddvar% /v Identifier ^| findstr "Identifier"') do set dd=%%b
set dd=%dd:~28,47%
set dd=%dd:"=%
cls
mode con cols=71 lines=27
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : R. BERTEAUD (BlastKiller)
echo   º   System Informations   º   The 26/08/2014 at 17:31
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : System Informations
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ Hardware type ³ Hardware information                           ³
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
   if "%mb%"=="~38,47" set mb=Unknown
echo   ³  Motherboard  ³ %mb%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%bios%"=="~42,47" set bios=Unknown
echo   ³     BIOS      ³ %bios%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%proc%"=="~38,47" set proc=Unknown
echo   ³   Processor   ³ %proc%
   if "%cpu%"=="~25,10" set cpu=Unknown
echo   ³Exact Frequency³ %cpu% MHz
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%gc%"=="~37,47" set gc=Unknown
echo   ³ Graphic card  ³ %gc%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%dd%"=="~28,47" set dd=Unknown
echo   ³  Disk drive   ³ %dd%
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
   if not exist "%windir%\RegistryTool\All System Informations.txt" (
   echo Please, wait...
   systeminfo >"%windir%\RegistryTool\All System Informations.txt"
   echo.
   echo.
 )
:end14
echo.
echo Press any key...
pause >nul
mode con cols=71 lines=24
goto menu


:: OPTION 15  AIDE

:m15
mode con cols=135 lines=32
color f0
cls
echo (en) Help Notes : Please run Registry Tool as Administrator.
echo.
echo Registry backups : It is highly preferable to save the entire registry before starting Registry Tool.
echo Note that this backup is performed automatically by default at the first startup of the program.
echo The files are stored in the directory "%windir%\RegistryTool\RegBackUp".
echo If there is a problem with the automatic backup, please use a specially designed program for this (ERUNT for example).
echo We are not responsible of any eventual damage caused by Registry Tool.
echo.
echo.
echo (fr) Notes d'aide : Veuillez executer Registry Tool en tant qu'administrateur.
echo.
echo Sauvegardes du registre : il est fortement recommand‚ de sauvegarder toute la base de registre avant de d‚marrer Registry Tool.
echo Notez que cette sauvegarde est effectu‚e automatiquement par d‚faut au premier d‚marrage du programme.
echo Les fichiers sont stock‚s dans le r‚pertoire "%windir%\RegistryTool\RegBackUp".
echo En cas de problŠme avec la sauvegarde, veuillez utiliser un programme sp‚cialement conÞu pour cela (ERUNT par exemple).
echo Nous ne seront en aucun cas tenus responsables des eventuels d‚gƒts que pourraient vous causer Registry Tool.
echo.
echo.
echo (es) Ayuda : Por favor, ejecute Registry Tool como administrador.
echo.
echo Las copias de seguridad del registro : Es altamente preferible guardar todo el registro antes de iniciar Registry Tool.
echo Tenga en cuenta que esta copia de seguridad se realiza automaticamente de manera predeterminada en el primer inicio del programa.
echo Los archivos se guardan en el directorio "%windir%\RegistryTool\RegBackUp".
echo Si un problema ocurre con la copia de seguridad, por favor utiliza un programa especialmente dise¤ado para este (por ejemplo ERUNT).
echo No somos responsables de de cualquier da¤o eventual provocado por Registry Tool.
echo.
echo.
echo For questions, comments, or bug reports, please feel free
echo to contact us at the following address : raf.webmaster@octavener.org
echo.
echo Press any key...
pause >nul
color 0f
mode con cols=71 lines=24
goto menu

:: RESULTAT DE TOUTES LES COMMANDES PRECEDENTES

:result
echo.
echo.
echo   Well considered "%crt%" choice !
echo.
echo Press any key...
pause >nul
goto menu

:: SORTIE DU SCRIPT AVEC LE LOGO DE REGISTRY TOOL

:classexit
mode con cols=84 lines=69
cls
echo.
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                     '.               ++++++++.               '`                   
echo                    '''.            :++++++++++'.            '''`                   
echo                   '''''.        ;+++++++++++++++++,        '''''`                 
echo                  '''''''.    `++++++++++++++++++++++;     '''''''`                 
echo                 '''''''''.  ++++++++++++++++++++++++++,  '''''''''`               
echo                ''''''''''':+++++++++++++++++++++++++++++'''''''''''`               
echo                .'''''''''++++++++++++++++++++++++++++++++''''''''''               
echo                 .'''''''++++++++++++++++++++++++++++++++++''''''''                 
echo                  .'''''+++++++++++++@#:.` `.;@@#+++++++++++''''''                 
echo                   .'''+++++++++++#'            .##++++++++++''''                   
echo                    .'++++++++++#'                 ##+++++++++''                   
echo                     :+++++++++@                    ,@+++++++++                     
echo                     ++++++++++                       @++++++++'                   
echo                    +++++++++'                         @++++++++`                   
echo                   `+++++++++                           @++++++++                   
echo                   ++++++++@                            `@+++++++.                 
echo                  `++++++++  Registry Tool will now exit ;#+++++++                 
echo                  '+++++++:                               @+++++++                 
echo                  ++++++++                                ,#++++++;                 
echo                  +++++++@###############################, @+++++++                 
echo                 :++++++,`:@@@@@@@@@@@#.```#+@@@@@@@@@@@@:  +++++++                 
echo                 +++++++  ,@@@@@@@@@@@@@:  '+@@@#@@#@@@@@:  '++++++.               
echo         +++++++++++++++  ,@@@@@@@@@@@@@@  '++##@@@@@@@@@:  `++++++++++++++`       
echo         +++++++++++++++  ,@@@@+++++#@@@@  `.,,,+@@@+,,,,`   ++++++++++++++`       
echo         ++++++++++++++;  ,@#@#      ##@@       ;@@#'        ++++++++++++++`       
echo         ++++++++++++++;  ,@@@#  ;;;'@@@@       ;@#@'        ++++++++++++++`       
echo         ++++++++++++++.  ,#@## @@@@#@@@#       '@@@+        ++++++++++++++`       
echo         ++++++++++++++;  ,++#' :##@+@@#        ;#@+;        ++++++++++++++`       
echo         ++++++++++++++;  ,####  ,#+#@.         ;##@;        ++++++++++++++`       
echo         +++++++++++++++   ;###   `++##,        `+++'       `++++++++++++++`       
echo         ::::::::+++++++,   ;@+    `#+#+'         ;@'       :++++++;:::::::`       
echo                 #######@    ,;      '@@##+++++++++@@+++++++#++++++                 
echo                 ;#######`            `````````````````````@+++++++                 
echo                  ########                                 @+++++++                 
echo                  #######@     Thanks for having used     ##++++++,                 
echo                  '########        this software !       `@+++++++                 
echo                   ########.                             @#++++++'                 
echo                   +#######@                            '#+++++++                   
echo                    ########@                          :@++++++++                   
echo                    '########@                        :@++++++++                   
echo                     #########@                      '@++++++++:                   
echo                     ##########@:                   @@+++++++++.                   
echo                    #############@.               '@#+++++++++''.                   
echo                   ################@;          .#@#++++++++++''''.                 
echo                  ###################@@@#+++@@@#++++++++++++''''''.                 
echo                 #####################+++++++++++++++++++++''''''''.               
echo                +#####################++++++++++++++++++++''''''''''.               
echo               ,###########`##########++++++++++++++++++::''''''''''               
echo               +##########`  ,########+++++++++++++++++   :''''''''                 
echo               ##########`     :######+++++++++++++++      :''''''                 
echo              `#########`         '###++++++++++++,         :''''                   
echo              ;########`             .++++++++;`             :''                   
echo              #######+`               ++++++++:               :                     
echo              #+:`                    ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ::::::::,   
ping localhost /n 6 >nul
exit /B

Et toujours les exécutables de Registry Tool 1.4.5 pour x64 et x86 :
-Registry Tool 1.4.5 (x64)
-Registry Tool 1.4.5 (x86)

Merci à tous ceux qui nous aident et nous soutiennent pour ce projet (Hackoo, Laddy, ytrezAn, BlastKiller, ...) Okay

P.S.:Hackoo, je n'ai pas réussit à intégrer le module htabox dans Registry Tool, n'hésites pas à me PM Wink




______________________________________________________
Cordialement, </Troud>.
Répondre en citant
Message Registry Tool 1.5.2 
Grosse update pour Registry Tool, nous en arrivons donc à la version 1.5.2 avec de gros changements : ajout d'informations software pour l'option 14 + amélioration de la GUI, ajout de BrowseForFile.vbs, amélioration des options 7 et 9 grâce à des fichiers vbs, amélioration du nettoyage dans l'option 3, ajout du module hta password, redémarrage du processus explorer.exe via un fichier vbs (mise à jour de compatibilité) ... Bref, grosse mise à jour !!

Code:

@echo off
title Registry Tool V1.5.2
color 0f
mode con cols=71 lines=24

::DETECTION DE L'EXECUTION EN TANT QU'ADMINISTRATEUR
color 0c
mode con cols=71 lines=24

net session >nul 2>nul
   if errorlevel 1 (
      for /l %%i in (0,1,2) do (
      echo 
      ping 127.0.0.1 /n 1 >nul 2>nul
      cls
    )
   echo.
   echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
   echo   º  Not Administrator  º
   echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
   echo.
   echo   You must run Registry Tool as Administrator.
   echo   ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
   echo.
   echo   If you see this error message running Registry Tool
   echo   as Administrator, contact a developer.
   echo.
   echo Press any key...
   pause >nul
   exit /B
 ) else (goto wdrtdirectory)


::CREATION DU REPERTOIRE WINDIR\REGISTRYTOOL
:wdrtdirectory
   if exist "%windir%\RegistryTool" (
   goto setvarrt
   ) else (
   md "%windir%\RegistryTool"
 )

::DEFINITION DE VARIABLES
:setvarrt
set rtwinpath=%windir%\RegistryTool


::SUPPRESSION DE SYSINFO\*.SYS
   if exist "%rtwinpath%\Sysinfo\*.sys" del "%rtwinpath%\Sysinfo" /f /s /q >nul 2>nul

::CREATION DE VBSKILLEXP
   if exist "%rtwinpath%\VBSKillExp.vbs" goto hackoonovirvbs
echo Option Explicit >"%rtwinpath%\VBSKillExp.vbs"
echo Dim objWMISvc, objProc, colProc >>"%rtwinpath%\VBSKillExp.vbs"
echo Dim Comp, ProssKill >>"%rtwinpath%\VBSKillExp.vbs"
echo Comp = "." >>"%rtwinpath%\VBSKillExp.vbs"
echo ProssKill = "'explorer.exe'" >>"%rtwinpath%\VBSKillExp.vbs"
echo Set objWMISvc = GetObject("winmgmts:" _ >>"%rtwinpath%\VBSKillExp.vbs"
echo ^& "{impersonationLevel=impersonate}!\\" _ >>"%rtwinpath%\VBSKillExp.vbs"
echo ^& Comp ^& "\root\cimv2") >>"%rtwinpath%\VBSKillExp.vbs"
echo Set colProc = objWMISvc.ExecQuery _ >>"%rtwinpath%\VBSKillExp.vbs"
echo ("Select * from Win32_Process Where Name = " ^& ProssKill ) >>"%rtwinpath%\VBSKillExp.vbs"
echo For Each objProc in colProc >>"%rtwinpath%\VBSKillExp.vbs"
echo objProc.Terminate() >>"%rtwinpath%\VBSKillExp.vbs"
echo Next >>"%rtwinpath%\VBSKillExp.vbs"
echo WScript.Quit >>"%rtwinpath%\VBSKillExp.vbs"


::CREATION DE HACKOONOVIRVBS
:hackoonovirvbs
if exist "%rtwinpath%\HScanVBSFiles.vbs" goto bffvbs
echo    ÀÄÄÄ^>Creation of HScanVBSFiles
echo. >"%rtwinpath%\HScanVBSFiles.vbs"
echo Option Explicit >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '************************************************************************************************************************ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'VBScript pour arrêter et supprimer les traces du Virus de type VBS dans la BDR crée le 19/05/2014 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'Mise à jour le 20/05/2014 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '=^> Ajout de la liste des processus et les tâches planifiés et aussi les valeurs du Winlogon de la BDR dans le LogFile >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'Mise à jour le 23/05/2014 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '=^> Ajout de la WaitingBar en HTA et création du dossier Quarantaine pour y déplacer dans ce dernier les fichiers suspects >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '************************************************************************************************************************ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim Titre,TitreWaitBar,Copyright,Cle1,Cle2,Cle3,Cle4,oExec,i,MsgAttente >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim ws,fso,Temp,MyDoc,bf,DossierRapport,Source,NomFichierLog,OutPut,Quarantaine >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Titre = " Traces du Virus de type VBS " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Copyright = "© Hackoo © 2014" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Cle1 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Cle2 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Cle3 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Cle4 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunServices" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set ws = CreateObject("wscript.Shell") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set fso = CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Temp = ws.ExpandEnvironmentStrings("%Temp%") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MyDoc = ws.SpecialFolders("MyDocuments")'Dossier Mes Documents >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set bf = fso.GetFolder(MyDoc) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo DossierRapport  = "Rapport_VBSRegCleaner" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Source = MyDoc ^& "\" ^& DossierRapport >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Quarantaine = "Quarantaine" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call CreateFolder(bf,DossierRapport) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set bf = fso.GetFolder(Source) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call CreateFolder(bf,Quarantaine) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomFichierLog = "RapportScanVBSRegCleaner_"^& Day(Now) ^& "_" ^& Month(Now) ^& "_" ^& Year(Now) ^& "-" ^& Hour(Now) ^& "-" ^& Minute(Now) ^&".txt" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set OutPut = fso.CreateTextFile(Source ^& "\" ^& NomFichierLog,2,-1) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo TitreWaitBar = Titre ^& Copyright >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MsgAttente = "Veuillez patienter ... Le Scan du Virus de type VBS est en cours ... " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call CreateProgressBar(TitreWaitBar,MsgAttente) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call LancerProgressBar() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call Pause(1) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call ListProcessCmdLine() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call ListTachesPlanifies() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call WinLogon() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call FermerProgressBar() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub CreateFolder(bf,name) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set fso  = CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo If Not FSO.FolderExists(bf ^& "\" ^& name) Then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo bf.subFolders.Add(name) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Else : Exit Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End If >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Function MoveFile2Quarantaine(sFile,Folder) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim  FSO >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set FSO = CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo If FSO.FolderExists(Folder) Then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo FSO.GetFile(sFile).Move Folder >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End If >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Function Search(Cle,Processus) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim Tab,NomVirusBDR >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Tab = Split(Processus,"\") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomVirusBDR = Tab(UBound(Tab)) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomVirusBDR = Replace(NomVirusBDR,Chr(34),"") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomVirusBDR = Trim(NomVirusBDR) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Search = NomVirusBDR >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub SupprimVirusBDR(cle,Valeur) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo On Error Resume Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim Tab,NomVirusBDR,Supprim >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Tab = Split(lit_reg(cle,Valeur),"=") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomVirusBDR = Tab(LBound(Tab)) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomVirusBDR = Replace(NomVirusBDR,Chr(34),"") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomVirusBDR = Trim(NomVirusBDR) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'MsgBox NomVirusBDR >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Supprim = "reg delete "^& cle ^&" /v "^& DblQuote(NomVirusBDR) ^&" /f" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'MsgBox Supprim >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call Executer(Supprim,0,False) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo function lit_reg(cle,valeur) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim fs,Sh,adr,erro,fich >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set fs = CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set Sh = WScript.CreateObject("WScript.Shell") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'adresse du fichier dans lequel on inscrit la valeur de la clé >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'adr=replace(wscript.scriptfullname,wscript.scriptname,"Runregistres.txt") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo adr = "%Tmp%\Export.txt" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'exporter la clé (les guillements évitent les pb avec les adresses completes) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo sh.Run "%comspec% /c REGEDIT /E """ ^& adr ^& """ """ ^& cle ^& """",0,true >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'ouvrir en lecture >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'attendre que le fichier reg soit créé >>"%rtwinpath%\HScanVBSFiles.vbs"
echo erro = 1 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo do while erro ^<^ 0 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'on error resume next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'le deuxième true pour lire en ANSI, dépend de la version de regedit ! >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set fich = fs.OpenTextFile(adr, 1, False, true) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo erro= Err.Number >>"%rtwinpath%\HScanVBSFiles.vbs"
echo loop >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'on error goto 0 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'lire le fichier ligne par ligne pour chercher valeur >>"%rtwinpath%\HScanVBSFiles.vbs"
echo lit_reg = "" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo do while instr(lit_reg,valeur)=0 and not fich.atendofstream >>"%rtwinpath%\HScanVBSFiles.vbs"
echo lit_reg=fich.readline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo loop >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'prendre en compte les lignes des tableaux >>"%rtwinpath%\HScanVBSFiles.vbs"
echo if lit_reg ^<^ "" then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo do while right(lit_reg,1)="\\" and not fich.atendofstream >>"%rtwinpath%\HScanVBSFiles.vbs"
echo lit_reg = lit_reg ^& fich.readline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo loop >>"%rtwinpath%\HScanVBSFiles.vbs"
echo end if >>"%rtwinpath%\HScanVBSFiles.vbs"
echo lit_reg = Replace(lit_reg,"\\","\") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fich.close >>"%rtwinpath%\HScanVBSFiles.vbs"
echo end function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '************************************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Function Executer(StrCmd,Console,bWaitOnReturn) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim ws,MyCmd,Resultat >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set ws = CreateObject("wscript.Shell") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'La valeur 0 pour cacher la console MS-DOS >>"%rtwinpath%\HScanVBSFiles.vbs"
echo If Console = 0 Then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MyCmd = "CMD /C " ^& StrCmd ^& "" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Resultat = ws.run(MyCmd,Console,bWaitOnReturn) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo If Resultat = 0 Then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Else >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MsgBox "Une erreur inconnue est survenue !",16+4096+vbokonly, "Une erreur inconnue est survenue !" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End If >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End If >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'La valeur 1 pour montrer la console MS-DOS >>"%rtwinpath%\HScanVBSFiles.vbs"
echo If Console = 1 Then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MyCmd = "CMD /K " ^& StrCmd ^& " " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Resultat = ws.run(MyCmd,Console,bWaitOnReturn) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo If Resultat = 0 Then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Else >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MsgBox "Une erreur inconnue est survenue !",16+4096+vbokonly, "Une erreur inconnue est survenue !" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End If >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End If >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Executer = Resultat >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '*************************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Function FindScript(MyProcess) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim colItems,objItem,Processus,Question,cles,i,Count,Valeur >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set colItems = GetObject("winmgmts:").ExecQuery("Select * from Win32_Process " _ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo ^& "Where Name like '%"^& MyProcess ^&"%' AND NOT commandline like '%" ^& wsh.scriptname ^& "%'",,48) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Count = 0 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo FindScript = False >>"%rtwinpath%\HScanVBSFiles.vbs"
echo For Each objItem in colItems >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Count= Count + 1 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Processus = Mid(objItem.CommandLine,InStr(objItem.CommandLine,""" """) + 2) 'Extraction du chemin du script en ligne de commande >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Processus = Replace(Processus,chr(34),"") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Question = MsgBox ("Voulez-vous arrêter ce script : "^& DblQuote(Processus) ^&" ?" ,VBYesNO+VbQuestion,Titre+Copyright) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo If Question = VbYes then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo objItem.Terminate(0)'Tuer ce processus >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Cles = Array(Cle1,Cle2,Cle3,Cle4) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo For i = LBound(Cles) To UBound(Cles) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Valeur = Search(Cles(i),Processus) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo ws.popup "Recheche et effacement du Virus dans la base de registre : "^& DblQuote(Valeur) ^& " dans la clé " ^& DblQuote(Cles(i)),"3",Titre+Copyright,VbExclamation >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call SupprimVirusBDR(Cles(i),Valeur) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'Supprim = "reg delete "^& cle ^&" /v "^& Valeur ^&" /f" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'MsgBox Supprim >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'Call Executer(Supprim,1,True) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo FindScript = True >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine DblQuote(Processus) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Else >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Count= Count - 1 'décrementer le compteur de -1 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'MsgBox "Il n'y pas d'instance de Wscript.exe trouvé !",VbInformation,Titre+Copyright >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End if >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine String(100,"*") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine count ^& Titre ^& "ont été arrêtés" ^& vbNewline ^& String(100,"*") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Function DblQuote(Str) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo DblQuote = Chr(34) ^& Str ^& Chr(34) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub ListTachesPlanifies() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim Macmd >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MaCmd = "schtasks > "^& Source ^& "\MyTmpTasks.txt & Cmd /U /C Type "^& Source ^& "\MyTmpTasks.txt >> "^& Source ^& "\" ^& NomFichierLog ^& " & Del "^& Source ^& "\MyTmpTasks.txt" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call Executer(MaCmd,0,True) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub WinLogon() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim Macmd >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MaCmd = "reg query ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"" > "^& Source ^& "\MyTmpWinlogon.txt & Cmd /U /C Type "^& Source ^& "\MyTmpWinlogon.txt >> "^& Source ^& "\" ^& NomFichierLog ^&  "& Del "^& Source ^& "\MyTmpWinlogon.txt" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call Executer(MaCmd,0,True) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '************************************************************************************************ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'Les éléments à démarrage automatique + ListProcessCmdLine.vbs >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '************************************************************************************************ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub ListProcessCmdLine() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim fso,ws,ProcessEnv,NomMachine,NomUtilisateur,strComputer,objWMIService >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim colProcesses,objProcess,ProcessName,ProcessID,CommandLine,count,Texte >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set fso = CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set Ws = CreateObject("WScript.Shell") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set ProcessEnv = Ws.Environment("Process") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomMachine = ProcessEnv("COMPUTERNAME") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomUtilisateur = ProcessEnv("USERNAME") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strComputer = "." >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set objWMIService = GetObject("winmgmts:" _ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo ^& "{impersonationLevel=impersonate}!\\" _ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo ^& strComputer ^& "\root\cimv2") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo count=0 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call Infosys() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine String(14,"*")^& "Liste des Processus en cours d'exécution le " ^& date ^& " à " ^& time ^& " sur Le PC "^& NomMachine ^&" connecté en tant que " ^& NomUtilisateur ^& String(14,"*")^& vbNewline ^& String(80,"*") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo For Each objProcess in colProcesses >>"%rtwinpath%\HScanVBSFiles.vbs"
echo ProcessName = objProcess.Name >>"%rtwinpath%\HScanVBSFiles.vbs"
echo ProcessID = objProcess.ProcessID >>"%rtwinpath%\HScanVBSFiles.vbs"
echo CommandLine = objProcess.CommandLine >>"%rtwinpath%\HScanVBSFiles.vbs"
echo count=count+1 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Texte = "Numéro PID = "^& objProcess.ProcessID ^& VbNewLine ^& "Nom du Processus = " ^& objProcess.Name ^& VbNewLine ^&"Ligne de Commande = "^& objProcess.CommandLine ^&_ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo VbNewLine ^& String(100,"*") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine Texte >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine  "Il y a "^& Count ^&" Processus en cours d'exécution le " ^& date ^& " à " ^& time ^& " sur Le PC "^& NomMachine ^&" connecté en tant que " ^& NomUtilisateur ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call StartupCommand >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Function StartupCommand() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim strComputer,resultat,strMessage,objWMIService,objStartupCommand,colStartupCommands >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strComputer = "." >>"%rtwinpath%\HScanVBSFiles.vbs"
echo resultat="" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set objWMIService = GetObject("winmgmts:\\" ^& strComputer ^& "\root\cimv2") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set colStartupCommands = objWMIService.ExecQuery ("Select * from Win32_StartupCommand") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo For Each objStartupCommand in colStartupCommands >>"%rtwinpath%\HScanVBSFiles.vbs"
echo resultat=resultat ^& "Nom: " ^& objStartupCommand.Name ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo resultat=resultat ^& "Description: " ^& objStartupCommand.Description ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo resultat=resultat ^& "Emplacement: " ^& objStartupCommand.Location ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo resultat=resultat ^& "Commande: " ^& objStartupCommand.Command ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo resultat=resultat ^& "Utilisateur: " ^& objStartupCommand.User ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo resultat=resultat ^& String(100,"*") ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine String(50,"*") ^&" Les éléments à démarrage automatique "^& String(40,"*") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine resultat ^& vbNewline ^& VbTab ^& VbTab ^&"! Liste des Tâches planifiés !" ^& vbNewline ^& String(100,"*") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.Close >>"%rtwinpath%\HScanVBSFiles.vbs"
echo end Function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Function InfoSys() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim strComputer,strMessage,objWMIService >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim objComputer,colSettings,colSettings2,colSettings3,objBIOS,objOperatingSystem >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strComputer = "." >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strMessage="" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set objWMIService = GetObject("winmgmts:"  ^& "{impersonationLevel=impersonate}!\\" ^& strComputer ^& "\root\cimv2") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set colSettings = objWMIService.ExecQuery  ("Select * from Win32_ComputerSystem") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set colSettings2 = objWMIService.ExecQuery ("Select * from Win32_BIOS") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set colSettings3 = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo For Each objBIOS in colSettings2 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strMessage=strMessage ^& "BIOS " ^& objBIOS.Version ^& vbNewline ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo For Each objComputer in colSettings >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strMessage=strMessage ^& "Nom de l'ordinateur : " ^& objComputer.Name ^& vbNewline ^& "Fabriquant: " ^& objComputer.Manufacturer ^& vbNewline ^& "Modèle : " ^& objComputer.Model ^& vbNewline ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo For Each objOperatingSystem in colSettings3 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strMessage=strMessage ^&  objOperatingSystem.Name ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strMessage=strMessage ^&  "Version " ^& objOperatingSystem.Version ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strMessage=strMessage ^&  "Service Pack " ^& objOperatingSystem.ServicePackMajorVersion ^& "." ^& objOperatingSystem.ServicePackMinorVersion ^&vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strMessage=strMessage ^&  "Dossier de Windows: " ^& objOperatingSystem.WindowsDirectory ^&vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine strMessage >>"%rtwinpath%\HScanVBSFiles.vbs"
echo end Function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '*************************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '*********************************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub CreateProgressBar(Titre,MsgAttente) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim ws,fso,f,f2,ts,ts2,Ligne,i,fread,LireTout,NbLigneTotal,Temp,PathOutPutHTML,fhta,oExec >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set ws = CreateObject("wscript.Shell") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set fso = CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Temp = WS.ExpandEnvironmentStrings("%Temp%") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo PathOutPutHTML = Temp ^& "\Barre.hta" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set fhta = fso.OpenTextFile(PathOutPutHTML,2,True) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<HTML>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<HEAD>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<Title>  " ^& Titre ^& "</Title>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<HTA:APPLICATION" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "ICON = ""magnify.exe"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "BORDER=""THIN"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "INNERBORDER=""NO"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "MAXIMIZEBUTTON=""NO"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "MINIMIZEBUTTON=""YES"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "SCROLL=""NO"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "SYSMENU=""NO"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "SELECTION=""NO"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "SINGLEINSTANCE=""YES"">" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "</HEAD>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<BODY text=""white""><CENTER>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<marquee DIRECTION=""LEFT"" SCROLLAMOUNT=""6"" BEHAVIOR=ALTERNATE><font face=""Verdana"">" ^& MsgAttente ^&"</font></marquee>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<img src=""data:image/gif;base64,R0lGODlhgAAPAPIAAP////INPvvI0/q1xPVLb/INPgAAAAAAACH/C05FVFNDQVBFMi4wAwEAAAAh/hpDcmVhdGVkIHdpdGggYWpheGxvYWQuaW5mbwAh+QQJCgAAACwAAAAAgAAPAAAD5wiyC/6sPRfFpPGqfKv2HTeBowiZGLORq1lJqfuW7Gud9YzLud3zQNVOGCO2jDZaEHZk+nRFJ7R5i1apSuQ0OZT+nleuNetdhrfob1kLXrvPariZLGfPuz66Hr8f8/9+gVh4YoOChYhpd4eKdgwDkJEDE5KRlJWTD5iZDpuXlZ+SoZaamKOQp5wAm56loK6isKSdprKotqqttK+7sb2zq6y8wcO6xL7HwMbLtb+3zrnNycKp1bjW0NjT0cXSzMLK3uLd5Mjf5uPo5eDa5+Hrz9vt6e/qosO/GvjJ+sj5F/sC+uMHcCCoBAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/4ixgeloM5erDHonOWBFFlJoxiiTFtqWwa/Jhx/86nKdc7vuJ6mxaABbUaUTvljBo++pxO5nFQFxMY1aW12pV+q9yYGk6NlW5bAPQuh7yl6Hg/TLeu2fssf7/19Zn9meYFpd3J1bnCMiY0RhYCSgoaIdoqDhxoFnJ0FFAOhogOgo6GlpqijqqKspw+mrw6xpLCxrrWzsZ6duL62qcCrwq3EsgC0v7rBy8PNorycysi3xrnUzNjO2sXPx8nW07TRn+Hm3tfg6OLV6+fc37vR7Nnq8Ont9/Tb9v3yvPu66Xvnr16+gvwO3gKIIdszDw65Qdz2sCFFiRYFVmQFIAEBACH5BAkKAAAALAAAAACAAA8AAAP/CLQL/qw9J2qd1AoM9MYeF4KaWJKWmaJXxEyulI3zWa/39Xh6/vkT3q/DC/JiBFjMSCM2hUybUwrdFa3Pqw+pdEVxU3AViKVqwz30cKzmQpZl8ZlNn9uzeLPH7eCrv2l1eXKDgXd6Gn5+goiEjYaFa4eOFopwZJh/cZCPkpGAnhoFo6QFE6WkEwOrrAOqrauvsLKttKy2sQ+wuQ67rrq7uAOoo6fEwsjAs8q1zLfOvAC+yb3B0MPHD8Sm19TS1tXL4c3jz+XR093X28ao3unnv/Hv4N/i9uT45vqr7NrZ89QFHMhPXkF69+AV9OeA4UGBDwkqnFiPYsJg7jBktMXhD165jvk+YvCoD+Q+kRwTAAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJdCLnC/S+nsCFo1dq5zeRoFlJ1Du91hOq3b3qNo/5OdZPGDT1QrSZDLIcGp2o47MYheJuImmVer0lmRVlWNslYndm4Jmctba5gm9sPI+gp2v3fZuH78t4Xk0Kg3J+bH9vfYtqjWlIhZF0h3qIlpWYlJpYhp2DjI+BoXyOoqYaBamqBROrqq2urA8DtLUDE7a1uLm3s7y7ucC2wrq+wca2sbIOyrCuxLTQvQ680wDV0tnIxdS/27TND+HMsdrdx+fD39bY6+bX3um14wD09O3y0e77+ezx8OgAqutnr5w4g/3e4RPIjaG+hPwc+stV8NlBixAzSlT4bxqhx46/MF5MxUGkPA4BT15IyRDlwG0uG55MAAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPECwbnu3gUKH1h2ZziNKVlJWDW9FvSuI/nkusPjrF0OaBIGfTna7GaTNTPGIvK4GUZRV1WV+ssKlE/G0hmDTqVbdPeMZWvX6XacAy6LwzAF092b9+GAVnxEcjx1emSIZop3g16Eb4J+kH+ShnuMeYeHgVyWn56hakmYm6WYnaOihaCqrh0FsbIFE7Oytba0D7m6DgO/wAMTwcDDxMIPx8i+x8bEzsHQwLy4ttWz17fJzdvP3dHfxeG/0uTjywDK1Lu52bHuvenczN704Pbi+Ob66MrlA+scBAQwcKC/c/8SIlzI71/BduysRcTGUF49i/cw5tO4jytjv3keH0oUCJHkSI8KG1Y8qLIlypMm312ASZCiNA0X8eHMqPNCTo07iyUAACH5BAkKAAAALAAAAACAAA8AAAP/CLQL/qw9F8mk8ap8hffaB3ZiWJKfmaJgJWHV5FqQK9uPuDr6yPeTniAIzBV/utktVmPCOE8GUTc9Ia0AYXWXPXaTuOhr4yRDzVIjVY3VsrnuK7ynbJ7rYlp+6/u2vXF+c2tyHnhoY4eKYYJ9gY+AkYSNAotllneMkJObf5ySIphpe3ajiHqUfENvjqCDniIFsrMFE7Sztre1D7q7Dr0TA8LDA8HEwsbHycTLw83ID8fCwLy6ubfXtNm40dLPxd3K4czjzuXQDtID1L/W1djv2vHc6d7n4PXi+eT75v3oANSxAzCwoLt28P7hC2hP4beH974ZTEjwYEWKA9VBdBixLSNHhRPlIRR5kWTGhgz1peS30l9LgBojUhzpa56GmSVr9tOgcueFni15styZAAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPGqfKsWIPiFwhia4kWWKrl5UGXFMFa/nJ0Da+r0rF9vAiQOH0DZTMeYKJ0y6O2JPApXRmxVe3VtSVSmRLzENWm7MM+65ra93dNXHgep71H0mSzdFec+b3SCgX91AnhTeXx6Y2aOhoRBkllwlICIi49liWmaapGhbKJuSZ+niqmeN6SWrYOvIAWztAUTtbS3uLYPu7wOvrq4EwPFxgPEx8XJyszHzsbQxcG9u8K117nVw9vYD8rL3+DSyOLN5s/oxtTA1t3a7dzx3vPwAODlDvjk/Orh+uDYARBI0F29WdkQ+st3b9zCfgDPRTxWUN5AgxctVqTXUDNix3QToz0cGXIaxo32UCo8+OujyJIM95F0+Y8mMov1NODMuPKdTo4hNXgMemGoS6HPEgAAIfkECQoAAAAsAAAAAIAADwAAA/8ItAv+rD0XyaTxqnyr9pcgitpIhmaZouMGYq/LwbPMTJVE34/Z9j7BJCgE+obBnAWSwzWZMaUz+nQQkUfjyhrEmqTQGnins5XH5iU3u94Crtpfe4SuV9NT8R0Nn5/8RYBedHuFVId6iDyCcX9vXY2Bjz52imeGiZmLk259nHKfjkSVmpeWanhhm56skIyABbGyBROzsrW2tA+5ug68uLbAsxMDxcYDxMfFycrMx87Gv7u5wrfTwdfD2da+1A/Ky9/g0OEO4MjiytLd2Oza7twA6/Le8LHk6Obj6c/8xvjzAtaj147gO4Px5p3Dx9BfOQDnBBaUeJBiwoELHeaDuE8uXzONFu9tE2mvF0KSJ00q7Mjxo8d+L/9pRKihILyaB29esEnzgkt/Gn7GDPosAQAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPGqfKv2HTcJJKmV5oUKJ7qBGPyKMzNVUkzjFoSPK9YjKHQQgSve7eeTKZs7ps4GpRqDSNcQu01Kazlwbxp+ksfipezY1V5X2ZI5XS1/5/j7l/12A/h/QXlOeoSGUYdWgXBtJXEpfXKFiJSKg5V2a1yRkIt+RJeWk6KJmZhogKmbniUFrq8FE7CvsrOxD7a3Drm1s72wv7QPA8TFAxPGxcjJx8PMvLi2wa7TugDQu9LRvtvAzsnL4N/G4cbY19rZ3Ore7MLu1N3v6OsAzM0O9+XK48Xn/+notRM4D2C9c/r6Edu3UOEAgwMhFgwoMR48awnzMWOIzyfeM4ogD4aMOHJivYwexWlUmZJcPXcaXhKMORDmBZkyWa5suE8DuAQAIfkECQoAAAAsAAAAAIAADwAAA/8ItAv+rD0XyaTxqnyr9h03gZNgmtqJXqqwka8YM2NlQXYN2ze254/WyiF0BYU8nSyJ+zmXQB8UViwJrS2mlNacerlbSbg3E5fJ1WMLq9KeleB3N+6uR+XEq1rFPtmfdHd/X2aDcWl5a3t+go2AhY6EZIZmiACWRZSTkYGPm55wlXqJfIsmBaipBROqqaytqw+wsQ6zr623qrmusrATA8DBA7/CwMTFtr24yrrMvLW+zqi709K0AMkOxcYP28Pd29nY0dDL5c3nz+Pm6+jt6uLex8LzweL35O/V6fv61/js4m2rx01buHwA3SWEh7BhwHzywBUjOGBhP4v/HCrUyJAbXUSDEyXSY5dOA8l3Jt2VvHCypUoAIetpmJgAACH5BAkKAAAALAAAAACAAA8AAAP/CLQL/qw9F8mk8ap8q/YdN4Gj+AgoqqVqJWHkFrsW5Jbzbee8yaaTH4qGMxF3Rh0s2WMUnUioQygICo9LqYzJ1WK3XiX4Na5Nhdbfdy1mN8nuLlxMTbPi4be5/Jzr+3tfdSdXbYZ/UX5ygYeLdkCEao15jomMiFmKlFqDZz8FoKEFE6KhpKWjD6ipDqunpa+isaaqqLOgEwO6uwO5vLqutbDCssS0rbbGuMqsAMHIw9DFDr+6vr/PzsnSx9rR3tPg3dnk2+LL1NXXvOXf7eHv4+bx6OfN1b0P+PTN/Lf98wK6ExgO37pd/pj9W6iwIbd6CdP9OmjtGzcNFsVhDHfxDELGjxw1Xpg4kheABAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPGqfKv2HTeBowiZjqCqG9malYS5sXXScYnvcP6swJqux2MMjTeiEjlbyl5MAHAlTEarzasv+8RCu9uvjTuWTgXedFhdBLfLbGf5jF7b30e3PA+/739ncVp4VnqDf2R8ioBTgoaPfYSJhZGIYhN0BZqbBROcm56fnQ+iow6loZ+pnKugpKKtmrGmAAO2twOor6q7rL2up7C/ssO0usG8yL7KwLW4tscA0dPCzMTWxtXS2tTJ297P0Nzj3t3L3+fmzerX6M3hueTp8uv07ezZ5fa08Piz/8UAYhPo7t6+CfDcafDGbOG5hhcYKoz4cGIrh80cPAOQAAAh+QQJCgAAACwAAAAAgAAPAAAD5wi0C/6sPRfJpPGqfKv2HTeBowiZGLORq1lJqfuW7Gud9YzLud3zQNVOGCO2jDZaEHZk+nRFJ7R5i1apSuQ0OZT+nleuNetdhrfob1kLXrvPariZLGfPuz66Hr8f8/9+gVh4YoOChYhpd4eKdgwFkJEFE5KRlJWTD5iZDpuXlZ+SoZaamKOQp5wAm56loK6isKSdprKotqqttK+7sb2zq6y8wcO6xL7HwMbLtb+3zrnNycKp1bjW0NjT0cXSzMLK3uLd5Mjf5uPo5eDa5+Hrz9vt6e/qosO/GvjJ+sj5F/sC+uMHcCCoBAA7AAAAAAAAAAAA"" />" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "</CENTER></BODY></HTML>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<SCRIPT LANGUAGE=""VBScript""> " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "Set ws = CreateObject(""wscript.Shell"")" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "Temp = WS.ExpandEnvironmentStrings(""%Temp%"")" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "Sub window_onload()" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "    CenterWindow 490,110" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "    Self.document.bgColor = ""DarkGrey"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine " End Sub" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine " Sub CenterWindow(x,y)" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "    Dim iLeft,itop" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "    window.resizeTo x,y" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "    iLeft = window.screen.availWidth/2 - x/2" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "    itop = window.screen.availHeight/2 - y/2" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "    window.moveTo ileft,itop" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "End Sub" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "</script>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.close >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub LancerProgressBar() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set oExec = Ws.Exec("mshta.exe " ^& Temp ^& "\Barre.hta") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub FermerProgressBar() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo oExec.Terminate >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub Pause(NSeconds) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Wscript.Sleep(NSeconds*1000) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub   >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"



::CREATION DE BROWSEFORFILE.VBS
:bffvbs
if exist "%rtwinpath%\BrowseForFile.vbs" goto readmefile
echo    ÀÄÄÄ^>Creation of BrowseForFile
echo Function GetFileDlg(sIniDir,sFilter,sTitle) >"%rtwinpath%\BrowseForFile.vbs"
echo  GetFileDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" ^& sIniDir ^& "',null,'" ^& sFilter ^& "','" ^& sTitle ^& "')));close();}</script><hta:application showintaskbar=no />""").StdOut.ReadAll >>"%rtwinpath%\BrowseForFile.vbs"
echo End Function >>"%rtwinpath%\BrowseForFile.vbs"
echo. >>"%rtwinpath%\BrowseForFile.vbs"
echo Function GetFileDlgBar(sIniDir,sFilter,sTitle) >>"%rtwinpath%\BrowseForFile.vbs"
echo  GetFileDlgBar=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" ^& sIniDir ^& "',null,'" ^& sFilter ^& "','" ^& sTitle ^& "')));close();}</script>""").StdOut.ReadAll >>"%rtwinpath%\BrowseForFile.vbs"
echo End Function >>"%rtwinpath%\BrowseForFile.vbs"
echo. >>"%rtwinpath%\BrowseForFile.vbs"
echo sIniDir = "C:\*" >>"%rtwinpath%\BrowseForFile.vbs"
echo sFilter = "All files (*.*)|*.*|Applications (*.exe;*.com)|*.exe;*.com|" >>"%rtwinpath%\BrowseForFile.vbs"
echo sTitle = "Registry Tool BrowseForFile -- based on GetFileDlg by Omen999" >>"%rtwinpath%\BrowseForFile.vbs"
echo. >>"%rtwinpath%\BrowseForFile.vbs"
echo rep = GetFileDlg(Replace(sIniDir,"\","\\"),sFilter,sTitle) >>"%rtwinpath%\BrowseForFile.vbs"
echo. >>"%rtwinpath%\BrowseForFile.vbs"
echo Set objFSO=CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\BrowseForFile.vbs"
echo. >>"%rtwinpath%\BrowseForFile.vbs"
echo outFile="C:\Windows\RegistryTool\path9.txt" >>"%rtwinpath%\BrowseForFile.vbs"
echo Set objFile = objFSO.CreateTextFile(outFile,True) >>"%rtwinpath%\BrowseForFile.vbs"
echo objFile.Write rep >>"%rtwinpath%\BrowseForFile.vbs"
echo objFile.Close >>"%rtwinpath%\BrowseForFile.vbs"
echo. >>"%rtwinpath%\BrowseForFile.vbs"


::CREATION D'UN FICHIER README.TXT
:readmefile
set oldfileversioninfo= Registry Tool 1.4.5
set fileversioninfo= Registry Tool 1.5.2
   if exist "%rtwinpath%\README%fileversioninfo%.txt" goto regdetect else (
      if exist "%rtwinpath%\README%oldfileversioninfo%.txt" (
      del "%rtwinpath%\README%oldfileversioninfo%.txt" /f /s /q >nul 2>nul
      goto startreadme
   ) else (goto startreadme)
:startreadme
echo    ÀÄÄÄ^>Creation of README%fileversioninfo%
echo   ------------------------------------- >"%rtwinpath%\README%fileversioninfo%.txt"
echo    Registry Tool 1.5.2 -- batch.xoo.it >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   ------------------------------------- >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo This software was founded by Pierre JOUSSAIN ^& Raphael BERTEAUD on batch.xoo.it. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo What's new : >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Big updates for option 3, 7, 9 ^& 14. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Add Software Information ^& GUI improvements for option 14. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Add BrowseForFile.vbs for option 9 ----^> GUI improvement. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Add Software Informations for option 14. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Definition of variables in vbs ^& improvements of GUI for option 7. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Improvement of file cleaning in option 3. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Add hta ^& vbs code in option 3 to check VBS files. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Add HTA PASSWORD MODULE in option 4 (Big Security Update) (thanks to Xavier PACIO [Alonso7798] ^& Mehdi Benzarti [Hackoo]) >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Add VBSKillExp.vbs file to kill explorer process without tskill.exe (compatibility update) >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo Description : >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Registry Tool is a small tool predominantly coded in batch which serves to customize and optimize any computer with a WINDOWS® Operating System. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo Instructions : >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Run Registry Tool.BAT as Administrator (right clic, and select run as administrator). Registry Tool.EXE doesn't need this manipulation cause it's automatically done. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   A registry backup is automatically made on the first execution, or if it's not detected in the "%rtwinpath%\RegBackUp\" directory. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   This software also includes in the same option a function to restore your last registry backup. So if there was a wrong manipulation, you'll be able to cancel it. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo FAQ : >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   For any question concerning the Registry Tool project, please feel free to contact us at the following e-mail address : raf.webmaster@octavener.org >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   To see the evolution of the Registry Tool project, don't hesitate to visit this link : http://batch.xoo.it/t3247-Regrouper-ces-connaissances.htm >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   If you're interested in the project, contact us at the same address : raf.webmaster@octavener.org >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   And, if you're interested in programmation (batch, vbs, hta, etc...), visit this great forum : batch.xoo.it (http://batch.xoo.it/index.php) >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo Secrets : >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   In the main menu, type "quit", "exit", "shut", "switch off", "close", "turn off", "fermer", "quitter" or any number weaker than 0 to perform a "Class Exit" ;) >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   In this same  main menu, enter 0 as choice to see the credits ;) >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   In any option and almost all sub-options, enter "back", "quit", "exit" or "fermer" as choice to come back to the main menu. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   In option 4, on username request, enter "backtortmenu4" >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo Credits : >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Founded by Pierre JOUSSAIN ^& Raphael BERTEAUD on batch.xoo.it. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo     Thanks to : >>"%rtwinpath%\README%fileversioninfo%.txt"
echo       -Xavier PACIO [AlonsO7798] for hta password module integration. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo       -Mehdi Benzarti [Hackoo] for hta ^& vbs code in option 3. And for discovering of GetFileDlg.vbs ^& hta password module. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo       -Unknown [BlastKiller] for part of the option 14's code. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo       -Unknown [Laddy] for the creation of private sub-forum for a better work ^& commands for option 3 >>"%rtwinpath%\README%fileversioninfo%.txt"
echo       -Unknown [Batch_Man] for commands in option 3 from ErazorTmp.bat. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo       -Unknown [Omen999] for GetFileDlg, now remade and renamed as BrowseForFile for Registry Tool. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo       -Unknown [ytrezAn] for a command in option 6 >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
   if exist "%userprofile%\desktop" (
   copy /y "%rtwinpath%\README%fileversioninfo%.txt" "%userprofile%\desktop"
   goto regdetect
   ) else (
      if exist "%userprofile%\bureau" (
      copy /y "%rtwinpath%\README%fileversioninfo%.txt" "%userprofile%\bureau"
      goto regdetect
      ) else (goto regdetect)
    )

:: DETECTION DE LA COMMANDE REG.EXE
:regdetect
   if exist "%windir%\System32\reg.*" goto tskilldetect
cls
   for /l %%i in (0,1,2) do (
   echo 
   ping 127.0.0.1 /n 1 >nul 2>nul
   cls
 )
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º  Reg Undetected  º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Command Reg [Not found]
echo.
echo   Please, download the command reg.[exe]
echo   and place this file in %windir%\System32\
echo.
echo   If the problem persists, contact a developer.
   if not exist "%rtwinpath%\noreg.vbs" (
   echo On error resume next >"%rtwinpath%\noreg.vbs"
   echo msgbox "This error report indicates the " ^& chr^(34^) ^& "reg.exe" ^& chr^(34^) ^& " command was not found in your computer. This command is used by all the options of this program, so without it, the whole program is useless." ^& vbcrlf ^& vbcrlf ^& "The only way to fix this problem is to find " ^& chr^(34^) ^& "reg.exe" ^& chr^(34^) ^& " on the internet, and to place it in %windir%\system32.", 16+4096+vbokonly, "Command reg not found details" >>"%rtwinpath%\noreg.vbs"
 )
echo.
echo Press any key...
"%rtwinpath%\noreg.vbs"
pause >nul
exit /B

:: DETECTION DE LA COMMANDE TSKILL.EXE

:tskilldetect
   if exist "%windir%\system32\tskill.*" (
   del "%rtwinpath%\NoTskill.vbs" /f /s /q >nul 2>nul
   goto start
   ) else (
      if exist "%rtwinpath%\NoTskill.vbs" goto start
 )   
cls
   for /l %%i in (0,1,1) do (
   echo 
   ping 127.0.0.1 /n 1 >nul 2>nul
   cls
 )
   if not exist "%rtwinpath%\NoTskill.vbs" (
md "%rtwinpath%\NoTskillFirstAppear"
echo On error resume next >"%rtwinpath%\NoTskillFirstAppear\NoTskill.vbs"
echo msgbox "This error report indicates the " ^& chr^(34^) ^& "tskill.exe" ^& chr^(34^) ^& " command was not found in your computer." ^& vbcrlf ^& "Instead, the vbskillexp.vbs file will be used to kill the explorer process.", 64+4096+vbokonly, "Command tskill not found details" >>"%rtwinpath%\NoTskillFirstAppear\NoTskill.vbs"
"%rtwinpath%\NoTskillFirstAppear\NoTskill.vbs"
move "%rtwinpath%\NoTskillFirstAppear\NoTskill.vbs" "%rtwinpath%" >nul 2>nul
rd "%rtwinpath%\NoTskillFirstAppear" >nul 2>nul
)

:start
 
:: DETECTION DE LA SAUVEGARDE DU REGISTRE, SI ELLE N'EXISTE PAS, ELLE SERA EFFECTUEE AUTOMATIQUEMENT
color 0f
   if exist "%rtwinpath%\RegBackUp\*.reg" goto backupdetected
mode con cols=71 lines=26
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º    Reg BackUp    º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Loading, backup in progress...
echo.
echo step 1/5
md "%rtwinpath%\RegBackUp" >nul 2>nul
reg export HKLM "%rtwinpath%\RegBackUp\HKLM.reg" >nul 2>nul
echo Done !
echo.
echo step 2/5
reg export HKCR "%rtwinpath%\RegBackUp\HKCR.reg" >nul 2>nul
echo Done !
echo.
echo step 3/5
reg export HKCU "%rtwinpath%\RegBackUp\HKCU.reg" >nul 2>nul
echo Done !
echo.
echo step 4/5
reg export HKCC "%rtwinpath%\RegBackUp\HKCC.reg" >nul 2>nul
echo Done !
echo.
echo step 5/5
reg export HKU "%rtwinpath%\RegBackUp\HKU.reg" >nul 2>nul
echo Done !
echo   Your last registry backup was made on %date% at %time%. >"%rtwinpath%\RegBackup\datinfo.rbt"
echo   You've restored the registry backup of %date%, %time%. >"%rtwinpath%\RegBackup\restdatinfo.rbt"
reg add HKEY_CLASSES_ROOT\.rbt /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\.rbt /ve /t REG_SZ /d rbtfile /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /ve /t REG_SZ /d "Registry Backup Tool Data Document" /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /v AlwaysShowExt /t REG_SZ /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\DefaultIcon /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\DefaultIcon /ve /t REG_SZ /d "%SystemRoot%\system32\setupapi.dll,12" /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open\command /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open\command /ve /t REG_SZ /d unknown /f >nul 2>nul
echo.
echo   Backup in : "%rtwinpath%\RegBackUp\"
echo.
echo Press any key...
pause >nul
mode con cols=71 lines=24
:backupdetected
 
:menu
color 0f
set crt=enu
cls
:errenu
echo.
echo                     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                     º                             º
echo                     º        Registry Tool        º
echo                     º                             º
echo                     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   IP Proxy   ³  ³ 02 ³ Hide Desktop ³  ³ 03 ³ Optimize All ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 04 ³  Auto-Logon  ³  ³ 05 ³  USB Detect  ³  ³ 06 ³  CleanUpReg  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 07 ³ Context Menu ³  ³ 08 ³  Reg Backup  ³  ³ 09 ³ Startup Soft ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 10 ³    Folder    ³  ³ 11 ³ Menu Taskbar ³  ³ 12 ³ USB Autorun  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 13 ³ Admin Tweaks ³  ³ 14 ³ System Infos ³  ³ 15 ³     Help     ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.
echo.
set /p crt="Choice : "
   if /I "%crt%"=="quit" goto classexit
   if /I "%crt%"=="exit" goto classexit
   if /I "%crt%"=="shut" goto classexit
   if /I "%crt%"=="switch off" goto classexit
   if /I "%crt%"=="close" goto classexit
   if /I "%crt%"=="turn off" goto classexit
   if /I "%crt%"=="fermer" goto classexit
   if /I "%crt%"=="quitter" goto classexit
   if %crt% geq 0 (
      if %crt% leq 15 (
      goto m%crt%
      ) else (
      echo 
      cls
      echo Invalid choice !
      goto errenu
    )
 ) else (goto classexit)

::CREDITS

:m0
:m00
mode con cols=76 lines=33
cls
echo.
echo                            Version : 1.5.2
echo                            Modify : Improvements of options 9 ^& 14
echo    ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»            Add BrowseForFile.vbs ÄÄÄ^> Option 9
echo    º   Registry Tool   º            Add software Infos ÄÄÄÄ^> Option 14
echo    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ            GUI improvements for Option 14
echo                                     Improvements for option 7 ^& 3
echo                            The 26/08/2014 at 22:08
echo.
echo   Created by : Pierre JOUSSAIN ^& Raphael BERTEAUD
echo   Created for : batch.xoo.it ^& Everyone else
echo.
echo   Developed by :
echo     ÄRaphael BERTEAUD [^</Troud>] ÍÍÍÍ 8 commands + help
echo     ÄPierre JOUSSAIN [Pierrot] ÍÍÍÍÍÍ 5 commands
echo     ÄXavier PACIO [AlonsO7798] ÍÍÍÍÍÍ hta password module integration
echo     ÄMehdi Benzarti [Hackoo] ÍÍÍÍÍÍÍÍ HTA ^& vbs ÄÄ^> option 3
echo                              ÀÄÄÄÄÄÄ^> GetFileDlg.vbs ^& htapwdmodule
echo     ÄUnknown [BlastKiller] ÍÍÍÍÍÍÍÍÍÍ part of the option 14's code
echo     ÄUnknown [Batch_Man] ÍÍÍÍÍÍÍÍÍÍÍÍ commands ÄÄ^> option 3 from ErazorTmp
echo     ÄUnknown [Omen999] ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ original GetFileDlg ÄÄ^> BrowesForFile
echo     ÄUnknown [Laddy] ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ private sub-forum in batch.xoo.it
echo                      ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^> commands for option 3
echo     ÄUnknown [ytrezAn] ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ command for option 6
echo.
echo    For questions, comments, or bug reports, please feel free
echo    to contact us at the following address : raf.webmaster@octavener.org
echo.
echo    Don't forget to check the README file in "%rtwinpath%\"
echo.
echo Press any key...
pause >nul
mode con cols=71 lines=24
goto menu

:: OPTION 1  CONFIGURATION DU PROXY

:m1
:m01
cls
:err
set oot=1
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º     IP Proxy     º   The 15/03/2012 at 19:29
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Configure Proxy
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³     Desactivate      ³  ³ 02 ³       Activate       ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p oot="1 or 2 : "
   if /I "%oot%"=="back" goto menu
   if /I "%oot%"=="exit" goto menu
   if /I "%oot%"=="quit" goto menu
   if /I "%oot%"=="retour" goto menu
set /a oot=%oot%-1
   if %oot% equ 0 set crt=ProxyOFF
   if %oot% equ 0 goto oot
   if %oot% gtr 1 (
   echo 
   cls
   echo Invalid Choice !
   goto err
 )
   if %oot% lss 0 (
   echo 
   cls
   echo Invalid Choice !
   goto err
 )
echo.
echo.
echo   Please, choose an IP adress (ex : 255.18.42.20)
echo.
set /p crt="IP : "
   if /I "%crt%"=="back" goto m1
   if /I "%crt%"=="exit" goto m1
   if /I "%crt%"=="quit" goto m1
   if /I "%crt%"=="retour" goto m1
:oot
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyenable /t Reg_Dword /d "%oot%" /f >nul 2>nul
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyserver /t Reg_SZ /d "%crt%" /f >nul 2>nul
   if %oot% equ 1 (
   echo.
   echo Proxy Enabled ! ^(%crt%^)
   ) else (
   echo.
   echo Proxy Disabled !
 )
goto result
 
:: OPTION 2  AFFICHAGE DES ICONES DU BUREAU

:m2
:m02
cls
:err2
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Hide Desktop   º   The 15/03/2012 at 17:31
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Show or Hide Desktop Icons
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Show desktop icons  ³  ³ 02 ³  Hide desktop icons  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.     
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
set /a crt=%crt%-1
   if %crt% gtr 1 (
   echo 
   cls
   echo Invalid choice !
   goto err2
 )
   if %crt% lss 0 (
   echo 
   cls
   echo Invalid choice !
   goto err2
 )
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoDesktop /t REG_DWORD /d %crt% /f >nul 2>nul
   if %crt% equ 1 (
   echo.
   echo Desktop icons disabled.
   ) else (
   echo.
   echo Desktop icons enabled.
 )
   if exist "%rtwinpath%\NoTskill.vbs" (
   "%rtwinpath%\VBSKillExp.vbs"
   ) else (
   tskill explorer 2>nul
 )
set /a crt=%crt%+1
goto result

:: OPTION 3  OPTIMISATION DU DEMARRAGE, DE L'EXECUTION ET DE L'EXTINCTION DE WINDOWS

:m3
:m03
cls
:err3
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Optimize All   º   The 15/03/2012 at 17:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Faster Boot, Runtime and Shutdown
echo.
echo   ÄÄÄÄ^> Optimize StartUp [Raphael BERTEAUD]
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v VerboseStatus /t REG_DWORD /d 1 /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto distartdfrg
 )
echo Verbose Mode Enabled.
:distartdfrg
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction /v OptimizeComplete /t REG_SZ /d no /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto optwindeltmp
 )
echo Startup Defragmentation Disabled.
:optwindeltmp
echo.
echo   ÄÄÄÄ^> Optimize Windows [Raphael BERTEAUD]
del "%windir%\temp" /f /s /q >nul 2>nul
del "%localappdata%\Microsoft\Windows\Temporary Internet Files\*.*" /f /s /q >nul 2>nul
   for /f "tokens=2-3 delims=\" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" ^| Find /i "Common AppData"') do set CAD=%systemdrive%\%%a
   if not "%CAD%"=="%systemdrive%\Documents and Settings" set CAD=%systemdrive%\Users
set AD=AppData\Roaming
   if "%CAD%"=="%systemdrive%\Documents and Settings" set AD=Application Data
   for /f "tokens=*" %%i in ('dir /s /b /ad "%WINDIR%\system32\config\systemprofile\Local Settings\Temp" 2^>nul') do (
   rd /s /q "%%i" >nul 2>nul
 )
   for /f "tokens=*" %%i in ('dir /s /b /a-d "%WINDIR%\system32\config\systemprofile\Local Settings\Temp" 2^>nul') do (
      del /q "%%i" 2>nul >nul
 )
   for /f "tokens=*" %%i in ('dir /s /b /ad "%WINDIR%\Temp" 2^>nul') do (
      rd /s /q "%%i" 2>nul >nul
 )
   for /f "tokens=*" %%i in ('dir /s /b /a-d "%WINDIR%\Temp" 2^>nul') do (
      del /q "%%i" 2>nul >nul
 )
   for /f "tokens=*" %%e in ('dir /b /ad "%CAD%"') do (
      for /f "tokens=*" %%i in ('dir /s /b /ad "%CAD%\%%e\LOCALS~1\Temp" 2^>nul') do (
      rd /s /q "%%i" 2>nul >nul
    )
 )
   for /f "tokens=*" %%e in ('dir /b /ad "%CAD%"') do (
      for /f "tokens=*" %%i in ('dir /s /b /a-d "%CAD%\%%e\LOCALS~1\Temp" 2^>nul') do (
      del /q "%%i" 2>nul >nul
    )
 )
   for %%a in (
   "%ProgramFiles%\AusLogics Disk Defrag\reports\*.html"
   "%ProgramFiles% (x86)\AusLogics Disk Defrag\reports\*.html"
   "%ProgramFiles%\Lavasoft\Ad-Aware SE Personal\defs.ref.old"
   "%ProgramFiles% (x86)\Lavasoft\Ad-Aware SE Personal\defs.ref.old"
   "%ProgramFiles%\Ahead\Nero\NeroHistory.log"
   "%ProgramFiles% (x86)\Ahead\Nero\NeroHistory.log"
   "%allusersprofile%\%AD%\Spybot - Search ^& Destroy\backups\*.*"
   "%allusersprofile%\%AD%\Spybot - Search ^& Destroy\logs\*.*"
   "%allusersprofile%\%AD%\Spybot - Search ^& Destroy\recovery\*.*"
   "%allusersprofile%\%AD%\Avira\AntiVir PersonalEdition Classic\LOGFILES\avguard.log"
   "%allusersprofile%\%AD%\Microsoft\Dr Watson\*.dmp"
   "%ProgramFiles%\EMULE\CONFIG\AC_SearchStrings.dat"
   "%ProgramFiles% (x86)\EMULE\CONFIG\AC_SearchStrings.dat"
   "%programfiles%\NETSCAPE\USERS\DEFAULT\netscape.hst"
   "%programfiles% (x86)\NETSCAPE\USERS\DEFAULT\netscape.hst"
   "%programfiles%\NETSCAPE\USERS\DEFAULT\cookies.txt"
   "%programfiles% (x86)\NETSCAPE\USERS\DEFAULT\cookies.txt"
   "%programfiles%\NETSCAPE\USERS\DEFAULT\CACHE\*.*"
   "%programfiles% (x86)\NETSCAPE\USERS\DEFAULT\CACHE\*.*") do if exist %%a (
      del /q %%a >nul 2>nul
 )
echo Temporary Files Deleted.
"%rtwinpath%\HScanVBSFiles.vbs"
   if errorlevel 1 (
   echo 
   goto prefclear
 )
echo VBS files checked.
echo New vbs scan log in "Documents\Rapport_VBSRegCleaner"
:prefclear
del "%windir%\prefetch\*.*" /f /s /q >nul 2>nul
echo Prefetch Folder Cleared.
   for /f "tokens=*" %%e in ('dir /b /ad "%CAD%"') do (
      for /f "tokens=*" %%i in ('dir /b "%CAD%\%%e\Recent\*.*" 2^>nul') do (
          del /q "%CAD%\%%e\Recent\%%i" 2>nul >nul
               )
    )
   for /f "tokens=*" %%i in ('dir /b "%windir%\System32\config\systemprofile\Recent\*.*" 2^>nul') do (
      del /q  "%windir%\System32\config\systemprofile\Recent\%%i" 2>nul >nul
 )
echo Recent Files Cleared.
   for /f "tokens=*" %%i in ('dir /b "%windir%\MiniDump\*.dmp" 2^>NUL') do (
   del /q "%windir%\MiniDump\%%i" 2>nul >nul
 )
   for /f "tokens=*" %%i in ('dir /b "%windir%\*.log" 2^>NUL') do (
   del /q "%windir%\%%i" 2>nul >nul
 )
   for /f "tokens=*" %%i in ('dir /b "%windir%\Debug\*.log" 2^>NUL') do (
   del /q "%windir%\Debug\%%i" 2>nul >nul
 )
   for /f "tokens=*" %%i in ('dir /b "%windir%\system32\wbem\Logs\*.lo*" 2^>NUL') do (
   del /q "%windir%\system32\wbem\Logs\%%i" 2>nul >nul
 )
   for /f "tokens=*" %%i in ('dir /b "%WINDIR%\security\logs\*.log" 2^>NUL') do (
   del /q "%windir%\security\logs\%%i" 2>nul >nul
 )
   for /f "tokens=*" %%i in ('dir /b "%WINDIR%\Debug\UserMode\*.log" 2^>NUL') do (
   del /q "%windir%\Debug\UserMode\%%i" 2>nul >nul
 )
echo Log files cleared.
del index.dat /f /s /q >nul 2>nul
   if errorlevel 1 (
   echo 
   goto clrcbslog
 )
echo "Index.dat" Cleared.
:clrcbslog
takeown /f "%windir%\Logs\CBS\CBS.log" >nul 2>nul
echo  >"%windir%\Logs\CBS\CBS.log"
   if errorlevel 1 (
   echo 
   goto unlduselessdll
 )
echo "CBS.log" Cleared.
:unlduselessdll
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer /v AlwaysUnloadDll /t REG_DWORD /d 1 /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto sepexprocess
 )
echo Unloading ".dll" Files Enabled.
:sepexprocess
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v SeparateProcess /t REG_DWORD /d 1 /f >nul 2>nul
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem /v NtfsDisableLastAccessUpdate /t REG_DWORD /d 1 /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto dispagexe
 )
echo Separation of Processes Enabled.
:dispagexe
reg add "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Memory Management" /v DisablePagingExecutive /t REG_DWORD /d 1 /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto spdupexpanim
 )
echo Paging Executive Disabled (Disable Kernel ^& Hardware Drivers Swapping)
:spdupexpanim
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v MenuShowDelay /t REG_SZ /d 50 /f >nul 2>nul
reg add "HKEY_USERS\.DEFAULT\Control Panel\Mouse" /v MouseHoverTime /t REG_SZ /d 50 /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto extconlimpserv
 )
echo Speeding Up Explorer Animations.
:extconlimpserv
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v LowLevelHooksTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoInternetOpenWith /t REG_DWORD /d 1 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPer1_0Server /t REG_DWORD /d 12 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPerServer /t REG_DWORD /d 12 /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto diseitdotthreencreat
 )
echo Extending Connection Limits Per Server.
:diseitdotthreencreat
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Filesystem /v NtfsDisable8dot3NameCreation /t REG_DWORD /d 1 /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto askdishib
 )
echo NTFS "8.3 Name Creation" Disabled.
echo.
   for /f "tokens=*" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ProductName ^| findstr "Windows" 2^>nul') do set winver3="%%a"
set winver3=%winver3:~26,47%
set winver3=%winver3:"=%
echo %winver3% | find "8" >nul 2>nul
   if errorlevel 1 (
   goto askdishib
   ) else (
   goto shutopthdd
 )
:askdishib
set /p hibonoff="Do you want to disable hibernation ? (Y/N)                             (This frees up disk space) : "
   if /I "%hibonoff%"=="y" (
   echo Please wait...
   powercfg -h off
      if errorlevel 1 (
      echo 
      echo There was an unknown error !
      goto shutopthdd
    )
   echo Hibernation Disabled.
   goto shutopthdd
 )
   if /I "%hibonoff%"=="yes" (
   echo Please wait...
   powercfg -h off
      if errorlevel 1 (
      echo 
      echo There was an unknown error !
      goto shutopthdd
    )
   echo Hibernation Disabled.
   goto shutopthdd
 )
   if /I "%hibonoff%"=="o" (
   echo Please wait...
   powercfg -h off
      if errorlevel 1 (
      echo 
      echo There was an unknown error !
      goto shutopthdd
    )
   echo Hibernation Disabled.
   goto shutopthdd
 )
   if /I "%hibonoff%"=="oui" (
   echo Please wait...
   powercfg -h off
      if errorlevel 1 (
      echo 
      echo There was an unknown error !
      goto shutopthdd
    )
   echo Hibernation Disabled.
   goto shutopthdd
 )
   if "%hibonoff%"=="1" (
   echo Please wait...
   powercfg -h off
      if errorlevel 1 (
      echo 
      echo There was an unknown error !
      goto shutopthdd
    )
   echo Hibernation Disabled.
   goto shutopthdd
 )
echo Please wait...
powercfg -h on
   if errorlevel 1 (
   echo 
   echo There was an unknown error !
   goto shutopthdd
 )
echo Hibernation enabled.
:shutopthdd
echo.
echo   ÄÄÄÄ^> Optimize extinction [Raphael BERTEAUD]
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" /v WaitToKillServiceTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v AutoEndTasks /t REG_SZ /d 1 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v WaitToKillAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v HungAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_USERS\.DEFAULT\Control Panel\Desktop" /v WaitToKillAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_USERS\.DEFAULT\Control Panel\Desktop" /v HungAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
echo Reduction of Killing Applications ^& Services' Delays.
echo.
echo You should Restart your computer to apply changes.
set /p crt="Would you like to restart now ? (Y/N) : "
   if /I "%crt%"=="y" (shutdown -r -t 00) else (goto result)

:: OPTION 4  CONFIGURATION DE LA CONNEXION AUTOMATIQUE A UNE SESSION DEFINIE AU DEMARRAGE DE WINDOWS

:m4
:m04
set crt=1
cls
:err4
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º    Auto-Logon    º   The 16/03/2012 at 17:39
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Automatic Session Logon
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Desactivate AutoLogon ³  ³ 02 ³  Activate AutoLogon   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Logon automatically to the session you want
echo.
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
set /a crt=%crt%-1
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AutoAdminLogon /t REG_SZ /d %crt% /f >nul 2>nul
   if %crt% EQU 0 (
   reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultusername" /f >nul 2>nul
   reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultpassword" /f >nul 2>nul
   echo.
   echo Auto logon disabled.
   set /a crt=%crt%+1
   goto result
   ) else (
   echo.
   echo Auto logon enabled.
 )
   if %crt% gtr 1 (
   echo 
   cls
   echo Invalid choice !
   goto err4
 )
   if %crt% lss 0 (
   echo 
   cls
   echo Invalid choice !
   goto err4
 )
set /a crt=%crt%+1
echo.
:askuseral
set /p user="Which session do you want to use as default ? : "
   if /I "%user%"=="backtortmenu4" goto m4
   if "%user%"=="" (
   echo.
   echo User cannot be empty !
   echo.
   echo.
   goto askuseral
 )
echo.
:askpassword
CALL:PasswordEntry_Start
:addhtapasstoreg
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultusername /t REG_SZ /d %user% /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultpassword /t REG_SZ /d %MyPassword2% /f >nul 2>nul
cls
echo.
echo Now you'll be logged as %user% on every startup.
echo.
echo    Note : If user name or password are wrong, the operation wont work !
echo.
echo WARNING : Your password is now visible in the registry !
echo           If you switch off the AutoLogon, your password will
echo           no longer be visible in the registry.
goto result
 
:: OPTION 5  CONFIGURATION DE LA DETECTION DES USB (LES EFFETS SONT EFFECTIFS APRES REDEMARRAGE UNIQUEMENT)

:m5
:m05
cls
:err5
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º    USB Detect    º   The 16/03/2012 at 21:25
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Administrative Tweak for USB
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Enable USB Detect   ³  ³ 02 ³  Disable USB Detect  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
set /a crt=%crt%+2
   if %crt% gtr 4 (
   echo 
   cls
   echo Invalid choice !
   goto err5
 )
   if %crt% lss 3 (
   echo 
   cls
   echo Invalid choice !
   goto err5
 )
echo.
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR" /v Start /t Reg_Dword /d "%crt%" /f >nul 2>nul
echo.
   if %crt% equ 4 (
   echo Disabling USB detection.
   reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies /v WriteProtect /t REG_DWORD /d 1 /f >nul 2>nul
   echo.
   echo Enabling USB write-protection.
   echo.
   echo    Your USB ports are now disabled !
   echo.
   echo You will have to reboot for the changes to take effect.
   set /p restartprompt="Would you like to restart now ? (Y/N) : "
      if /I "%restartprompt%"=="y" (shutdown -r -t 00) else (
      set /a crt=%crt%-2
      goto result
    )
   ) else (
   echo Enabling USB detection.
   reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies /v WriteProtect /t REG_DWORD /d 0 /f >nul 2>nul
   echo.
   echo Disabling USB write-protection.
   echo.
   echo    Your USB ports are now enabled !
   echo.
   echo You will have to reboot for the changes to take effect.
   set /p restartprompt="Would you like to restart now ? (Y/N) : "
      if /I "%restartprompt%"=="y" (shutdown -r -t 00) else (
      set /a crt=%crt%-2
      goto result
    )
 )

:: OPTION 6  LEGER NETTOYAGE DE LA BASE DE REGISTRE PAR SUPPRESSION DE VALEURS INUTILES
 
:m6
:m06
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : ytrezAn
echo   º    CleanUpReg    º   The 16/03/2012 at 20:50
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Erase Traces of Uninstalled Programs
echo.
echo.
echo   ÄÄÄÄ^> Delete traces [ytrezAn]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f >nul 2>nul
echo "Microsoft\Tracing" key ^& subkeys cleared.
echo.
echo   ÄÄÄÄ^> Delete traces [Pierre JOUSSAIN]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f >nul 2>nul
echo "Software\Microsoft\Tracing" key ^& subkeys cleared.
echo.
goto result
 
:: OPTION 7  CONFIGURATION DES OPTIONS DU MENU CONTEXTUEL (CLIC DROIT DE LA SOURIS) DU BUREAU

:m7
:m07
set crt=1
cls
:err7
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Context Menu   º   The 17/03/2012 at 21:00
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Add or Delete Context Menu Entries
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Add Option in the menu ³  ³ 02 ³ Del Option in the menu ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo              ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo              ³ 03 ³  Configure desktop context menu  ³
echo              ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Context menu affects the desktop context menu
echo.
set /p crt="1, 2 or 3 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 2 goto deleter
   if %crt% equ 3 goto disabledcm
   if %crt% gtr 3 (
   echo 
   cls
   echo Invalid choice !
   goto err7
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err7
 )
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Add Option to the Desktop Context Menu  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
:choosenameentry
if exist "%rtwinpath%\ncme7.vbs" goto startpromptname7
echo on error resume next >"%rtwinpath%\ncme7.vbs"
echo path = inputbox("Enter the new context menu entry name", "New Context Menu Entry", "example : Paint") >>"%rtwinpath%\ncme7.vbs"
echo Set objFSO=CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\ncme7.vbs"
echo. >>"%rtwinpath%\ncme7.vbs"
echo outFile="%rtwinpath%\ncme7.txt" >>"%rtwinpath%\ncme7.vbs"
echo Set objFile = objFSO.CreateTextFile(outFile,True) >>"%rtwinpath%\ncme7.vbs"
echo objFile.Write path >>"%rtwinpath%\ncme7.vbs"
echo objFile.Close >>"%rtwinpath%\ncme7.vbs"
echo. >>"%rtwinpath%\ncme7.vbs"
:startpromptname7
"%rtwinpath%\ncme7.vbs"
   for /f "tokens=*" %%a in ('type "%rtwinpath%\ncme7.txt"') do set name=%%a
   if "%name%"=="" (
   echo.
   echo The name entry cannot be empty !
   echo.
   echo.
   goto choosenameentry
 )
echo "%name%"
echo.
:choosecommandentry
   if exist "%rtwinpath%\ccme7.vbs" goto startpromptcommand7
echo msgbox "Choose a command to associate with %name%", 4096+vbokonly+64, "Command association" >"%rtwinpath%\ccme7.vbs"
echo Function GetFileDlg(sIniDir,sFilter,sTitle) >>"%rtwinpath%\ccme7.vbs"
echo  GetFileDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" ^& sIniDir ^& "',null,'" ^& sFilter ^& "','" ^& sTitle ^& "')));close();}</script><hta:application showintaskbar=no />""").StdOut.ReadAll >>"%rtwinpath%\ccme7.vbs"
echo End Function >>"%rtwinpath%\ccme7.vbs"
echo. >>"%rtwinpath%\ccme7.vbs"
echo Function GetFileDlgBar(sIniDir,sFilter,sTitle) >>"%rtwinpath%\ccme7.vbs"
echo  GetFileDlgBar=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" ^& sIniDir ^& "',null,'" ^& sFilter ^& "','" ^& sTitle ^& "')));close();}</script>""").StdOut.ReadAll >>"%rtwinpath%\ccme7.vbs"
echo End Function >>"%rtwinpath%\ccme7.vbs"
echo. >>"%rtwinpath%\ccme7.vbs"
echo sIniDir = "C:\*" >>"%rtwinpath%\ccme7.vbs"
echo sFilter = "All files (*.*)|*.*|Applications (*.exe;*.com)|*.exe;*.com|" >>"%rtwinpath%\ccme7.vbs"
echo sTitle = "Registry Tool BrowseForFile -- based on GetFileDlg by Omen999" >>"%rtwinpath%\ccme7.vbs"
echo. >>"%rtwinpath%\ccme7.vbs"
echo rep = GetFileDlg(Replace(sIniDir,"\","\\"),sFilter,sTitle) >>"%rtwinpath%\ccme7.vbs"
echo. >>"%rtwinpath%\ccme7.vbs"
echo Set objFSO=CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\ccme7.vbs"
echo. >>"%rtwinpath%\ccme7.vbs"
echo outFile="C:\Windows\RegistryTool\ccme7.txt" >>"%rtwinpath%\ccme7.vbs"
echo Set objFile = objFSO.CreateTextFile(outFile,True) >>"%rtwinpath%\ccme7.vbs"
echo objFile.Write rep >>"%rtwinpath%\ccme7.vbs"
echo objFile.Close >>"%rtwinpath%\ccme7.vbs"
echo. >>"%rtwinpath%\ccme7.vbs"

:startpromptcommand7
"%rtwinpath%\ccme7.vbs"
   for /f "tokens=*" %%a in ('type "%rtwinpath%\ccme7.txt"') do set comm=%%a
   if "%comm%"=="" (
   echo.
   echo The command cannot be empty !
   echo.
   echo.
   goto choosecommandentry
 )
echo "%comm%"
echo.
echo.
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%" /f >nul 2>nul
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command" /f >nul 2>nul
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command" /ve /d "%comm%" /f >nul 2>nul
ping 127.0.0.1 /n 2 >nul 2>nul
cls
:err71
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³      Add an icon       ³  ³ 03 ³ Continue without icon ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cicort="2 or 3 : "
   if %cicort% equ 2 goto iconadd
   if %cicort% gtr 3 (
   echo 
   cls
   echo Invalid choice !
   goto err71
 )
   if %cicort% lss 2 (
   echo 
   cls
   echo Invalid choice !
   goto err71
 )
goto next1
:iconadd
echo.
if exist "%rtwinpath%\icme7.vbs" goto startprompticon7
echo on error resume next >"%rtwinpath%\icme7.vbs"
echo Function GetFileDlg(sIniDir,sFilter,sTitle) >>"%rtwinpath%\icme7.vbs"
echo  GetFileDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" ^& sIniDir ^& "',null,'" ^& sFilter ^& "','" ^& sTitle ^& "')));close();}</script><hta:application showintaskbar=no />""").StdOut.ReadAll >>"%rtwinpath%\icme7.vbs"
echo End Function >>"%rtwinpath%\icme7.vbs"
echo. >>"%rtwinpath%\icme7.vbs"
echo Function GetFileDlgBar(sIniDir,sFilter,sTitle) >>"%rtwinpath%\icme7.vbs"
echo  GetFileDlgBar=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" ^& sIniDir ^& "',null,'" ^& sFilter ^& "','" ^& sTitle ^& "')));close();}</script>""").StdOut.ReadAll >>"%rtwinpath%\icme7.vbs"
echo End Function >>"%rtwinpath%\icme7.vbs"
echo. >>"%rtwinpath%\icme7.vbs"
echo sIniDir = "C:\*" >>"%rtwinpath%\icme7.vbs"
echo sFilter = "Icon files (*.ico)|*.ico|Applications (*.exe;*.com)|*.exe;*.com|All files (*.*)|*.*|" >>"%rtwinpath%\icme7.vbs"
echo sTitle = "Registry Tool BrowseForFile -- based on GetFileDlg by Omen999" >>"%rtwinpath%\icme7.vbs"
echo. >>"%rtwinpath%\icme7.vbs"
echo rep = GetFileDlg(Replace(sIniDir,"\","\\"),sFilter,sTitle) >>"%rtwinpath%\icme7.vbs"
echo. >>"%rtwinpath%\icme7.vbs"
echo Set objFSO=CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\icme7.vbs"
echo. >>"%rtwinpath%\icme7.vbs"
echo outFile="%rtwinpath%\icme7.txt" >>"%rtwinpath%\icme7.vbs"
echo Set objFile = objFSO.CreateTextFile(outFile,True) >>"%rtwinpath%\icme7.vbs"
echo objFile.Write rep >>"%rtwinpath%\icme7.vbs"
echo objFile.Close >>"%rtwinpath%\icme7.vbs"
echo. >>"%rtwinpath%\icme7.vbs"

:startprompticon7
"%rtwinpath%\icme7.vbs"
   for /f "delims=" %%a in ('type "%rtwinpath%\icme7.txt"') do set icon=%%a
echo "%icon%"
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%" /v Icon /t REG_SZ /d "%icon%" /f >nul 2>nul
ping 127.0.0.1 /n 2 >nul 2>nul
:next1
cls
:err72
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    04 : Show the option "%name%" only when shift is pressed
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    05 : Always show the option "%name%"
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cshextrt="4 or 5 : "
   if %cshextrt% equ 4 reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%" /v extended /t REG_SZ /f >nul 2>nul
   if %cshextrt% equ 5 goto placernext
   if %cshextrt% gtr 5 (
   echo 
   cls
   echo Invalid choice !
   goto err72
 )
   if %cshextrt% lss 4 (
   echo 
   cls
   echo Invalid choice !
   goto err72
 )
:placernext
cls
:err73
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    06 : Place the option "%name%" at the bottom
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    07 : Place the option "%name%" at the top
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    08 : Don't position the option "%name%"
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cplacert="6, 7 or 8 : "
   if %cplacert% EQU 6 goto bottompos
   if %cplacert% EQU 7 goto toppos
   if %cplacert% EQU 8 goto nopos
   if %cplacert% gtr 8 (
   echo 
   cls
   echo Invalid choice !
   goto err73
 )
   if %cplacert% lss 6 (
   echo 
   cls
   echo Invalid choice !
   goto err73
 )
:bottompos
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%" /v position /t REG_SZ /d bottom /f >nul 2>nul
goto nopos
:toppos
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%" /v position /t REG_SZ /d top /f >nul 2>nul
:nopos
cls
echo.
echo   Option added to desktop context menu.
echo.
echo   Informations :
echo      Name : %name%
echo      Command : %comm%
   if defined icon echo      Icon : %icon%
   if %cshextrt% equ 4 (echo      Type : Extended desktop menu only) else (echo      Type : Classic desktop menu)
   if %cplacert% equ 6 echo      Position : Bottom
   if %cplacert% equ 7 echo      Position : Top
set crt=%cplacert%
if exist "%rtwinpath%\ccme7.vbs" del "%rtwinpath%\ccme7.vbs" /q /f >nul 2>nul
if exist "%rtwinpath%\icme7.vbs" del "%rtwinpath%\icme7.vbs" /q /f >nul 2>nul
if exist "%rtwinpath%\ncme7.vbs" del "%rtwinpath%\ncme7.vbs" /q /f >nul 2>nul
if exist "%rtwinpath%\ccme7.txt" del "%rtwinpath%\ccme7.txt" /q /f >nul 2>nul
if exist "%rtwinpath%\icme7.txt" del "%rtwinpath%\icme7.txt" /q /f >nul 2>nul
if exist "%rtwinpath%\ncme7.txt" del "%rtwinpath%\ncme7.txt" /q /f >nul 2>nul
goto result
:deleter
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³      Delete Option      ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
:askdelentrycm
if exist "%rtwinpath%\dcme7.vbs" goto startpromptnametodel7
echo on error resume next >"%rtwinpath%\dcme7.vbs"
echo path = inputbox("Enter the context menu entry you want to remove", "Delete Context Menu Entry") >>"%rtwinpath%\dcme7.vbs"
echo Set objFSO=CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\dcme7.vbs"
echo. >>"%rtwinpath%\dcme7.vbs"
echo outFile="%rtwinpath%\dcme7.txt" >>"%rtwinpath%\dcme7.vbs"
echo Set objFile = objFSO.CreateTextFile(outFile,True) >>"%rtwinpath%\dcme7.vbs"
echo objFile.Write path >>"%rtwinpath%\dcme7.vbs"
echo objFile.Close >>"%rtwinpath%\dcme7.vbs"
echo. >>"%rtwinpath%\dcme7.vbs"
:startpromptnametodel7
"%rtwinpath%\dcme7.vbs"
   for /f "delims=" %%a in ('type "%rtwinpath%\dcme7.txt"') do set name1=%%a
echo "%name1%"
   if "%name1%"=="" (
   echo.
   echo Menu entry cannot be empty !
   echo.
   echo.
   goto askdelentrycm
 )
reg delete "HKEY_CLASSES_ROOT\Directory\Background\shell\%name1%" /f >nul 2>nul
   if errorlevel 1 (
   echo.
   echo   The "%name1%" entry seems to don't exist !
   echo.
   if exist "%rtwinpath%\dcme7.txt" del "%rtwinpath%\dcme7.txt" /q /f >nul 2>nul
   if exist "%rtwinpath%\dcme7.vbs" del "%rtwinpath%\dcme7.vbs" /q /f >nul 2>nul
   goto result
 )
echo.
echo   The "%name1%" entry has been successfully
echo   deleted from the desktop context menu !
   if exist "%rtwinpath%\dcme7.txt" del "%rtwinpath%\dcme7.txt" /q /f >nul 2>nul
   if exist "%rtwinpath%\dcme7.vbs" del "%rtwinpath%\dcme7.vbs" /q /f >nul 2>nul
goto result
:disabledcm
cls
:err74
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Enable desktop context menu  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Disable desktop context menu  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto m7
   if /I "%crt%"=="exit" goto m7
   if /I "%crt%"=="quit" goto m7
   if /I "%crt%"=="retour" goto m7
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err74
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err74
 )
set /a crt=%crt%-1
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /t REG_DWORD /d %crt% /f >nul 2>nul
echo.
set /a crt=%crt%+1
   if %crt% equ 1 (
   reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /f >nul 2>nul
   echo   Desktop context menu is enabled !
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   goto result
 )
   if %crt% equ 2 (
   echo   Desktop context menu is disabled !
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   goto result
 )


:: OPTION 8  OUTIL DE SAUVEGARDE ET DE RESTAURATION DE LA BASE DE REGISTRE
 
:m8
:m08
cls
:err8
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º    Reg Backup    º   The 18/03/2012 at 18:50
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Registry Backup Tool [Raphael B. idea]
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³      Reg Backup      ³  ³ 02 ³     Reg Restore     ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
   if not exist "%rtwinpath%\RegBackUp" (
   echo   WARNING : You do not have a backup !
   echo.
 )
   if exist "%rtwinpath%\RegBackUp\*.reg" (
   echo   Note : You have a backup.
      if exist "%rtwinpath%\RegBackUp\datinfo.rbt" (
      type "%rtwinpath%\RegBackup\datinfo.rbt" 2>nul
      echo.
      ) else (
      echo.
    )
 )
set /p crt="1 or 2 : "
echo.
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 1 goto backup
   if %crt% equ 2 if exist "%rtwinpath%\RegBackUp" (
   goto restore
   ) else (
   cls
   echo You don't have any registry backup, so you cannot restore it.
   goto err8
 )
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err8
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err8
 )
:backup
echo   Loading, backup in progress...
   if not exist "%rtwinpath%\RegBackUp" md "%rtwinpath%\RegBackUp"
echo.
echo step 1/5
reg export HKLM "%rtwinpath%\RegBackUp\HKLM.reg" /y >nul 2>nul
echo Done !
echo.
echo step 2/5
reg export HKCR "%rtwinpath%\RegBackUp\HKCR.reg" /y >nul 2>nul
echo Done !
echo.
echo step 3/5
reg export HKCU "%rtwinpath%\RegBackUp\HKCU.reg" /y >nul 2>nul
echo Done !
echo.
echo step 4/5
reg export HKCC "%rtwinpath%\RegBackUp\HKCC.reg" /y >nul 2>nul
echo Done !
echo.
echo step 5/5
reg export HKU "%windir%\RegsitryTool\RegBackUp\HKU.reg" /y >nul 2>nul
echo Done !
echo.
echo   Your last registry backup was made on %date% at %time%. >"%rtwinpath%\RegBackup\datinfo.rbt"
echo   You've restored the registry backup of %date%, %time%. >"%rtwinpath%\RegBackup\restdatinfo.rbt"
echo.
echo   Backup in : "%rtwinpath%\RegBackUp\"
echo.
goto result
:restore
echo   Loading, restore in progress...
echo.
echo step 1/5
reg import "%rtwinpath%\RegBackUp\HKLM.reg" >nul 2>nul
echo Done !
echo.
echo step 2/5
reg import "%rtwinpath%\RegBackUp\HKCR.reg" >nul 2>nul
echo Done !
echo.
echo step 3/5
reg import "%rtwinpath%\RegBackUp\HKCU.reg" >nul 2>nul
echo Done !
echo.
echo step 4/5
reg import "%rtwinpath%\RegBackUp\HKCC.reg" >nul 2>nul
echo Done !
echo.
echo step 5/5
reg import "%rtwinpath%\RegBackUp\HKU.reg" >nul 2>nul
echo Done !
echo.
type "%rtwinpath%\RegBackup\restdatinfo.rbt" 2>nul
echo.
goto result
 
:: OPTION 9  CONFIGURATION DES LOGICIELS EXECUTES AUTOMATIQUEMENT AU DEMARRAGE DE WINDOWS

:m9
:m09
cls
:err9
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º   Startup Soft   º   The 19/03/2012 at 18:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Modify the Autorun Program List
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³      Add program      ³  ³ 02 ³    Delete program    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err9
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err9
 )
echo.
:askprogpath
"%rtwinpath%\BrowseForFile.vbs"
   if errorlevel 1 goto oldaskprogpath
   for /f %%i in ("%rtwinpath%\path9.txt") do set sizepath9=%%~zi
      if sizepath9 equ 0 goto menu
   for /f "delims=" %%a in ('type "%rtwinpath%\path9.txt"') do set prt=%%a
      if errorlevel 1 goto errenu
goto operate9
:oldaskprogpath
set /p prt="Program path (without quotes) : "
   if "%prt%"=="" (
   echo.
   echo Program path cannot be empty !
   echo.
   echo.
   goto oldaskprogpath
 )
:operate9
echo.
echo Program path is "%prt%"
echo.
   if %crt% equ 1 (
   reg add HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "%prt%" /t REG_SZ /d "%prt%" /f >nul 2>nul
   echo "%prt%" has been added to the startup programs list.
 )
   if %crt% equ 2 (
   reg delete HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "%prt%" /f >nul 2>nul
      if errorlevel 1 (
      echo "%prt%" seems to don't be in the autorun programs list.
      goto result
    )
   echo "%prt%" has been deleted from the startup programs list.
 )
goto result

:: OPTION 10  CONFIGURATION D'AFFICHAGE DES FICHIERS ET DOSSIERS DE WINDOWS (fichiers et dossiers cachés, extension de fichiers connus ...)
 
:m10
cls
:err10
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º     Folder     º   The 19/03/2012 at 18:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Folders Properties [Pierre J. idea]
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show or Hide hidden files ^& Folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Show or hide known files extension  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto m10
   if /I "%crt%"=="exit" goto m10
   if /I "%crt%"=="quit" goto m10
   if /I "%crt%"=="retour" goto m10
   if %crt% equ 1 goto hiddenFF
   if %crt% equ 2 goto knownEF
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err10
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err10
 )
:hiddenFF
cls
:err102
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show hidden files ^& folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³ Hide hidden files ^& folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto m10
   if /I "%crt%"=="exit" goto m10
   if /I "%crt%"=="quit" goto m10
   if /I "%crt%"=="retour" goto m10
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err102
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err102
 )
echo.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Hidden /t REG_DWORD /d %crt% /f >nul 2>nul
   if %crt% equ 1 (echo   Hidden files ^& folders are visible.) else (echo   Hidden files ^& folders are invisible.)
   if exist "%rtwinpath%\NoTskill.vbs" (
   "%rtwinpath%\VBSKillExp.vbs"
   ) else (
   tskill explorer 2>nul
 )
goto result
 
:knownEF
cls
:err103
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show known files extensions ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³ Hide known files extensions ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto m10
   if /I "%crt%"=="exit" goto m10
   if /I "%crt%"=="quit" goto m10
   if /I "%crt%"=="retour" goto m10
set /a crt=%crt%-1
   if %crt% gtr 1 (
   echo 
   cls
   echo Invalid choice !
   goto err103
 )
   if %crt% lss 0 (
   echo 
   cls
   echo Invalid choice !
   goto err103
 )
echo.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v HideFileExt /t REG_DWORD /d %crt% /f >nul 2>nul
   if %crt% equ 1 (echo   Known files extensions are invisible.) else (echo   Known files extensions are visible.)
set /a crt=%crt%+1
   if exist "%rtwinpath%\NoTskill.vbs" (
   "%rtwinpath%\VBSKillExp.vbs"
   ) else (
   tskill explorer 2>nul
 )
goto result
 
:: OPTION 11  CONFIGURATION DES BOUTTONS PRESENTS DANS LE MENU DEMARRER SUR LE PANNEAU DE DROITE (Ordinateur, mes documents, jeux, ma musique, mes vidéos, téléchargements, ...)

:m11
cls
:err11
mode con cols=73 lines=24
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º     Taskbar     º   The 22/03/2012 at 22:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Customize Taskbar ^& Start Menu
echo.
echo.
echo  Customize taskbar ^& start menu + windows update ^& other tweaks
echo.
echo.
echo     ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿     ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo     ³ 01 ³  Choose shown buttons  ³     ³ 02 ³  Choose hidden buttons  ³
echo     ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ     ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿          ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 03 ³  Configure Windows Update  ³          ³ 04 ³   other   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ          ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt="1, 2, 3 or 4 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 1 goto showb
   if %crt% equ 2 goto hideb
   if %crt% equ 3 goto winupdate
   if %crt% equ 4 goto othersb
   if %crt% gtr 4 (
   echo 
   cls
   echo Invalid choice !
   goto err11
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err11
 )
:showb
cls
:err112
echo      ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo      ³ 01 ³   Choose buttons you want to show   ³
echo      ³    ³                                     ³
echo   ÚÄÄÅÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄ¿
echo   ³ 1³Hard Disk Dirve        ³ 4.Music          ³  ³
echo   ³ 2³User folder            ³ 5.Pictures       ³  ³
echo   ³ 3³Documents              ³ 6.Videos         ³  ³
echo   ÃÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄ´
echo   ³ 7³Control Panel          ³11.Recorded TV    ³  ³
echo   ³ 8³Administrative Tools   ³12.Downloads      ³  ³
echo   ³ 9³Run...                 ³13.Help ^& Support ³  ³
echo   ³10³Network                ³14.Games          ³  ³
echo   ÀÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÙ
echo.
echo Note : choose all options you want to show in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:1choice
set cho=
set /p cho="Choice : "
   if %cho% equ 1 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Computer" button is now visible !
   goto 1choice
 )
   if %cho% equ 2 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 1 /f >nul 2>nul
   echo "User folder" button is now visible !
   goto 1choice
 )
   if %cho% equ 3 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 1 /f >nul 2>nul
   echo "My documents" button is now visible !
   goto 1choice
 )
   if %cho% equ 4 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 1 /f >nul 2>nul
   echo "My music" button is now visible !
   goto 1choice
 )
   if %cho% equ 5 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 1 /f >nul 2>nul
   echo "My pictures" button is now visible !
   goto 1choice
 )
   if %cho% equ 6 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 1 /f >nul 2>nul
   echo "My videos" button is now visible !
   goto 1choice
 )
   if %cho% equ 7 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Control panel" button is now visible !
   goto 1choice
 )
   if %cho% equ 8 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Administrative tools" button is now visible !
   goto 1choice
 )
   if %cho% equ 9 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Run command" button is now visible !
   goto 1choice
 )
   if %cho% equ 10 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Network" button is now visible !
   goto 1choice
 )
   if %cho% equ 11 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Recorded TV" button is now visible !
   goto 1choice
 )
   if %cho% equ 12 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Downloads" button is now visible !
   goto 1choice
 )
   if %cho% equ 13 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Help" button is now visible !
   goto 1choice
 )
   if %cho% equ 14 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Games" button is now visible !
   goto 1choice
 )
   if /I "%cho%"=="back" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if /I "%cho%"=="exit" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if /I "%cho%"=="retour" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if /I "%cho%"=="quit" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if %cho% gtr 14 (
   echo 
   cls
   echo Invalid choice !
   goto err112
 )
   if %cho% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err112
 )

:hideb
cls
:err113
echo.
echo      ÉÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo      º 02 º   Choose buttons you want to hide   º
echo      º    º                                     º
echo   ÚÍÍÅÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÈÄÄ¿
echo   º 1³Hard Disk Dirve        ³ 4³Music          ³  ³
echo   º 2³User folder            ³ 5³Pictures       ³  ³
echo   º 3³Documents              ³ 6³Videos         ³  ³
echo   ÌÍÍÍÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄ´
echo   º 7³Control Panel          ³11³Recorded TV    ³  ³
echo   º 8³Administrative Tools   ³12³Downloads      ³  ³
echo   º 9³Run...                 ³13³Help ^& Support ³  ³
echo   º10³Network                ³14³Games          ³  ³
echo   ÈÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÙ
echo.
echo Note : choose all options you want to hide in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:2choice
set cho=
set /p cho="Choice : "
   if %cho% equ 1 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Computer" button isn't visible !
   goto 2choice
 )
   if %cho% equ 2 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 0 /f >nul 2>nul
   echo "User folder" button isn't visible !
   goto 2choice
 )
   if %cho% equ 3 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 0 /f >nul 2>nul
   echo "My documents" button isn't visible !
   goto 2choice
 )
   if %cho% equ 4 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 0 /f >nul 2>nul
   echo "My music" button isn't visible !
   goto 2choice
 )
   if %cho% equ 5 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 0 /f >nul 2>nul
   echo "My pictures" button isn't visible !
   goto 2choice
 )
   if %cho% equ 6 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 0 /f >nul 2>nul
   echo "My videos" button isn't visible !
   goto 2choice
 )
   if %cho% equ 7 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Control panel" button isn't visible !
   goto 2choice
 )
   if %cho% equ 8 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Administrative tools" button isn't visible !
   goto 2choice
 )
   if %cho% equ 9 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Run command" button isn't visible !
   goto 2choice
 )
   if %cho% equ 10 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Network" button isn't visible !
   goto 2choice
 )
   if %cho% equ 11 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Recorded TV" button isn't visible !
   goto 2choice
 )
   if %cho% equ 12 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Downloads" button isn't visible !
   goto 2choice
 )
   if %cho% equ 13 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Help" button isn't visible !
   goto 2choice
 )
   if %cho% equ 14 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Games" button isn't visible !
   goto 2choice
 )
   if /I "%cho%"=="back" (
   tskill explorer 2>nul
      if errorlevel 1 "%rtwinpath%\notskill.vbs"
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if /I "%cho%"=="exit" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if /I "%cho%"=="retour" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if /I "%cho%"=="quit" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if %cho% gtr 14 (
   echo 
   cls
   echo Invalid choice !
   goto err113
 )
   if %cho% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err113
 )
:winupdate
mode con cols=71 lines=24
cls
:err117
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Enable Windows Update  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Disable Windows Update  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto m11
   if /I "%crt%"=="exit" goto m11
   if /I "%crt%"=="quit" goto m11
   if /I "%crt%"=="retour" goto m11
   if %crt% equ 1 goto enawinupdate
   if %crt% equ 2 goto diswinupdate
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err117
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err117
 )
:enawinupdate
reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies /v DisableWindowsUpdateAccess /f >nul 2>nul
reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoWindowsUpdate /f >nul 2>nul
echo.
echo Windows update is enabled !
echo.
echo   Note : Please wait a few seconds for changes to take effect.
goto result
:diswinupdate
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies /v DisableWindowsUpdateAccess /t REG_DWORD /d 1 /f >nul 2>nul
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoWindowsUpdate /t REG_DWORD /d 1 /f >nul 2>nul
echo.
echo Windows update is disabled !
echo.
echo   Note : Please wait a few seconds for changes to take effect.
goto result


:: PETIT + DE L'OPTION 11  CONFIGURATION DE L'ACTION DU BOUTTON D'ARRET DU MENU DEMARRER, COLORATION DES DOSSIERS COMPRESSES, CONFIGURATION DU NOMBRE MAXIMAL DE FICHIERS DANS L'EMPLACEMENT RECENT (CLIC DROIT SUR L'ICONE DE L'EXPLORATEUR WINDOWS DANS LA BARRE DES TACHES)

:othersb
cls
mode con cols=71 lines=24
:err114
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 03 ³  Power button action  ³   ³ 04 ³ Color compressed folders ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo                ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo                ³ 05 ³Set maximum files in Jump List³
echo                ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p "crt=3, 4 or 5 : "
   if /I "%crt%"=="back" goto m11
   if /I "%crt%"=="exit" goto m11
   if /I "%crt%"=="quit" goto m11
   if /I "%crt%"=="retour" goto m11
   if %crt% equ 3 goto pwract
   if %crt% equ 4 goto clrcpsdfldr
   if %crt% equ 5 goto stmxflsjmplst
   if %crt% gtr 5 (
   echo 
   cls
   echo Invalid choice !
   goto err114
 )
   if %crt% lss 3 (
   echo 
   cls
   echo Invalid choice !
   goto err114
 )
:pwract
cls
:err115
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º    Power button action    º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Set to power button function of :
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³    Switch User    ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 02 ³      Log off      ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 03 ³   Lock Session    ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 04 ³ Restart Computer  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 05 ³       Sleep       ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 06 ³     Hibernate     ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 07 ³ Shutdown computer ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Note : Enter "quit" as choice to
echo          come back to the main menu.
echo.
set /p cha="Choice : "
echo.
   if %cha% equ 1 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 256 /f >nul 2>nul
   echo Power button's function is now "Switch user".
 )
   if %cha% equ 2 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 1 /f >nul 2>nul
   echo Power button's function is now "Log off".
 )
   if %cha% equ 3 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 512 /f >nul 2>nul
   echo Power button's function is now "Lock session".
 )
   if %cha% equ 4 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 4 /f >nul 2>nul
   echo Power button's function is now "Restart computer".
 )
   if %cha% equ 5 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 16 /f >nul 2>nul
   echo Power button's function is now "Sleep".
 )
   if %cha% equ 6 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 64 /f >nul 2>nul
   echo Power button's function is now "Hibernate".
   echo.
   echo   Note : This will not work if you've disabled
   echo          the hibernate function.
 )
   if %cha% equ 7 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 2 /f >nul 2>nul
   echo Power button's function is now "Shutdown computer".
 )
   if /I "%cha%"=="back" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cha%
   goto result
 )
   if /I "%cha%"=="exit" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cha%
   goto result
 )
   if /I "%cha%"=="retour" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cha%
   goto result
 )
   if /I "%cha%"=="quit" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cha%
   goto result
 )
   if %cha% gtr 7 (
   echo 
   cls
   echo Invalid choice !
   goto err115
 )
   if %cha% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err115
 )
   if exist "%rtwinpath%\NoTskill.vbs" (
   "%rtwinpath%\VBSKillExp.vbs"
   ) else (
   tskill explorer 2>nul
 )
goto result

:clrcpsdfldr
cls
:err116
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Disable compressed folders color  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Enable compressed folders color   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p chz="1 or 2 : "
   if /I "%chz%"=="back" goto m114
   if /I "%chz%"=="exit" goto m114
   if /I "%chz%"=="quit" goto m114
   if /I "%chz%"=="retour" goto m114
set /a chz=%chz%-1
   if %chz% gtr 1 (
   echo 
   cls
   echo Invalid choice !
   goto err116
 )
   if %chz% lss 0 (
   echo 
   cls
   echo Invalid choice !
   goto err116
 )
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v ShowCompColor /t REG_DWORD /d %chz% /f >nul 2>nul

echo.
   if %chz% equ 0 (echo Compressed folder color disabled.) else (echo Compressed folder color enabled.)
set chr=%chz%+1
goto result
 
:stmxflsjmplst
cls
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 05 ³ Set maximum files in jump list ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
:errstmxfljpls
set chr=
set /p chr="Choice (0-9999...) : "
   if /I "%chr%"=="back" goto m114
   if /I "%chr%"=="exit" goto m114
   if /I "%chr%"=="quit" goto m114
   if /I "%chr%"=="retour" goto m114
   if "%chr%"=="" (
   echo.
   echo Choice cannot be empty !
   echo.
   echo.
   goto errstmxfljpls
 )
echo.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_JumpListItems /t REG_DWORD /d %chr% /f >nul 2>nul
   if %chr% equ 1 (echo Jump list can now contain 1 item.)
   if %chr% lss 1 (echo Jump list cannot contain any item.)
   if %chr% gtr 1 (echo Jump list can now contain %chr% items.)
goto result
 
:: OPTION 12  CONFIGURATION DE LA FONCTION AUTORUN DES MEDIAS AMOVIBLES

:m12
cls
:err12
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º   USB Autorun   º   The 31/03/2012 at 21:04
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : USB Autorun Security Tweak
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Enable Autorun    ³  ³ 02 ³   Disable Autrun    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.     
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 1 (
   reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x91 >nul 2>nul
   echo.
   echo Autorun function is now enabled
   echo.
   echo    Note : please pay attention, if the removable media is infected,
   echo           your computer could also be infected
   echo           because of the Autorun function.
 )
   if %crt% equ 2 (
   reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x4 >nul 2>nul
   echo.
   echo Autorun function is now disabled
   echo.
   echo    Note : This could be binding for you,
   echo           but it's safer for your computer
   echo           and its security.
 )
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err12
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err12
 )
goto result


:: OPTION 13  CONFIGURE L'ACCESS A CMD.exe (.bat et .cmd), AU GESTIONNAIRE DES TÂCHES ET AU PANNEAU DE CONFIGURATION.

:m13
cls
:err13
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º  Administrative Tweaks  º   The 22/08/2014 at 21:52
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Administrative Tweaks
echo.
echo     ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo     ³ 01 ³  Configure CMD.exe access  ³
echo     ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Configure Task Manager access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 03 ³  Configure Control Panel access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt="1, 2 or 3 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 1 goto cmdaccess
   if %crt% equ 2 goto taskmgraccess
   if %crt% equ 3 goto cpanelaccess
   if %crt% gtr 3 (
   echo 
   cls
   echo Invalid choice !
   goto err13
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err13
 )
:cmdaccess
cls
:err131
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Enable CMD ^& .bat ^& .cmd files   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Disable CMD ^& .bat ^& .cmd files  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo           ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿       
echo           ³ 03 ³  Disable CMD only  ³
echo           ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt="1, 2 or 3 : "
   if /I "%crt%"=="back" goto m13
   if /I "%crt%"=="exit" goto m13
   if /I "%crt%"=="quit" goto m13
   if /I "%crt%"=="retour" goto m13
   if %crt% gtr 3 (
   echo 
   cls
   echo Invalid choice !
   goto err131
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err131
 )
set /a crt=%crt%-1
reg add HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System /v DisableCMD /t REG_DWORD /d %crt% /f >nul 2>nul
echo.
set /a crt=%crt%+1
   if %crt% equ 1 (
   echo   CMD.exe, .bat ^& .cmd files are enabled !
   goto result
 )
   if %crt% equ 2 (
   echo   CMD.exe, .bat ^& .cmd files are disabled !
   goto result
 )
   if %crt% equ 3 (
   echo   Only CMD.exe is disabled !
   goto result
 )
:taskmgraccess
cls
:err132
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Enable Task Manager access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Disable Task Manager Access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto m13
   if /I "%crt%"=="exit" goto m13
   if /I "%crt%"=="quit" goto m13
   if /I "%crt%"=="retour" goto m13
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err132
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err132
 )
set /a crt=%crt%-1
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d %crt% /f >nul 2>nul
echo.
set /a crt=%crt%+1
   if %crt% equ 1 (
   echo   Task Manager is enabled !
   goto result
 )
   if %crt% equ 2 (
   echo   Task Manager is Disabled !
   goto result
 )
:cpanelaccess
cls
:err133
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Enable Control Panel access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Disable Control Panel access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto m13
   if /I "%crt%"=="exit" goto m13
   if /I "%crt%"=="quit" goto m13
   if /I "%crt%"=="retour" goto m13
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err133
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err133
 )
set /a crt=%crt%-1
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d %crt% /f >nul 2>nul
echo.
set /a crt=%crt%+1
   if %crt% equ 1 (
   echo   Control Panel is enabled !
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   goto result
 )
   if %crt% equ 2 (
   echo   Control Panel is disabled !
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   goto result
 )


:m14
cls
mode con cols=73 lines=24
:err14
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : R. BERTEAUD ^& [BlastKiller]
echo   º   System Informations   º   The 26/08/2014 at 17:31
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : System Informations
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Software Informations  ³   ³ 02 ³  Hardware Informations  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
   if exist "%rtwinpath%\Sysinfo" (
   goto sysexstart
   ) else (
   md "%rtwinpath%\Sysinfo"
 )
:sysexstart
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 1 goto softinfo
   if %crt% equ 2 goto hardinfo
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err14
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err14
 )
:hardinfo
echo.
echo Please wait...
echo.
echo  ÀÄÄÄ^>Loading hardware informations :
echo    ÀÄÄÄ^>Loading motherboard informations
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\ACPI ^| findstr ACPI\ 2^>nul') do call :mb %%a
goto nextmb
:mb
set mbvar=%1
   for /f "delims=" %%b in ('reg query %mbvar% ^| findstr %mbvar%\ ^| findstr /v /e _ 2^>nul') do set mbvar1=%%b
:nextmb
   for /f "delims=" %%c in ('reg query %mbvar1% ^| findstr %mbvar1%\ 2^>nul') do set mb=%%c
set mbsys=%mb:~38,100%
echo Motherboard : %mbsys% >"%rtwinpath%\Sysinfo\motinf.sys"
set mb=%mb:~38,47%
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System /v SystemBiosVersion ^| findstr "Bios" 2^>nul') do set bios="%%a"
echo    ÀÄÄÄ^>Loading bios informations
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System\BIOS /v BIOSVersion ^| findstr "BIOSV" 2^>nul') do set biosver="%%a"
set biossys=%bios:~42,100%
set biossys=%biossys:"=%
set biosversys=%biosver:~30,100%
set biosversys=%biosversys:"=%
echo BIOS : %biossys% -- %biosversys% >"%rtwinpath%\Sysinfo\bioinf.sys"
set bios=%bios:~42,47%
set bios=%bios:"=%
set biosver=%biosver:~30,47%
set biosver=%biosver:"=%
echo    ÀÄÄÄ^>Loading CPU informations
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0 /v ProcessorNameString ^| findstr "NameString" 2^>nul') do set proc="%%a"
set procsys=%proc:~38,100%
set procsys=%procsys:"=%
echo Processor : %procsys% >"%rtwinpath%\Sysinfo\proinf.sys"
set proc=%proc:~38,47%
set proc=%proc:"=%
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0 /v Identifier ^| findstr "Identifier" 2^>nul') do set procid="%%a"
set procidsys=%procid:~29,100%
set procidsys=%procidsys:"=%
echo Processor Identifier : %procidsys% >"%rtwinpath%\Sysinfo\pidinf.sys"
set procid=%procid:~29,47%
set procid=%procid:"=%
echo    ÀÄÄÄ^>Loading frequency informations
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0 /v ~MHz ^| findstr "MHz"') do set cpu="%%a"
set cpu=%cpu:~25,10%
set cpu=%cpu:"=%
set cpu=%cpu:x=%
set cpu1=%cpu:~-1%
set cpu2=%cpu:~-2%
set cpu2=%cpu2:~0,1%
set cpu3=%cpu:~-3%
set cpu3=%cpu3:~0,1%
   if %cpu1%==a set cpu1=10
   if %cpu1%==b set cpu1=11
   if %cpu1%==c set cpu1=12
   if %cpu1%==d set cpu1=13
   if %cpu1%==e set cpu1=14
   if %cpu1%==f set cpu1=15
   if %cpu2%==a set cpu2=10
   if %cpu2%==b set cpu2=11
   if %cpu2%==c set cpu2=12
   if %cpu2%==d set cpu2=13
   if %cpu2%==e set cpu2=14
   if %cpu2%==f set cpu2=15
   if %cpu3%==a set cpu3=10
   if %cpu3%==b set cpu3=11
   if %cpu3%==c set cpu3=12
   if %cpu3%==d set cpu3=13
   if %cpu3%==e set cpu3=14
   if %cpu3%==f set cpu3=15
set /a cpu2=%cpu2%*16
set /a cpu3=%cpu3%*16*16
set /a cpu=%cpu1%+%cpu2%+%cpu3%
set mhz=MHz
   if %number_of_processors% gtr 1 (
   set processor_s%=processors
   ) else (
   set processor_s=processor
 )
   if not defined number_of_processors (
   set number_of_processors=
   set processor_s=
 )
echo Architecture ^& Frequency %number_of_processors% %processor_s% (%processor_architecture%) %cpu% %mhz% >"%rtwinpath%\Sysinfo\cpuinf.sys"
echo    ÀÄÄÄ^>Loading graphic card informations
   for /f "delims=" %%a in ('reg query HKLM\SYSTEM\CurrentControlSet\Control\Video /s ^| findstr /e "\0000\Settings" 2^>nul') do call :gc "%%a"
goto nextgc
:gc
set gcvar=%1
reg query %gcvar% /v Mirrordriver >nul 2>nul
set gc=%gcvar%
:nextgc
   for /f "delims=" %%a in ('reg query %gc% /v "Device Description" ^| findstr "Device" 2^>nul') do set gc="%%a"
set gcsys=%gc:~37,100%
set gcsys=%gcsys:"=%
echo Graphic card : %gcsys% >"%rtwinpath%\Sysinfo\gcsinf.sys"
set gc=%gc:~37,47%
set gc=%gc:"=%
echo    ÀÄÄÄ^>Loading hard drive informations
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DEVICEMAP\Scsi /s ^| findstr "Logical" 2^>nul') do call :dd "%%a"
:dd
set ddvar=%1
   for /f "delims=" %%b in ('reg query %ddvar% /v Identifier ^| findstr "Identifier" 2^>nul') do set dd=%%b
set ddsys=%dd:~28,100%
set ddsys=%ddsys:"=%
echo Hard Disk Drive (or Solid State Drive) : %ddsys% >"%rtwinpath%\Sysinfo\hsdinf.sys"
set dd=%dd:~28,47%
set dd=%dd:"=%
:manufact
echo    ÀÄÄÄ^>Loading product name
   for /f "delims=" %%a in ('reg query HKLM\SYSTEM\CurrentControlSet\Control\SystemInformation ^| findstr "SystemManufacturer" 2^>nul') do set mf="%%a"
:productname
   for /f "delims=" %%a in ('reg query HKLM\SYSTEM\CurrentControlSet\Control\SystemInformation ^| findstr "SystemProductName" 2^>nul') do set pn="%%a"
set pnsys=%pn:~36,100%
set pnsys=%pnsys:"=%
set mfsys=%mf:~37,100%
set mfsys=%mfsys:"=%
echo Computer informations : %mfsys% %pnsys% >"%rtwinpath%\Sysinfo\cominf.sys"
set pn=%pn:~36,47%
set pn=%pn:"=%
set mf=%mf:~37,47%
set mf=%mf:"=%
set dblt=ÄÄ
echo    ÀÄÄÄ^>Loading RAM informations
   if not exist "%rtwinpath%\All System Informations.txt" (
      for /f "delims=" %%a in ('systeminfo 2^>nul ^| find /I "total"') do set totalram="%%a"
    ) else (
      for /f "delims=" %%a in ('type "%rtwinpath%\All System Informations.txt" ^| find /I "total"') do set totalram="%%a"
 )
ping 127.0.0.1 /n 2 >nul 2>nul
set totalram=%totalram:~45,47%
set totalram=%totalram:"=%
set totalram=%totalram:ÿ=%
echo Random Access Memory : %totalram% >"%rtwinpath%\Sysinfo\raminf.sys"
   if exist "%rtwinpath%\Sysinfo\allinf.sys" (
   echo. >>"%rtwinpath%\Sysinfo\allinf.sys"
   ) else (
   echo. >"%rtwinpath%\Sysinfo\allinf.sys"
 )
echo   ----------------------- >>"%rtwinpath%\Sysinfo\allinf.sys"
echo    Hardware Informations >>"%rtwinpath%\Sysinfo\allinf.sys"
echo   ----------------------- >>"%rtwinpath%\Sysinfo\allinf.sys"
echo. >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Computer informations : %mfsys% %pnsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Motherboard : %mbsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo BIOS : %biossys% -- %biosversys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Processor : %procsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Architecture ^& Frequency : %number_of_processors% %processor_s% (%processor_architecture%) %cpu% %mhz% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Processor Identifier : %procidsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Random Access Memory : %totalram% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Graphic card : %gcsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Hard Disk Drive (or Solid State Drive) : %ddsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo. >>"%rtwinpath%\Sysinfo\allinf.sys"
cls
mode con cols=74 lines=32
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : [BlastKiller] ^& R. BERTEAUD
echo   º  Hardware Informations  º   The 26/08/2014 at 17:31
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : System Informations
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³  Hardware type  ³ Hardware information                           ³
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
   if "%pn%"=="~36,47" set pn=...
   if "%mf%"=="~37,47" set mf=Unknown
echo   ³  Computer info  ³ %mf% %pn%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%mb%"=="~38,47" set mb=Unknown
echo   ³   Motherboard   ³ %mb%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%bios%"=="~42,47" set bios=Unknown
   if "%biosver%"=="~30,47" set biosver=
   if "%biosver%"=="~30,47" set dblt=
echo   ³      BIOS       ³ %bios% %dblt% %biosver%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%proc%"=="~38,47" set proc=Unknown
echo   ³    Processor    ³ %proc%
   if "%cpu%"=="~25,10" (
   set cpu=Unknown
   set mhz=
 )
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
echo   ³     A ^& F *     ³ %number_of_processors% %processor_s% (%processor_architecture%) %cpu% %mhz%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%procid%"=="~29,47" set procid=Unknown
echo   ³  CPU Identifier ³ %procid%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%totalram%"=="~45,47" set totalram=Unknown
echo   ³  Total RAM size ³ %totalram%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%gc%"=="~37,47" set gc=Standard VGA Graphics Adapter
echo   ³   Graphic card  ³ %gc%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%dd%"=="~28,47" set dd=Unknown
echo   ³   Disk drive    ³ %dd%
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo  * A ^& F = Architecture ^& Frequency
echo.
   if not exist "%rtwinpath%\All System Informations.txt" (
   echo Please, wait...
   systeminfo >"%rtwinpath%\All System Informations.txt"
   goto end14
 ) else (goto end14)
:softinfo
echo Please wait...
echo.
echo  ÀÄÄÄ^>Loading software informations :
echo    ÀÄÄÄ^>Loading Operating System informations
:win
   for /f "delims=" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ProductName ^| findstr "Windows" 2^>nul') do set win="%%a"
set winsys=%win:~30,100%
set winsys=%winsys:"=%
reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node" >nul 2>nul
   if errorlevel 1 (
   set nbbits=32
   ) else (
   set nbbits=64
 )
echo Operating system : %winsys% %nbbits% bits >"%rtwinpath%\Sysinfo\wininf.sys"
set win=%win:~30,47%
set win=%win:"=%
echo    ÀÄÄÄ^>Loading Service Pack informations
:csd
   for /f "delims=" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CSDVersion ^| findstr "Service Pack" 2^>nul') do set csd="%%a"
set csdsys=%csd:~29,100%
set csdsys=%csdsys:"=%
echo %winsys% Service Pack : %csdsys% >"%rtwinpath%\Sysinfo\csdinf.sys"
set csd=%csd:~29,47%
set csd=%csd:"=%
echo    ÀÄÄÄ^>Loading OS Version informations
:ver
   for /f "delims=" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion 2^>nul') do set ver="%%a"
set versys=%ver:~33,100%
set versys=%versys:"=%
echo %winsys% Version : %versys% >"%rtwinpath%\Sysinfo\verinf.sys"
set ver=%ver:~33,47%
set ver=%ver:"=%
echo    ÀÄÄÄ^>Loading OS build informations
:cbn
   for /f "delims=" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentBuild 2^>nul') do set cbn="%%a"
set cbnsys=%cbn:~31,100%
set cbnsys=%cbnsys:"=%
echo %winsys% Build : %cbnsys% >"%rtwinpath%\Sysinfo\bldinf.sys"
set cbn=%cbn:~31,47%
set cbn=%cbn:"=%
echo    ÀÄÄÄ^>Loading type of system informations
   if not exist "%rtwinpath%\All System Informations.txt" (
      for /f "delims=" %%a in ('systeminfo 2^>nul ^| find /I "-based"') do set archbsdpc="%%a"
    ) else (
      for /f "delims=" %%a in ('type "%rtwinpath%\All System Informations.txt" ^| find /I "-based"') do set archbsdpc="%%a"
 )
set archbsdpc=%archbsdpc:~45,3%
   if "%archbsdpc%"=="x64" (
   set archbits=64 bits
   ) else (
   set archbits=32 bits
 )
echo Type of system : %archbsdpc% ^(%archbits%^) >"%rtwinpath%\Sysinfo\tosinf.sys"
echo    ÀÄÄÄ^>Loading boot mode informations
   if not defined safeboot_option (
   set bootmode=Normal
   ) else (
   set bootmode=Safeboot
 )
echo Boot Mode : %bootmode% >"%rtwinpath%\Sysinfo\bnsinf.sys"
   if exist "%rtwinpath%\Sysinfo\allinf.sys" (
   echo. >>"%rtwinpath%\Sysinfo\allinf.sys"
   ) else (
   echo. >"%rtwinpath%\Sysinfo\allinf.sys"
 )
echo   ----------------------- >>"%rtwinpath%\Sysinfo\allinf.sys"
echo    Software Informations >>"%rtwinpath%\Sysinfo\allinf.sys"
echo   ----------------------- >>"%rtwinpath%\Sysinfo\allinf.sys"
echo. >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Operating system : %winsys% %nbbits% bits >>"%rtwinpath%\Sysinfo\allinf.sys"
echo %winsys% Service Pack : %csdsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo %winsys% Version : %versys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo %winsys% Build : %cbnsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Type of system : %archbsdpc% ^(%archbits%^) >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Boot Mode : %bootmode% >>"%rtwinpath%\Sysinfo\allinf.sys"
ping 127.0.0.1 /n 2 >nul 2>nul
cls
mode con cols=71 lines=25
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º  Software Informations  º   The 28/08/2014 at 12:23
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Software Informations
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³  Software type   ³ Software information                        ³
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
   if "%win%"=="~30,47" set win=Unknown
echo   ³ Operating System ³ %win% %nbbits% bits
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%csd%"=="~29,47" set csd=Unknown
echo   ³   Service Pack   ³ %csd%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%ver%"=="~33,47" set ver=Unknown
echo   ³     Version      ³ %ver%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%cbn%"=="~31,47" set cbn=Unknown
echo   ³      Build       ³ %cbn%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
echo   ³  Type of system  ³ %archbsdpc% (%archbits%)
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
echo   ³     Boot Mode    ³ %bootmode%
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
echo.
   if not exist "%rtwinpath%\All System Informations.txt" (
   echo Please, wait...
   systeminfo >"%rtwinpath%\All System Informations.txt"
 )

:end14
echo.
echo Press any key...
pause >nul
mode con cols=71 lines=24
goto menu


:: OPTION 15  AIDE

:m15
mode con cols=135 lines=32
color f0
cls
echo (en) Help Notes : Please run Registry Tool as Administrator.
echo.
echo Registry backups : It is highly preferable to save the entire registry before starting Registry Tool.
echo Note that this backup is performed automatically by default at the first startup of the program.
echo The files are stored in the directory "%rtwinpath%\RegBackUp".
echo If there is a problem with the automatic backup, please use a specially designed program for this (ERUNT for example).
echo We are not responsible of any eventual damage caused by Registry Tool.
echo.
echo.
echo (fr) Notes d'aide : Veuillez executer Registry Tool en tant qu'administrateur.
echo.
echo Sauvegardes du registre : il est fortement recommand‚ de sauvegarder toute la base de registre avant de d‚marrer Registry Tool.
echo Notez que cette sauvegarde est effectu‚e automatiquement par d‚faut au premier d‚marrage du programme.
echo Les fichiers sont stock‚s dans le r‚pertoire "%rtwinpath%\RegBackUp".
echo En cas de problŠme avec la sauvegarde, veuillez utiliser un programme sp‚cialement conÞu pour cela (ERUNT par exemple).
echo Nous ne seront en aucun cas tenus responsables des eventuels d‚gƒts que pourraient vous causer Registry Tool.
echo.
echo.
echo (es) Ayuda : Por favor, ejecute Registry Tool como administrador.
echo.
echo Las copias de seguridad del registro : Es altamente preferible guardar todo el registro antes de iniciar Registry Tool.
echo Tenga en cuenta que esta copia de seguridad se realiza automaticamente de manera predeterminada en el primer inicio del programa.
echo Los archivos se guardan en el directorio "%rtwinpath%\RegBackUp".
echo Si un problema ocurre con la copia de seguridad, por favor utiliza un programa especialmente dise¤ado para este (por ejemplo ERUNT).
echo No somos responsables de de cualquier da¤o eventual provocado por Registry Tool.
echo.
echo.
echo For questions, comments, or bug reports, please feel free
echo to contact us at the following address : raf.webmaster@octavener.org
echo.
echo Press any key...
pause >nul
color 0f
mode con cols=71 lines=24
goto menu

:: ConfirmPassword -- By AlonsO

::'****************************************************************************************************
:: Password_Entry_Setup
::'****************************************************************************************************
:PasswordEntry_Start
Set MyVBSFile=%tmp%\%~n0.vbs
CALL:PasswordEntry_ & CALL:PasswordEntry_2
if "%MyPassword%"=="%MyPassword2%" ( GOTO:EOF ) else (
CALL:Error_PE & Goto:PasswordEntry_Start
)
:Error_PE
Set MyVBSFile=%tmp%\%~n0.vbs
echo. x = msgBox("Error: Passwords do not match !", 0,"PasswordEntry -- RegistryTool" ) > "%MyVBSFile%"
start "%MyVBSFile%" & @Del /s "%MyVBSFile%"
GOTO:EOF
:Advert_PE
Set MyVBSFile=%tmp%\%~n0.vbs
echo. x = msgBox("This session has a password, enter your password to continue the process.", 16+4096+vbokonly, "PasswordEntry -- RegistryTool" ) > "%MyVBSFile%"
start /wait "%MyVBSFile%" & @Del /s "%MyVBSFile%"
GOTO:EOF
::'****************************************************************************************************
:: Demande premier password
::'****************************************************************************************************
:PasswordEntry_
Set MyVBSFile=%tmp%\%~n0.vbs
Set MyHTAFile=%tmp%\%~n0.hta
Call :CreateMyVBS
Cscript.exe //NOLOGO "%MyVBSFile%"
mshta.exe "%MyHTAFile%"
Del "%MyVBSFile%" & Del "%MyHTAFile%"
for /f "tokens=*" %%i in (%tmp%\userIn) do set "Mypassword=%%i"
Del %tmp%\userIn
goto:eof
:#Start
<html>
<head>
<title>%name_mod%</title>
<hta:application id="htaid"
applicationName="Password"
border="thin"
icon="wlrmdr.exe"
borderStyle="normal"
caption="yes"
contextMenu="no"
maximizeButton="no"
minimizeButton="yes"
navigable="yes"
showInTaskbar="yes"
singleInstance="yes"
sysmenu="yes"
SCROLL="NO"
SHOWINTASKBAR="Yes"   
SELECTION="no"
MINIMIZEBUTTON="no"
>
</head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<BODY TOPMARGIN="1" LEFTMARGIN="1"><CENTER><DIV><SPAN ID="ONSCR"></SPAN></DIV></CENTER></BODY>
<script language="vbscript">
'---------------------------------------------------------------------------------------
Sub Window_OnLoad
    CenterWindow 250,150
    Call PasswordForm()
    Call TextFocus()
end sub
'---------------------------------------------------------------------------------------
Sub CenterWindow(x,y)
    Dim iLeft,itop
    window.resizeTo x,y
    iLeft = window.screen.availWidth/2 - x/2
    itop = window.screen.availHeight/2 - y/2
    window.moveTo ileft,itop
End Sub
'----------------------------------------------------------------------------------------
Sub SaveBatch()
    set fs=CreateObject("Scripting.FileSystemObject")
    strFile=fs.GetAbsolutePathName(fs.BuildPath(fs.GetSpecialFolder(2),"UserIn"))
    set ts=fs.OpenTextFile(strFile,2,True)
    If PasswordArea.value <> "" Then
        ts.WriteLine PasswordArea.value
        ts.Close
        self.Close 'To close this HTA after saving the password as a variable into UserIn.bat
    else
        Msgbox "The password entry is empty ! "& Vbcrlf & "Please type again your passowrd",VbExclamation,"The password entry"
        Location.reload(true) 'To reload this HTA again
    end if
End Sub
'----------------------------------------------------------------------------------------
Sub PasswordForm()
    Self.document.title = "PasswordEntry -- RegistryTool"
    Self.document.bgColor = "black"
    ONSCR.InnerHTML="<center><FONT COLOR=""#FFFFFF"" SIZE=""+1"" FACE=""VERDANA,ARIAL,HELVETICA,SANS-SERIF"">Enter your password</FONT<br>"_
    &"<input type=""password"" name=""PasswordArea"" size=""20"" onKeyUp=""TextFocus""><P"_
    &"<input type=""Submit"" STYLE=""HEIGHT:25;WIDTH:110"" value=""OK"" onClick=""SaveBatch"">"
END Sub
'----------------------------------------------------------------------------------------
Sub TextFocus
    PasswordArea.Focus
End Sub
'----------------------------------------------------------------------------------------
</script>
</body>
</html>
:#End
:CreateMyVBS
(
echo. Set fso = CreateObject^("Scripting.FileSystemObject"^)
echo. Set f=fso.opentextfile^("%~f0",1^)
echo. a=f.readall
echo. Set r=new regexp
echo. r.pattern = "(?:^|(?:\r\n))(?::#Start\r\n)([\s\S]*?)(?:\r\n)(?::#End)"
echo. Set Matches = r.Execute^(a^)
echo. If Matches.Count ^> 0 Then Data = Matches^(0^).SubMatches^(0^)
echo. WriteFileText "%MyHTAFile%",Data
echo. f.close
echo.
echo. Function WriteFileText^(sFile,Data^)
echo.     Dim objFSO,oTS,sText
echo.     Set objFSO = CreateObject^("Scripting.FileSystemObject"^)
echo.     Set oTS = objFSO.CreateTextFile^(sFile,2^)
echo.     oTS.WriteLine Data
echo.     oTS.close
echo.     set oTS = nothing
echo.     Set objFSO = nothing
echo. End Function
) > "%MyVBSFile%"
goto:eof
::'****************************************************************************************************
:: Confirmaion password
::'****************************************************************************************************
:PasswordEntry_2
Set MyVBSFile=%tmp%\%~n0.vbs
Set MyHTAFile=%tmp%\%~n0.hta
Call :CreateMyVBS_2
Cscript.exe //NOLOGO "%MyVBSFile%"
mshta.exe "%MyHTAFile%"
Del "%MyVBSFile%" & Del "%MyHTAFile%"
for /f "tokens=*" %%i in (%tmp%\userIn) do set "MyPassword2=%%i"
Del %tmp%\userIn
goto:eof
:#Start_2
<html>
<head>
<title>%name_mod%</title>
<hta:application id="htaid"
applicationName="Password"
border="thin"
icon="wlrmdr.exe"
borderStyle="normal"
caption="yes"
contextMenu="no"
maximizeButton="no"
minimizeButton="yes"
navigable="yes"
showInTaskbar="yes"
singleInstance="yes"
sysmenu="yes"
SCROLL="NO"
SHOWINTASKBAR="Yes"   
SELECTION="no"
MINIMIZEBUTTON="no"
>
</head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<BODY TOPMARGIN="1" LEFTMARGIN="1"><CENTER><DIV><SPAN ID="ONSCR"></SPAN></DIV></CENTER></BODY>
<script language="vbscript">
'---------------------------------------------------------------------------------------
Sub Window_OnLoad
    CenterWindow 250,150
    Call PasswordForm()
    Call TextFocus()
end sub
'---------------------------------------------------------------------------------------
Sub CenterWindow(x,y)
    Dim iLeft,itop
    window.resizeTo x,y
    iLeft = window.screen.availWidth/2 - x/2
    itop = window.screen.availHeight/2 - y/2
    window.moveTo ileft,itop
End Sub
'----------------------------------------------------------------------------------------
Sub SaveBatch()
    set fs=CreateObject("Scripting.FileSystemObject")
    strFile=fs.GetAbsolutePathName(fs.BuildPath(fs.GetSpecialFolder(2),"UserIn"))
    set ts=fs.OpenTextFile(strFile,2,True)
    If PasswordArea.value <> "" Then
        ts.WriteLine PasswordArea.value
        ts.Close
        self.Close 'To close this HTA after saving the password as a variable into UserIn.bat
    else
        Msgbox "The password entry is empty ! "& Vbcrlf & "Please type again your passowrd",VbExclamation,"The password entry"
        Location.reload(true) 'To reload this HTA again
    end if
End Sub
'----------------------------------------------------------------------------------------
Sub PasswordForm()
    Self.document.title = "PasswordEntry -- RegistryTool"
    Self.document.bgColor = "black"
    ONSCR.InnerHTML="<center><FONT COLOR=""#FFFFFF"" SIZE=""+1"" FACE=""VERDANA,ARIAL,HELVETICA,SANS-SERIF"">Reenter your password</FONT<br>"_
    &"<input type=""password"" name=""PasswordArea"" size=""20"" onKeyUp=""TextFocus""><P"_
    &"<input type=""Submit"" STYLE=""HEIGHT:25;WIDTH:110"" value=""OK"" onClick=""SaveBatch"">"
END Sub
'----------------------------------------------------------------------------------------
Sub TextFocus
    PasswordArea.Focus
End Sub
'----------------------------------------------------------------------------------------
</script>
</body>
</html>
:#End_2
:CreateMyVBS_2
(
echo. Set fso = CreateObject^("Scripting.FileSystemObject"^)
echo. Set f=fso.opentextfile^("%~f0",1^)
echo. a=f.readall
echo. Set r=new regexp
echo. r.pattern = "(?:^|(?:\r\n))(?::#Start_2\r\n)([\s\S]*?)(?:\r\n)(?::#End_2)"
echo. Set Matches = r.Execute^(a^)
echo. If Matches.Count ^> 0 Then Data = Matches^(0^).SubMatches^(0^)
echo. WriteFileText "%MyHTAFile%",Data
echo. f.close
echo.
echo. Function WriteFileText^(sFile,Data^)
echo.     Dim objFSO,oTS,sText
echo.     Set objFSO = CreateObject^("Scripting.FileSystemObject"^)
echo.     Set oTS = objFSO.CreateTextFile^(sFile,2^)
echo.     oTS.WriteLine Data
echo.     oTS.close
echo.     set oTS = nothing
echo.     Set objFSO = nothing
echo. End Function
) > "%MyVBSFile%"
goto:eof
::'****************************************************************************************************
:: PasswordEntry By Hackoo -- Edited By AlonsO                 © Copyright 2014 - All right reserved ©
::'****************************************************************************************************

:: RESULTAT DE TOUTES LES COMMANDES PRECEDENTES

:result
echo.
echo.
echo   Well considered "%crt%" choice !
echo.
echo Press any key...
pause >nul
goto menu

:: SORTIE DU SCRIPT AVEC LE LOGO DE REGISTRY TOOL

:classexit
mode con cols=84 lines=69
cls
echo.
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                     '.               ++++++++.               '`                   
echo                    '''.            :++++++++++'.            '''`                   
echo                   '''''.        ;+++++++++++++++++,        '''''`                 
echo                  '''''''.    `++++++++++++++++++++++;     '''''''`                 
echo                 '''''''''.  ++++++++++++++++++++++++++,  '''''''''`               
echo                ''''''''''':+++++++++++++++++++++++++++++'''''''''''`               
echo                .'''''''''++++++++++++++++++++++++++++++++''''''''''               
echo                 .'''''''++++++++++++++++++++++++++++++++++''''''''                 
echo                  .'''''+++++++++++++@#:.` `.;@@#+++++++++++''''''                 
echo                   .'''+++++++++++#'            .##++++++++++''''                   
echo                    .'++++++++++#'                 ##+++++++++''                   
echo                     :+++++++++@                    ,@+++++++++                     
echo                     ++++++++++                       @++++++++'                   
echo                    +++++++++'                         @++++++++`                   
echo                   `+++++++++                           @++++++++                   
echo                   ++++++++@                            `@+++++++.                 
echo                  `++++++++  Registry Tool will now exit ;#+++++++                 
echo                  '+++++++:                               @+++++++                 
echo                  ++++++++                                ,#++++++;                 
echo                  +++++++@###############################, @+++++++                 
echo                 :++++++,`:@@@@@@@@@@@#.```#+@@@@@@@@@@@@:  +++++++                 
echo                 +++++++  ,@@@@@@@@@@@@@:  '+@@@#@@#@@@@@:  '++++++.               
echo         +++++++++++++++  ,@@@@@@@@@@@@@@  '++##@@@@@@@@@:  `++++++++++++++`       
echo         +++++++++++++++  ,@@@@+++++#@@@@  `.,,,+@@@+,,,,`   ++++++++++++++`       
echo         ++++++++++++++;  ,@#@#      ##@@       ;@@#'        ++++++++++++++`       
echo         ++++++++++++++;  ,@@@#  ;;;'@@@@       ;@#@'        ++++++++++++++`       
echo         ++++++++++++++.  ,#@## @@@@#@@@#       '@@@+        ++++++++++++++`       
echo         ++++++++++++++;  ,++#' :##@+@@#        ;#@+;        ++++++++++++++`       
echo         ++++++++++++++;  ,####  ,#+#@.         ;##@;        ++++++++++++++`       
echo         +++++++++++++++   ;###   `++##,        `+++'       `++++++++++++++`       
echo         ::::::::+++++++,   ;@+    `#+#+'         ;@'       :++++++;:::::::`       
echo                 #######@    ,;      '@@##+++++++++@@+++++++#++++++                 
echo                 ;#######`            `````````````````````@+++++++                 
echo                  ########                                 @+++++++                 
echo                  #######@     Thanks for having used     ##++++++,                 
echo                  '########        this software !       `@+++++++                 
echo                   ########.                             @#++++++'                 
echo                   +#######@                            '#+++++++                   
echo                    ########@                          :@++++++++                   
echo                    '########@                        :@++++++++                   
echo                     #########@                      '@++++++++:                   
echo                     ##########@:                   @@+++++++++.                   
echo                    #############@.               '@#+++++++++''.                   
echo                   ################@;          .#@#++++++++++''''.                 
echo                  ###################@@@#+++@@@#++++++++++++''''''.                 
echo                 #####################+++++++++++++++++++++''''''''.               
echo                +#####################++++++++++++++++++++''''''''''.               
echo               ,###########`##########++++++++++++++++++::''''''''''               
echo               +##########`  ,########+++++++++++++++++   :''''''''                 
echo               ##########`     :######+++++++++++++++      :''''''                 
echo              `#########`         '###++++++++++++,         :''''                   
echo              ;########`             .++++++++;`             :''                   
echo              #######+`               ++++++++:               :                     
echo              #+:`                    ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ::::::::,   
ping localhost /n 6 >nul
exit

Et voici les exécutables de Registry Tool 1.5.2 pour 64 et 32 bits :
Registry Tool 1.5.2 (x64).exe
Registry Tool 1.5.2 (x86).exe

Et encore merci à AlonsO7798, Hackoo, BlastKiller, Laddy, Batch_Man, Omen999, ytrezAn et à tous ceux qui utilisent notre programme Wink




______________________________________________________
Cordialement, </Troud>.
Répondre en citant
Message Regrouper ces connaissances 
Petite update pour Registry Tool qui corrige un bug dans l'option 3 avec le fichier exécutable, un bug de l'interface graphique dans l'option 11, et une légère amélioration de l'interface, toujours dans l'option 11 :
Code:

@echo off
title Registry Tool V1.5.5
color 0f
mode con cols=71 lines=24

::DETECTION DE L'EXECUTION EN TANT QU'ADMINISTRATEUR
color 0c
mode con cols=71 lines=24

net session >nul 2>nul
   if errorlevel 1 (
      for /l %%i in (0,1,2) do (
      echo 
      ping 127.0.0.1 /n 1 >nul 2>nul
      cls
    )
   echo.
   echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
   echo   º  Not Administrator  º
   echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
   echo.
   echo   You must run Registry Tool as Administrator.
   echo   ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
   echo.
   echo   If you see this error message running Registry Tool
   echo   as Administrator, contact a developer.
   echo.
   echo Press any key...
   pause >nul
   exit /B
 ) else (goto wdrtdirectory)


::CREATION DU REPERTOIRE WINDIR\REGISTRYTOOL
:wdrtdirectory
   if exist "%windir%\RegistryTool" (
   goto setvarrt
   ) else (
   md "%windir%\RegistryTool"
 )

::DEFINITION DE VARIABLES
:setvarrt
set rtwinpath=%windir%\RegistryTool


::SUPPRESSION DE SYSINFO\*.SYS
   if exist "%rtwinpath%\Sysinfo\*.sys" del "%rtwinpath%\Sysinfo" /f /s /q >nul 2>nul

::CREATION DE VBSKILLEXP
   if exist "%rtwinpath%\VBSKillExp.vbs" goto hackoonovirvbs
echo Option Explicit >"%rtwinpath%\VBSKillExp.vbs"
echo Dim objWMISvc, objProc, colProc >>"%rtwinpath%\VBSKillExp.vbs"
echo Dim Comp, ProssKill >>"%rtwinpath%\VBSKillExp.vbs"
echo Comp = "." >>"%rtwinpath%\VBSKillExp.vbs"
echo ProssKill = "'explorer.exe'" >>"%rtwinpath%\VBSKillExp.vbs"
echo Set objWMISvc = GetObject("winmgmts:" _ >>"%rtwinpath%\VBSKillExp.vbs"
echo ^& "{impersonationLevel=impersonate}!\\" _ >>"%rtwinpath%\VBSKillExp.vbs"
echo ^& Comp ^& "\root\cimv2") >>"%rtwinpath%\VBSKillExp.vbs"
echo Set colProc = objWMISvc.ExecQuery _ >>"%rtwinpath%\VBSKillExp.vbs"
echo ("Select * from Win32_Process Where Name = " ^& ProssKill ) >>"%rtwinpath%\VBSKillExp.vbs"
echo For Each objProc in colProc >>"%rtwinpath%\VBSKillExp.vbs"
echo objProc.Terminate() >>"%rtwinpath%\VBSKillExp.vbs"
echo Next >>"%rtwinpath%\VBSKillExp.vbs"
echo WScript.Quit >>"%rtwinpath%\VBSKillExp.vbs"


::CREATION DE HACKOONOVIRVBS
:hackoonovirvbs
if exist "%rtwinpath%\HScanVBSFiles.vbs" goto bffvbs
echo    ÀÄÄÄ^>Creation of HScanVBSFiles
echo. >"%rtwinpath%\HScanVBSFiles.vbs"
echo Option Explicit >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '************************************************************************************************************************ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'VBScript pour arrêter et supprimer les traces du Virus de type VBS dans la BDR crée le 19/05/2014 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'Mise à jour le 20/05/2014 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '=^> Ajout de la liste des processus et les tâches planifiés et aussi les valeurs du Winlogon de la BDR dans le LogFile >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'Mise à jour le 23/05/2014 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '=^> Ajout de la WaitingBar en HTA et création du dossier Quarantaine pour y déplacer dans ce dernier les fichiers suspects >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '************************************************************************************************************************ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim Titre,TitreWaitBar,Copyright,Cle1,Cle2,Cle3,Cle4,oExec,i,MsgAttente >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim ws,fso,Temp,MyDoc,bf,DossierRapport,Source,NomFichierLog,OutPut,Quarantaine >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Titre = " Traces du Virus de type VBS " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Copyright = "© Hackoo © 2014" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Cle1 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Cle2 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Cle3 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Cle4 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunServices" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set ws = CreateObject("wscript.Shell") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set fso = CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Temp = ws.ExpandEnvironmentStrings("%Temp%") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MyDoc = ws.SpecialFolders("MyDocuments")'Dossier Mes Documents >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set bf = fso.GetFolder(MyDoc) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo DossierRapport  = "Rapport_VBSRegCleaner" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Source = MyDoc ^& "\" ^& DossierRapport >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Quarantaine = "Quarantaine" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call CreateFolder(bf,DossierRapport) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set bf = fso.GetFolder(Source) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call CreateFolder(bf,Quarantaine) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomFichierLog = "RapportScanVBSRegCleaner_"^& Day(Now) ^& "_" ^& Month(Now) ^& "_" ^& Year(Now) ^& "-" ^& Hour(Now) ^& "-" ^& Minute(Now) ^&".txt" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set OutPut = fso.CreateTextFile(Source ^& "\" ^& NomFichierLog,2,-1) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo TitreWaitBar = Titre ^& Copyright >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MsgAttente = "Veuillez patienter ... Le Scan du Virus de type VBS est en cours ... " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call CreateProgressBar(TitreWaitBar,MsgAttente) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call LancerProgressBar() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call Pause(1) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call ListProcessCmdLine() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call ListTachesPlanifies() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call WinLogon() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call FermerProgressBar() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub CreateFolder(bf,name) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set fso  = CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo If Not FSO.FolderExists(bf ^& "\" ^& name) Then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo bf.subFolders.Add(name) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Else : Exit Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End If >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Function MoveFile2Quarantaine(sFile,Folder) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim  FSO >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set FSO = CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo If FSO.FolderExists(Folder) Then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo FSO.GetFile(sFile).Move Folder >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End If >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Function Search(Cle,Processus) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim Tab,NomVirusBDR >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Tab = Split(Processus,"\") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomVirusBDR = Tab(UBound(Tab)) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomVirusBDR = Replace(NomVirusBDR,Chr(34),"") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomVirusBDR = Trim(NomVirusBDR) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Search = NomVirusBDR >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub SupprimVirusBDR(cle,Valeur) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo On Error Resume Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim Tab,NomVirusBDR,Supprim >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Tab = Split(lit_reg(cle,Valeur),"=") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomVirusBDR = Tab(LBound(Tab)) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomVirusBDR = Replace(NomVirusBDR,Chr(34),"") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomVirusBDR = Trim(NomVirusBDR) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'MsgBox NomVirusBDR >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Supprim = "reg delete "^& cle ^&" /v "^& DblQuote(NomVirusBDR) ^&" /f" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'MsgBox Supprim >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call Executer(Supprim,0,False) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo function lit_reg(cle,valeur) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim fs,Sh,adr,erro,fich >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set fs = CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set Sh = WScript.CreateObject("WScript.Shell") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'adresse du fichier dans lequel on inscrit la valeur de la clé >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'adr=replace(wscript.scriptfullname,wscript.scriptname,"Runregistres.txt") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo adr = "%Tmp%\Export.txt" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'exporter la clé (les guillements évitent les pb avec les adresses completes) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo sh.Run "%comspec% /c REGEDIT /E """ ^& adr ^& """ """ ^& cle ^& """",0,true >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'ouvrir en lecture >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'attendre que le fichier reg soit créé >>"%rtwinpath%\HScanVBSFiles.vbs"
echo erro = 1 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo do while erro ^<^ 0 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'on error resume next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'le deuxième true pour lire en ANSI, dépend de la version de regedit ! >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set fich = fs.OpenTextFile(adr, 1, False, true) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo erro= Err.Number >>"%rtwinpath%\HScanVBSFiles.vbs"
echo loop >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'on error goto 0 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'lire le fichier ligne par ligne pour chercher valeur >>"%rtwinpath%\HScanVBSFiles.vbs"
echo lit_reg = "" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo do while instr(lit_reg,valeur)=0 and not fich.atendofstream >>"%rtwinpath%\HScanVBSFiles.vbs"
echo lit_reg=fich.readline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo loop >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'prendre en compte les lignes des tableaux >>"%rtwinpath%\HScanVBSFiles.vbs"
echo if lit_reg ^<^ "" then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo do while right(lit_reg,1)="\\" and not fich.atendofstream >>"%rtwinpath%\HScanVBSFiles.vbs"
echo lit_reg = lit_reg ^& fich.readline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo loop >>"%rtwinpath%\HScanVBSFiles.vbs"
echo end if >>"%rtwinpath%\HScanVBSFiles.vbs"
echo lit_reg = Replace(lit_reg,"\\","\") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fich.close >>"%rtwinpath%\HScanVBSFiles.vbs"
echo end function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '************************************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Function Executer(StrCmd,Console,bWaitOnReturn) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim ws,MyCmd,Resultat >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set ws = CreateObject("wscript.Shell") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'La valeur 0 pour cacher la console MS-DOS >>"%rtwinpath%\HScanVBSFiles.vbs"
echo If Console = 0 Then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MyCmd = "CMD /C " ^& StrCmd ^& "" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Resultat = ws.run(MyCmd,Console,bWaitOnReturn) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo If Resultat = 0 Then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Else >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MsgBox "Une erreur inconnue est survenue !",16+4096+vbokonly, "Une erreur inconnue est survenue !" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End If >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End If >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'La valeur 1 pour montrer la console MS-DOS >>"%rtwinpath%\HScanVBSFiles.vbs"
echo If Console = 1 Then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MyCmd = "CMD /K " ^& StrCmd ^& " " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Resultat = ws.run(MyCmd,Console,bWaitOnReturn) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo If Resultat = 0 Then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Else >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MsgBox "Une erreur inconnue est survenue !",16+4096+vbokonly, "Une erreur inconnue est survenue !" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End If >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End If >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Executer = Resultat >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '*************************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Function FindScript(MyProcess) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim colItems,objItem,Processus,Question,cles,i,Count,Valeur >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set colItems = GetObject("winmgmts:").ExecQuery("Select * from Win32_Process " _ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo ^& "Where Name like '%"^& MyProcess ^&"%' AND NOT commandline like '%" ^& wsh.scriptname ^& "%'",,48) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Count = 0 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo FindScript = False >>"%rtwinpath%\HScanVBSFiles.vbs"
echo For Each objItem in colItems >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Count= Count + 1 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Processus = Mid(objItem.CommandLine,InStr(objItem.CommandLine,""" """) + 2) 'Extraction du chemin du script en ligne de commande >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Processus = Replace(Processus,chr(34),"") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Question = MsgBox ("Voulez-vous arrêter ce script : "^& DblQuote(Processus) ^&" ?" ,VBYesNO+VbQuestion,Titre+Copyright) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo If Question = VbYes then >>"%rtwinpath%\HScanVBSFiles.vbs"
echo objItem.Terminate(0)'Tuer ce processus >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Cles = Array(Cle1,Cle2,Cle3,Cle4) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo For i = LBound(Cles) To UBound(Cles) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Valeur = Search(Cles(i),Processus) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo ws.popup "Recheche et effacement du Virus dans la base de registre : "^& DblQuote(Valeur) ^& " dans la clé " ^& DblQuote(Cles(i)),"3",Titre+Copyright,VbExclamation >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call SupprimVirusBDR(Cles(i),Valeur) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'Supprim = "reg delete "^& cle ^&" /v "^& Valeur ^&" /f" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'MsgBox Supprim >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'Call Executer(Supprim,1,True) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo FindScript = True >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine DblQuote(Processus) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Else >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Count= Count - 1 'décrementer le compteur de -1 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'MsgBox "Il n'y pas d'instance de Wscript.exe trouvé !",VbInformation,Titre+Copyright >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End if >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine String(100,"*") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine count ^& Titre ^& "ont été arrêtés" ^& vbNewline ^& String(100,"*") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Function DblQuote(Str) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo DblQuote = Chr(34) ^& Str ^& Chr(34) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub ListTachesPlanifies() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim Macmd >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MaCmd = "schtasks > "^& Source ^& "\MyTmpTasks.txt & Cmd /U /C Type "^& Source ^& "\MyTmpTasks.txt >> "^& Source ^& "\" ^& NomFichierLog ^& " & Del "^& Source ^& "\MyTmpTasks.txt" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call Executer(MaCmd,0,True) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub WinLogon() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim Macmd >>"%rtwinpath%\HScanVBSFiles.vbs"
echo MaCmd = "reg query ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"" > "^& Source ^& "\MyTmpWinlogon.txt & Cmd /U /C Type "^& Source ^& "\MyTmpWinlogon.txt >> "^& Source ^& "\" ^& NomFichierLog ^&  "& Del "^& Source ^& "\MyTmpWinlogon.txt" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call Executer(MaCmd,0,True) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '************************************************************************************************ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo 'Les éléments à démarrage automatique + ListProcessCmdLine.vbs >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '************************************************************************************************ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub ListProcessCmdLine() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim fso,ws,ProcessEnv,NomMachine,NomUtilisateur,strComputer,objWMIService >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim colProcesses,objProcess,ProcessName,ProcessID,CommandLine,count,Texte >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set fso = CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set Ws = CreateObject("WScript.Shell") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set ProcessEnv = Ws.Environment("Process") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomMachine = ProcessEnv("COMPUTERNAME") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo NomUtilisateur = ProcessEnv("USERNAME") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strComputer = "." >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set objWMIService = GetObject("winmgmts:" _ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo ^& "{impersonationLevel=impersonate}!\\" _ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo ^& strComputer ^& "\root\cimv2") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo count=0 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call Infosys() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine String(14,"*")^& "Liste des Processus en cours d'exécution le " ^& date ^& " à " ^& time ^& " sur Le PC "^& NomMachine ^&" connecté en tant que " ^& NomUtilisateur ^& String(14,"*")^& vbNewline ^& String(80,"*") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo For Each objProcess in colProcesses >>"%rtwinpath%\HScanVBSFiles.vbs"
echo ProcessName = objProcess.Name >>"%rtwinpath%\HScanVBSFiles.vbs"
echo ProcessID = objProcess.ProcessID >>"%rtwinpath%\HScanVBSFiles.vbs"
echo CommandLine = objProcess.CommandLine >>"%rtwinpath%\HScanVBSFiles.vbs"
echo count=count+1 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Texte = "Numéro PID = "^& objProcess.ProcessID ^& VbNewLine ^& "Nom du Processus = " ^& objProcess.Name ^& VbNewLine ^&"Ligne de Commande = "^& objProcess.CommandLine ^&_ >>"%rtwinpath%\HScanVBSFiles.vbs"
echo VbNewLine ^& String(100,"*") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine Texte >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine  "Il y a "^& Count ^&" Processus en cours d'exécution le " ^& date ^& " à " ^& time ^& " sur Le PC "^& NomMachine ^&" connecté en tant que " ^& NomUtilisateur ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Call StartupCommand >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Function StartupCommand() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim strComputer,resultat,strMessage,objWMIService,objStartupCommand,colStartupCommands >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strComputer = "." >>"%rtwinpath%\HScanVBSFiles.vbs"
echo resultat="" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set objWMIService = GetObject("winmgmts:\\" ^& strComputer ^& "\root\cimv2") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set colStartupCommands = objWMIService.ExecQuery ("Select * from Win32_StartupCommand") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo For Each objStartupCommand in colStartupCommands >>"%rtwinpath%\HScanVBSFiles.vbs"
echo resultat=resultat ^& "Nom: " ^& objStartupCommand.Name ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo resultat=resultat ^& "Description: " ^& objStartupCommand.Description ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo resultat=resultat ^& "Emplacement: " ^& objStartupCommand.Location ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo resultat=resultat ^& "Commande: " ^& objStartupCommand.Command ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo resultat=resultat ^& "Utilisateur: " ^& objStartupCommand.User ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo resultat=resultat ^& String(100,"*") ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine String(50,"*") ^&" Les éléments à démarrage automatique "^& String(40,"*") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine resultat ^& vbNewline ^& VbTab ^& VbTab ^&"! Liste des Tâches planifiés !" ^& vbNewline ^& String(100,"*") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.Close >>"%rtwinpath%\HScanVBSFiles.vbs"
echo end Function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Function InfoSys() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim strComputer,strMessage,objWMIService >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim objComputer,colSettings,colSettings2,colSettings3,objBIOS,objOperatingSystem >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strComputer = "." >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strMessage="" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set objWMIService = GetObject("winmgmts:"  ^& "{impersonationLevel=impersonate}!\\" ^& strComputer ^& "\root\cimv2") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set colSettings = objWMIService.ExecQuery  ("Select * from Win32_ComputerSystem") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set colSettings2 = objWMIService.ExecQuery ("Select * from Win32_BIOS") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set colSettings3 = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo For Each objBIOS in colSettings2 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strMessage=strMessage ^& "BIOS " ^& objBIOS.Version ^& vbNewline ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo For Each objComputer in colSettings >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strMessage=strMessage ^& "Nom de l'ordinateur : " ^& objComputer.Name ^& vbNewline ^& "Fabriquant: " ^& objComputer.Manufacturer ^& vbNewline ^& "Modèle : " ^& objComputer.Model ^& vbNewline ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo For Each objOperatingSystem in colSettings3 >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strMessage=strMessage ^&  objOperatingSystem.Name ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strMessage=strMessage ^&  "Version " ^& objOperatingSystem.Version ^& vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strMessage=strMessage ^&  "Service Pack " ^& objOperatingSystem.ServicePackMajorVersion ^& "." ^& objOperatingSystem.ServicePackMinorVersion ^&vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo strMessage=strMessage ^&  "Dossier de Windows: " ^& objOperatingSystem.WindowsDirectory ^&vbNewline >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Next >>"%rtwinpath%\HScanVBSFiles.vbs"
echo OutPut.WriteLine strMessage >>"%rtwinpath%\HScanVBSFiles.vbs"
echo end Function >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '*************************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '*********************************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub CreateProgressBar(Titre,MsgAttente) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Dim ws,fso,f,f2,ts,ts2,Ligne,i,fread,LireTout,NbLigneTotal,Temp,PathOutPutHTML,fhta,oExec >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set ws = CreateObject("wscript.Shell") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set fso = CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Temp = WS.ExpandEnvironmentStrings("%Temp%") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo PathOutPutHTML = Temp ^& "\Barre.hta" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set fhta = fso.OpenTextFile(PathOutPutHTML,2,True) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<HTML>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<HEAD>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<Title>  " ^& Titre ^& "</Title>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<HTA:APPLICATION" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "ICON = ""magnify.exe"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "BORDER=""THIN"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "INNERBORDER=""NO"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "MAXIMIZEBUTTON=""NO"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "MINIMIZEBUTTON=""YES"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "SCROLL=""NO"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "SYSMENU=""NO"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "SELECTION=""NO"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "SINGLEINSTANCE=""YES"">" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "</HEAD>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<BODY text=""white""><CENTER>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<marquee DIRECTION=""LEFT"" SCROLLAMOUNT=""6"" BEHAVIOR=ALTERNATE><font face=""Verdana"">" ^& MsgAttente ^&"</font></marquee>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<img src=""data:image/gif;base64,R0lGODlhgAAPAPIAAP////INPvvI0/q1xPVLb/INPgAAAAAAACH/C05FVFNDQVBFMi4wAwEAAAAh/hpDcmVhdGVkIHdpdGggYWpheGxvYWQuaW5mbwAh+QQJCgAAACwAAAAAgAAPAAAD5wiyC/6sPRfFpPGqfKv2HTeBowiZGLORq1lJqfuW7Gud9YzLud3zQNVOGCO2jDZaEHZk+nRFJ7R5i1apSuQ0OZT+nleuNetdhrfob1kLXrvPariZLGfPuz66Hr8f8/9+gVh4YoOChYhpd4eKdgwDkJEDE5KRlJWTD5iZDpuXlZ+SoZaamKOQp5wAm56loK6isKSdprKotqqttK+7sb2zq6y8wcO6xL7HwMbLtb+3zrnNycKp1bjW0NjT0cXSzMLK3uLd5Mjf5uPo5eDa5+Hrz9vt6e/qosO/GvjJ+sj5F/sC+uMHcCCoBAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/4ixgeloM5erDHonOWBFFlJoxiiTFtqWwa/Jhx/86nKdc7vuJ6mxaABbUaUTvljBo++pxO5nFQFxMY1aW12pV+q9yYGk6NlW5bAPQuh7yl6Hg/TLeu2fssf7/19Zn9meYFpd3J1bnCMiY0RhYCSgoaIdoqDhxoFnJ0FFAOhogOgo6GlpqijqqKspw+mrw6xpLCxrrWzsZ6duL62qcCrwq3EsgC0v7rBy8PNorycysi3xrnUzNjO2sXPx8nW07TRn+Hm3tfg6OLV6+fc37vR7Nnq8Ont9/Tb9v3yvPu66Xvnr16+gvwO3gKIIdszDw65Qdz2sCFFiRYFVmQFIAEBACH5BAkKAAAALAAAAACAAA8AAAP/CLQL/qw9J2qd1AoM9MYeF4KaWJKWmaJXxEyulI3zWa/39Xh6/vkT3q/DC/JiBFjMSCM2hUybUwrdFa3Pqw+pdEVxU3AViKVqwz30cKzmQpZl8ZlNn9uzeLPH7eCrv2l1eXKDgXd6Gn5+goiEjYaFa4eOFopwZJh/cZCPkpGAnhoFo6QFE6WkEwOrrAOqrauvsLKttKy2sQ+wuQ67rrq7uAOoo6fEwsjAs8q1zLfOvAC+yb3B0MPHD8Sm19TS1tXL4c3jz+XR093X28ao3unnv/Hv4N/i9uT45vqr7NrZ89QFHMhPXkF69+AV9OeA4UGBDwkqnFiPYsJg7jBktMXhD165jvk+YvCoD+Q+kRwTAAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJdCLnC/S+nsCFo1dq5zeRoFlJ1Du91hOq3b3qNo/5OdZPGDT1QrSZDLIcGp2o47MYheJuImmVer0lmRVlWNslYndm4Jmctba5gm9sPI+gp2v3fZuH78t4Xk0Kg3J+bH9vfYtqjWlIhZF0h3qIlpWYlJpYhp2DjI+BoXyOoqYaBamqBROrqq2urA8DtLUDE7a1uLm3s7y7ucC2wrq+wca2sbIOyrCuxLTQvQ680wDV0tnIxdS/27TND+HMsdrdx+fD39bY6+bX3um14wD09O3y0e77+ezx8OgAqutnr5w4g/3e4RPIjaG+hPwc+stV8NlBixAzSlT4bxqhx46/MF5MxUGkPA4BT15IyRDlwG0uG55MAAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPECwbnu3gUKH1h2ZziNKVlJWDW9FvSuI/nkusPjrF0OaBIGfTna7GaTNTPGIvK4GUZRV1WV+ssKlE/G0hmDTqVbdPeMZWvX6XacAy6LwzAF092b9+GAVnxEcjx1emSIZop3g16Eb4J+kH+ShnuMeYeHgVyWn56hakmYm6WYnaOihaCqrh0FsbIFE7Oytba0D7m6DgO/wAMTwcDDxMIPx8i+x8bEzsHQwLy4ttWz17fJzdvP3dHfxeG/0uTjywDK1Lu52bHuvenczN704Pbi+Ob66MrlA+scBAQwcKC/c/8SIlzI71/BduysRcTGUF49i/cw5tO4jytjv3keH0oUCJHkSI8KG1Y8qLIlypMm312ASZCiNA0X8eHMqPNCTo07iyUAACH5BAkKAAAALAAAAACAAA8AAAP/CLQL/qw9F8mk8ap8hffaB3ZiWJKfmaJgJWHV5FqQK9uPuDr6yPeTniAIzBV/utktVmPCOE8GUTc9Ia0AYXWXPXaTuOhr4yRDzVIjVY3VsrnuK7ynbJ7rYlp+6/u2vXF+c2tyHnhoY4eKYYJ9gY+AkYSNAotllneMkJObf5ySIphpe3ajiHqUfENvjqCDniIFsrMFE7Sztre1D7q7Dr0TA8LDA8HEwsbHycTLw83ID8fCwLy6ubfXtNm40dLPxd3K4czjzuXQDtID1L/W1djv2vHc6d7n4PXi+eT75v3oANSxAzCwoLt28P7hC2hP4beH974ZTEjwYEWKA9VBdBixLSNHhRPlIRR5kWTGhgz1peS30l9LgBojUhzpa56GmSVr9tOgcueFni15styZAAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPGqfKsWIPiFwhia4kWWKrl5UGXFMFa/nJ0Da+r0rF9vAiQOH0DZTMeYKJ0y6O2JPApXRmxVe3VtSVSmRLzENWm7MM+65ra93dNXHgep71H0mSzdFec+b3SCgX91AnhTeXx6Y2aOhoRBkllwlICIi49liWmaapGhbKJuSZ+niqmeN6SWrYOvIAWztAUTtbS3uLYPu7wOvrq4EwPFxgPEx8XJyszHzsbQxcG9u8K117nVw9vYD8rL3+DSyOLN5s/oxtTA1t3a7dzx3vPwAODlDvjk/Orh+uDYARBI0F29WdkQ+st3b9zCfgDPRTxWUN5AgxctVqTXUDNix3QToz0cGXIaxo32UCo8+OujyJIM95F0+Y8mMov1NODMuPKdTo4hNXgMemGoS6HPEgAAIfkECQoAAAAsAAAAAIAADwAAA/8ItAv+rD0XyaTxqnyr9pcgitpIhmaZouMGYq/LwbPMTJVE34/Z9j7BJCgE+obBnAWSwzWZMaUz+nQQkUfjyhrEmqTQGnins5XH5iU3u94Crtpfe4SuV9NT8R0Nn5/8RYBedHuFVId6iDyCcX9vXY2Bjz52imeGiZmLk259nHKfjkSVmpeWanhhm56skIyABbGyBROzsrW2tA+5ug68uLbAsxMDxcYDxMfFycrMx87Gv7u5wrfTwdfD2da+1A/Ky9/g0OEO4MjiytLd2Oza7twA6/Le8LHk6Obj6c/8xvjzAtaj147gO4Px5p3Dx9BfOQDnBBaUeJBiwoELHeaDuE8uXzONFu9tE2mvF0KSJ00q7Mjxo8d+L/9pRKihILyaB29esEnzgkt/Gn7GDPosAQAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPGqfKv2HTcJJKmV5oUKJ7qBGPyKMzNVUkzjFoSPK9YjKHQQgSve7eeTKZs7ps4GpRqDSNcQu01Kazlwbxp+ksfipezY1V5X2ZI5XS1/5/j7l/12A/h/QXlOeoSGUYdWgXBtJXEpfXKFiJSKg5V2a1yRkIt+RJeWk6KJmZhogKmbniUFrq8FE7CvsrOxD7a3Drm1s72wv7QPA8TFAxPGxcjJx8PMvLi2wa7TugDQu9LRvtvAzsnL4N/G4cbY19rZ3Ore7MLu1N3v6OsAzM0O9+XK48Xn/+notRM4D2C9c/r6Edu3UOEAgwMhFgwoMR48awnzMWOIzyfeM4ogD4aMOHJivYwexWlUmZJcPXcaXhKMORDmBZkyWa5suE8DuAQAIfkECQoAAAAsAAAAAIAADwAAA/8ItAv+rD0XyaTxqnyr9h03gZNgmtqJXqqwka8YM2NlQXYN2ze254/WyiF0BYU8nSyJ+zmXQB8UViwJrS2mlNacerlbSbg3E5fJ1WMLq9KeleB3N+6uR+XEq1rFPtmfdHd/X2aDcWl5a3t+go2AhY6EZIZmiACWRZSTkYGPm55wlXqJfIsmBaipBROqqaytqw+wsQ6zr623qrmusrATA8DBA7/CwMTFtr24yrrMvLW+zqi709K0AMkOxcYP28Pd29nY0dDL5c3nz+Pm6+jt6uLex8LzweL35O/V6fv61/js4m2rx01buHwA3SWEh7BhwHzywBUjOGBhP4v/HCrUyJAbXUSDEyXSY5dOA8l3Jt2VvHCypUoAIetpmJgAACH5BAkKAAAALAAAAACAAA8AAAP/CLQL/qw9F8mk8ap8q/YdN4Gj+AgoqqVqJWHkFrsW5Jbzbee8yaaTH4qGMxF3Rh0s2WMUnUioQygICo9LqYzJ1WK3XiX4Na5Nhdbfdy1mN8nuLlxMTbPi4be5/Jzr+3tfdSdXbYZ/UX5ygYeLdkCEao15jomMiFmKlFqDZz8FoKEFE6KhpKWjD6ipDqunpa+isaaqqLOgEwO6uwO5vLqutbDCssS0rbbGuMqsAMHIw9DFDr+6vr/PzsnSx9rR3tPg3dnk2+LL1NXXvOXf7eHv4+bx6OfN1b0P+PTN/Lf98wK6ExgO37pd/pj9W6iwIbd6CdP9OmjtGzcNFsVhDHfxDELGjxw1Xpg4kheABAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPGqfKv2HTeBowiZjqCqG9malYS5sXXScYnvcP6swJqux2MMjTeiEjlbyl5MAHAlTEarzasv+8RCu9uvjTuWTgXedFhdBLfLbGf5jF7b30e3PA+/739ncVp4VnqDf2R8ioBTgoaPfYSJhZGIYhN0BZqbBROcm56fnQ+iow6loZ+pnKugpKKtmrGmAAO2twOor6q7rL2up7C/ssO0usG8yL7KwLW4tscA0dPCzMTWxtXS2tTJ297P0Nzj3t3L3+fmzerX6M3hueTp8uv07ezZ5fa08Piz/8UAYhPo7t6+CfDcafDGbOG5hhcYKoz4cGIrh80cPAOQAAAh+QQJCgAAACwAAAAAgAAPAAAD5wi0C/6sPRfJpPGqfKv2HTeBowiZGLORq1lJqfuW7Gud9YzLud3zQNVOGCO2jDZaEHZk+nRFJ7R5i1apSuQ0OZT+nleuNetdhrfob1kLXrvPariZLGfPuz66Hr8f8/9+gVh4YoOChYhpd4eKdgwFkJEFE5KRlJWTD5iZDpuXlZ+SoZaamKOQp5wAm56loK6isKSdprKotqqttK+7sb2zq6y8wcO6xL7HwMbLtb+3zrnNycKp1bjW0NjT0cXSzMLK3uLd5Mjf5uPo5eDa5+Hrz9vt6e/qosO/GvjJ+sj5F/sC+uMHcCCoBAA7AAAAAAAAAAAA"" />" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "</CENTER></BODY></HTML>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "<SCRIPT LANGUAGE=""VBScript""> " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "Set ws = CreateObject(""wscript.Shell"")" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "Temp = WS.ExpandEnvironmentStrings(""%Temp%"")" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "Sub window_onload()" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "    CenterWindow 490,110" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "    Self.document.bgColor = ""DarkGrey"" " >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine " End Sub" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine " Sub CenterWindow(x,y)" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "    Dim iLeft,itop" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "    window.resizeTo x,y" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "    iLeft = window.screen.availWidth/2 - x/2" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "    itop = window.screen.availHeight/2 - y/2" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "    window.moveTo ileft,itop" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "End Sub" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.WriteLine "</script>" >>"%rtwinpath%\HScanVBSFiles.vbs"
echo fhta.close >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub LancerProgressBar() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Set oExec = Ws.Exec("mshta.exe " ^& Temp ^& "\Barre.hta") >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub FermerProgressBar() >>"%rtwinpath%\HScanVBSFiles.vbs"
echo oExec.Terminate >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Sub Pause(NSeconds) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo Wscript.Sleep(NSeconds*1000) >>"%rtwinpath%\HScanVBSFiles.vbs"
echo End Sub   >>"%rtwinpath%\HScanVBSFiles.vbs"
echo '********************************************************************************************** >>"%rtwinpath%\HScanVBSFiles.vbs"



::CREATION DE BROWSEFORFILE.VBS
:bffvbs
if exist "%rtwinpath%\BrowseForFile.vbs" goto readmefile
echo    ÀÄÄÄ^>Creation of BrowseForFile
echo Function GetFileDlg(sIniDir,sFilter,sTitle) >"%rtwinpath%\BrowseForFile.vbs"
echo  GetFileDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" ^& sIniDir ^& "',null,'" ^& sFilter ^& "','" ^& sTitle ^& "')));close();}</script><hta:application showintaskbar=no />""").StdOut.ReadAll >>"%rtwinpath%\BrowseForFile.vbs"
echo End Function >>"%rtwinpath%\BrowseForFile.vbs"
echo. >>"%rtwinpath%\BrowseForFile.vbs"
echo Function GetFileDlgBar(sIniDir,sFilter,sTitle) >>"%rtwinpath%\BrowseForFile.vbs"
echo  GetFileDlgBar=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" ^& sIniDir ^& "',null,'" ^& sFilter ^& "','" ^& sTitle ^& "')));close();}</script>""").StdOut.ReadAll >>"%rtwinpath%\BrowseForFile.vbs"
echo End Function >>"%rtwinpath%\BrowseForFile.vbs"
echo. >>"%rtwinpath%\BrowseForFile.vbs"
echo sIniDir = "C:\*" >>"%rtwinpath%\BrowseForFile.vbs"
echo sFilter = "All files (*.*)|*.*|Applications (*.exe;*.com)|*.exe;*.com|" >>"%rtwinpath%\BrowseForFile.vbs"
echo sTitle = "Registry Tool BrowseForFile -- based on GetFileDlg by Omen999" >>"%rtwinpath%\BrowseForFile.vbs"
echo. >>"%rtwinpath%\BrowseForFile.vbs"
echo rep = GetFileDlg(Replace(sIniDir,"\","\\"),sFilter,sTitle) >>"%rtwinpath%\BrowseForFile.vbs"
echo. >>"%rtwinpath%\BrowseForFile.vbs"
echo Set objFSO=CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\BrowseForFile.vbs"
echo. >>"%rtwinpath%\BrowseForFile.vbs"
echo outFile="C:\Windows\RegistryTool\path9.txt" >>"%rtwinpath%\BrowseForFile.vbs"
echo Set objFile = objFSO.CreateTextFile(outFile,True) >>"%rtwinpath%\BrowseForFile.vbs"
echo objFile.Write rep >>"%rtwinpath%\BrowseForFile.vbs"
echo objFile.Close >>"%rtwinpath%\BrowseForFile.vbs"
echo. >>"%rtwinpath%\BrowseForFile.vbs"


::CREATION D'UN FICHIER README.TXT
:readmefile
set oldfileversioninfo= Registry Tool 1.5.2
set fileversioninfo= Registry Tool 1.5.5
   if exist "%rtwinpath%\README%fileversioninfo%.txt" goto regdetect else (
      if exist "%rtwinpath%\README%oldfileversioninfo%.txt" (
      del "%rtwinpath%\README%oldfileversioninfo%.txt" /f /s /q >nul 2>nul
      goto startreadme
   ) else (goto startreadme)
:startreadme
echo    ÀÄÄÄ^>Creation of README%fileversioninfo%
echo   ------------------------------------- >"%rtwinpath%\README%fileversioninfo%.txt"
echo    Registry Tool 1.5.5 -- batch.xoo.it >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   ------------------------------------- >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo This software was founded by Pierre JOUSSAIN ^& Raphael BERTEAUD on batch.xoo.it. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo What's new : >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Correction of option 3 bug with executable file. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   GUI correction for option 11-4-3. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   GUI improvement for option 11-1 ^& 11-2. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo Description : >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Registry Tool is a small tool predominantly coded in batch which serves to customize and optimize any computer with a WINDOWS® Operating System. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo Instructions : >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Run Registry Tool.BAT as Administrator (right clic, and select run as administrator). Registry Tool.EXE doesn't need this manipulation cause it's automatically done. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   A registry backup is automatically made on the first execution, or if it's not detected in the "%rtwinpath%\RegBackUp\" directory. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   This software also includes in the same option a function to restore your last registry backup. So if there was a wrong manipulation, you'll be able to cancel it. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo FAQ : >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   For any question concerning the Registry Tool project, please feel free to contact us at the following e-mail address : raf.webmaster@octavener.org >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   To see the evolution of the Registry Tool project, don't hesitate to visit this link : http://batch.xoo.it/t3247-Regrouper-ces-connaissances.htm >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   If you're interested in the project, contact us at the same address : raf.webmaster@octavener.org >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   And, if you're interested in programmation (batch, vbs, hta, etc...), visit this great forum : batch.xoo.it (http://batch.xoo.it/index.php) >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo Secrets : >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   In the main menu, type "quit", "exit", "shut", "switch off", "close", "turn off", "fermer", "quitter" or any number weaker than 0 to perform a "Class Exit" ;) >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   In this same  main menu, enter 0 as choice to see the credits ;) >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   In any option and almost all sub-options, enter "back", "quit", "exit" or "fermer" as choice to come back to the main menu. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   In option 4, on username request, enter "backtortmenu4" >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo Credits : >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo   Founded by Pierre JOUSSAIN ^& Raphael BERTEAUD on batch.xoo.it. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo     Thanks to : >>"%rtwinpath%\README%fileversioninfo%.txt"
echo       -Xavier PACIO [AlonsO7798] for hta password module integration. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo       -Mehdi Benzarti [Hackoo] for hta ^& vbs code in option 3. And for discovering of GetFileDlg.vbs ^& hta password module. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo       -Unknown [BlastKiller] for part of the option 14's code. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo       -Unknown [Laddy] for the creation of private sub-forum for a better work ^& commands for option 3 >>"%rtwinpath%\README%fileversioninfo%.txt"
echo       -Unknown [Batch_Man] for commands in option 3 from ErazorTmp.bat. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo       -Unknown [Omen999] for GetFileDlg, now remade and renamed as BrowseForFile for Registry Tool. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo       -Unknown [ytrezAn] for a command in option 6 >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
echo. >>"%rtwinpath%\README%fileversioninfo%.txt"
   if exist "%userprofile%\desktop" (
   copy /y "%rtwinpath%\README%fileversioninfo%.txt" "%userprofile%\desktop"
   goto regdetect
   ) else (
      if exist "%userprofile%\bureau" (
      copy /y "%rtwinpath%\README%fileversioninfo%.txt" "%userprofile%\bureau"
      goto regdetect
      ) else (goto regdetect)
    )

:: DETECTION DE LA COMMANDE REG.EXE
:regdetect
   if exist "%windir%\System32\reg.*" goto tskilldetect
cls
   for /l %%i in (0,1,2) do (
   echo 
   ping 127.0.0.1 /n 1 >nul 2>nul
   cls
 )
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º  Reg Undetected  º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Command Reg [Not found]
echo.
echo   Please, download the command reg.[exe]
echo   and place this file in %windir%\System32\
echo.
echo   If the problem persists, contact a developer.
   if not exist "%rtwinpath%\noreg.vbs" (
   echo On error resume next >"%rtwinpath%\noreg.vbs"
   echo msgbox "This error report indicates the " ^& chr^(34^) ^& "reg.exe" ^& chr^(34^) ^& " command was not found in your computer. This command is used by all the options of this program, so without it, the whole program is useless." ^& vbcrlf ^& vbcrlf ^& "The only way to fix this problem is to find " ^& chr^(34^) ^& "reg.exe" ^& chr^(34^) ^& " on the internet, and to place it in %windir%\system32.", 16+4096+vbokonly, "Command reg not found details" >>"%rtwinpath%\noreg.vbs"
 )
echo.
echo Press any key...
"%rtwinpath%\noreg.vbs"
pause >nul
exit /B

:: DETECTION DE LA COMMANDE TSKILL.EXE

:tskilldetect
   if exist "%windir%\system32\tskill.*" (
   del "%rtwinpath%\NoTskill.vbs" /f /s /q >nul 2>nul
   goto start
   ) else (
      if exist "%rtwinpath%\NoTskill.vbs" goto start
 )   
cls
   for /l %%i in (0,1,1) do (
   echo 
   ping 127.0.0.1 /n 1 >nul 2>nul
   cls
 )
   if not exist "%rtwinpath%\NoTskill.vbs" (
md "%rtwinpath%\NoTskillFirstAppear"
echo On error resume next >"%rtwinpath%\NoTskillFirstAppear\NoTskill.vbs"
echo msgbox "This error report indicates the " ^& chr^(34^) ^& "tskill.exe" ^& chr^(34^) ^& " command was not found in your computer." ^& vbcrlf ^& "Instead, the vbskillexp.vbs file will be used to kill the explorer process.", 64+4096+vbokonly, "Command tskill not found details" >>"%rtwinpath%\NoTskillFirstAppear\NoTskill.vbs"
"%rtwinpath%\NoTskillFirstAppear\NoTskill.vbs"
move "%rtwinpath%\NoTskillFirstAppear\NoTskill.vbs" "%rtwinpath%" >nul 2>nul
rd "%rtwinpath%\NoTskillFirstAppear" >nul 2>nul
)

:start
 
:: DETECTION DE LA SAUVEGARDE DU REGISTRE, SI ELLE N'EXISTE PAS, ELLE SERA EFFECTUEE AUTOMATIQUEMENT
color 0f
   if exist "%rtwinpath%\RegBackUp\*.reg" goto backupdetected
mode con cols=71 lines=26
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º    Reg BackUp    º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Loading, backup in progress...
echo.
echo step 1/5
md "%rtwinpath%\RegBackUp" >nul 2>nul
reg export HKLM "%rtwinpath%\RegBackUp\HKLM.reg" >nul 2>nul
echo Done !
echo.
echo step 2/5
reg export HKCR "%rtwinpath%\RegBackUp\HKCR.reg" >nul 2>nul
echo Done !
echo.
echo step 3/5
reg export HKCU "%rtwinpath%\RegBackUp\HKCU.reg" >nul 2>nul
echo Done !
echo.
echo step 4/5
reg export HKCC "%rtwinpath%\RegBackUp\HKCC.reg" >nul 2>nul
echo Done !
echo.
echo step 5/5
reg export HKU "%rtwinpath%\RegBackUp\HKU.reg" >nul 2>nul
echo Done !
echo   Your last registry backup was made on %date% at %time%. >"%rtwinpath%\RegBackup\datinfo.rbt"
echo   You've restored the registry backup of %date%, %time%. >"%rtwinpath%\RegBackup\restdatinfo.rbt"
reg add HKEY_CLASSES_ROOT\.rbt /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\.rbt /ve /t REG_SZ /d rbtfile /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /ve /t REG_SZ /d "Registry Backup Tool Data Document" /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile /v AlwaysShowExt /t REG_SZ /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\DefaultIcon /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\DefaultIcon /ve /t REG_SZ /d "%SystemRoot%\system32\setupapi.dll,12" /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open\command /f >nul 2>nul
reg add HKEY_CLASSES_ROOT\rbtfile\shell\open\command /ve /t REG_SZ /d unknown /f >nul 2>nul
echo.
echo   Backup in : "%rtwinpath%\RegBackUp\"
echo.
echo Press any key...
pause >nul
mode con cols=71 lines=24
:backupdetected
 
:menu
color 0f
set crt=enu
cls
:errenu
echo.
echo                     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo                     º                             º
echo                     º        Registry Tool        º
echo                     º                             º
echo                     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   IP Proxy   ³  ³ 02 ³ Hide Desktop ³  ³ 03 ³ Optimize All ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 04 ³  Auto-Logon  ³  ³ 05 ³  USB Detect  ³  ³ 06 ³  CleanUpReg  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 07 ³ Context Menu ³  ³ 08 ³  Reg Backup  ³  ³ 09 ³ Startup Soft ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 10 ³    Folder    ³  ³ 11 ³ Menu Taskbar ³  ³ 12 ³ USB Autorun  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 13 ³ Admin Tweaks ³  ³ 14 ³ System Infos ³  ³ 15 ³     Help     ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.
echo.
set /p crt="Choice : "
   if /I "%crt%"=="quit" goto classexit
   if /I "%crt%"=="exit" goto classexit
   if /I "%crt%"=="shut" goto classexit
   if /I "%crt%"=="switch off" goto classexit
   if /I "%crt%"=="close" goto classexit
   if /I "%crt%"=="turn off" goto classexit
   if /I "%crt%"=="fermer" goto classexit
   if /I "%crt%"=="quitter" goto classexit
   if %crt% geq 0 (
      if %crt% leq 15 (
      goto m%crt%
      ) else (
      echo 
      cls
      echo Invalid choice !
      goto errenu
    )
 ) else (goto classexit)

::CREDITS

:m0
:m00
mode con cols=76 lines=30
cls
echo.
echo                            Version : 1.5.5
echo    ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Modify : -Bug correction for option 3 with .exe
echo    º   Registry Tool   º            -GUI correction for option 11-4-3
echo    ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ            -GUI improvement for 11-1 ^& 11-2
echo                            The 26/08/2014 at 22:08
echo.
echo   Created by : Pierre JOUSSAIN ^& Raphael BERTEAUD
echo   Created for : batch.xoo.it ^& Everyone else
echo.
echo   Developed by :
echo     ÄRaphael BERTEAUD [^</Troud>] ÍÍÍÍ 8 commands + help
echo     ÄPierre JOUSSAIN [Pierrot] ÍÍÍÍÍÍ 5 commands
echo     ÄXavier PACIO [AlonsO7798] ÍÍÍÍÍÍ hta password module integration
echo     ÄMehdi Benzarti [Hackoo] ÍÍÍÍÍÍÍÍ HTA ^& vbs ÄÄ^> option 3
echo                              ÀÄÄÄÄÄÄ^> GetFileDlg.vbs ^& htapwdmodule
echo     ÄUnknown [BlastKiller] ÍÍÍÍÍÍÍÍÍÍ part of the option 14's code
echo     ÄUnknown [Batch_Man] ÍÍÍÍÍÍÍÍÍÍÍÍ commands ÄÄ^> option 3 from ErazorTmp
echo     ÄUnknown [Omen999] ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ original GetFileDlg ÄÄ^> BrowesForFile
echo     ÄUnknown [Laddy] ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ private sub-forum in batch.xoo.it
echo                      ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^> commands for option 3
echo     ÄUnknown [ytrezAn] ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ command for option 6
echo.
echo    For questions, comments, or bug reports, please feel free
echo    to contact us at the following address : raf.webmaster@octavener.org
echo.
echo    Don't forget to check the README file in "%rtwinpath%\"
echo.
echo Press any key...
pause >nul
mode con cols=71 lines=24
goto menu

:: OPTION 1  CONFIGURATION DU PROXY

:m1
:m01
cls
:err
set oot=1
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º     IP Proxy     º   The 15/03/2012 at 19:29
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Configure Proxy
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³     Desactivate      ³  ³ 02 ³       Activate       ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p oot="1 or 2 : "
   if /I "%oot%"=="back" goto menu
   if /I "%oot%"=="exit" goto menu
   if /I "%oot%"=="quit" goto menu
   if /I "%oot%"=="retour" goto menu
set /a oot=%oot%-1
   if %oot% equ 0 set crt=ProxyOFF
   if %oot% equ 0 goto oot
   if %oot% gtr 1 (
   echo 
   cls
   echo Invalid Choice !
   goto err
 )
   if %oot% lss 0 (
   echo 
   cls
   echo Invalid Choice !
   goto err
 )
echo.
echo.
echo   Please, choose an IP adress (ex : 255.18.42.20)
echo.
set /p crt="IP : "
   if /I "%crt%"=="back" goto m1
   if /I "%crt%"=="exit" goto m1
   if /I "%crt%"=="quit" goto m1
   if /I "%crt%"=="retour" goto m1
:oot
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyenable /t Reg_Dword /d "%oot%" /f >nul 2>nul
reg add "HKCU\Software\microsoft\windows\currentversion\Internet Settings" /v proxyserver /t Reg_SZ /d "%crt%" /f >nul 2>nul
   if %oot% equ 1 (
   echo.
   echo Proxy Enabled ! ^(%crt%^)
   ) else (
   echo.
   echo Proxy Disabled !
 )
goto result
 
:: OPTION 2  AFFICHAGE DES ICONES DU BUREAU

:m2
:m02
cls
:err2
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Hide Desktop   º   The 15/03/2012 at 17:31
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Show or Hide Desktop Icons
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Show desktop icons  ³  ³ 02 ³  Hide desktop icons  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.     
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
set /a crt=%crt%-1
   if %crt% gtr 1 (
   echo 
   cls
   echo Invalid choice !
   goto err2
 )
   if %crt% lss 0 (
   echo 
   cls
   echo Invalid choice !
   goto err2
 )
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoDesktop /t REG_DWORD /d %crt% /f >nul 2>nul
   if %crt% equ 1 (
   echo.
   echo Desktop icons disabled.
   ) else (
   echo.
   echo Desktop icons enabled.
 )
   if exist "%rtwinpath%\NoTskill.vbs" (
   "%rtwinpath%\VBSKillExp.vbs"
   ) else (
   tskill explorer 2>nul
 )
set /a crt=%crt%+1
goto result

:: OPTION 3  OPTIMISATION DU DEMARRAGE, DE L'EXECUTION ET DE L'EXTINCTION DE WINDOWS

:m3
:m03
cls
:err3
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Optimize All   º   The 15/03/2012 at 17:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Faster Boot, Runtime and Shutdown
echo.
echo   ÄÄÄÄ^> Optimize StartUp [Raphael BERTEAUD]
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v VerboseStatus /t REG_DWORD /d 1 /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto distartdfrg
 )
echo Verbose Mode Enabled.
:distartdfrg
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction /v OptimizeComplete /t REG_SZ /d no /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto optwindeltmp
 )
echo Startup Defragmentation Disabled.
:optwindeltmp
echo.
echo   ÄÄÄÄ^> Optimize Windows [Raphael BERTEAUD]
del "%windir%\temp" /f /s /q >nul 2>nul
del "%localappdata%\Microsoft\Windows\Temporary Internet Files\*.*" /f /s /q >nul 2>nul
   for /f "tokens=2-3 delims=\" %%a in ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" ^| Find /i "Common AppData"') do set CAD=%systemdrive%\%%a
   if not "%CAD%"=="%systemdrive%\Documents and Settings" set CAD=%systemdrive%\Users
set AD=AppData\Roaming
   if "%CAD%"=="%systemdrive%\Documents and Settings" set AD=Application Data
   for /f "tokens=*" %%i in ('dir /s /b /ad "%WINDIR%\system32\config\systemprofile\Local Settings\Temp" ^>nul 2^>nul') do (
   rd /s /q "%%i" >nul 2>nul
 )
   for /f "tokens=*" %%i in ('dir /s /b /a-d "%WINDIR%\system32\config\systemprofile\Local Settings\Temp" ^>nul 2^>nul') do (
      del /q "%%i" >nul 2>nul
 )
   for /f "tokens=*" %%i in ('dir /s /b /ad "%WINDIR%\Temp" ^>nul 2^>nul') do (
      rd /s /q "%%i" >nul 2>nul
 )
   for /f "tokens=*" %%i in ('dir /s /b /a-d "%WINDIR%\Temp" ^>nul 2^>nul') do (
      del /q "%%i" >nul 2>nul
 )
   for /f "tokens=*" %%e in ('dir /b /ad "%CAD%"') do (
      for /f "tokens=*" %%i in ('dir /s /b /ad "%CAD%\%%e\LOCALS~1\Temp" ^>nul 2^>nul') do (
      rd /s /q "%%i" >nul 2>nul
    )
 )
   for /f "tokens=*" %%e in ('dir /b /ad "%CAD%"') do (
      for /f "tokens=*" %%i in ('dir /s /b /a-d "%CAD%\%%e\LOCALS~1\Temp" ^>nul 2^>nul') do (
      del /q "%%i" >nul 2>nul
    )
 )
   for %%a in (
   "%ProgramFiles%\AusLogics Disk Defrag\reports\*.html"
   "%ProgramFiles% (x86)\AusLogics Disk Defrag\reports\*.html"
   "%ProgramFiles%\Lavasoft\Ad-Aware SE Personal\defs.ref.old"
   "%ProgramFiles% (x86)\Lavasoft\Ad-Aware SE Personal\defs.ref.old"
   "%ProgramFiles%\Ahead\Nero\NeroHistory.log"
   "%ProgramFiles% (x86)\Ahead\Nero\NeroHistory.log"
   "%allusersprofile%\%AD%\Spybot - Search ^& Destroy\backups\*.*"
   "%allusersprofile%\%AD%\Spybot - Search ^& Destroy\logs\*.*"
   "%allusersprofile%\%AD%\Spybot - Search ^& Destroy\recovery\*.*"
   "%allusersprofile%\%AD%\Avira\AntiVir PersonalEdition Classic\LOGFILES\avguard.log"
   "%allusersprofile%\%AD%\Microsoft\Dr Watson\*.dmp"
   "%ProgramFiles%\EMULE\CONFIG\AC_SearchStrings.dat"
   "%ProgramFiles% (x86)\EMULE\CONFIG\AC_SearchStrings.dat"
   "%programfiles%\NETSCAPE\USERS\DEFAULT\netscape.hst"
   "%programfiles% (x86)\NETSCAPE\USERS\DEFAULT\netscape.hst"
   "%programfiles%\NETSCAPE\USERS\DEFAULT\cookies.txt"
   "%programfiles% (x86)\NETSCAPE\USERS\DEFAULT\cookies.txt"
   "%programfiles%\NETSCAPE\USERS\DEFAULT\CACHE\*.*"
   "%programfiles% (x86)\NETSCAPE\USERS\DEFAULT\CACHE\*.*") do if exist %%a (
      del /q %%a >nul 2>nul
 )
echo Temporary Files Deleted.
"%rtwinpath%\HScanVBSFiles.vbs"
   if errorlevel 1 (
   echo 
   goto prefclear
 )
echo VBS files checked.
echo New vbs scan log in "Documents\Rapport_VBSRegCleaner"
:prefclear
del "%windir%\prefetch\*.*" /f /s /q >nul 2>nul
echo Prefetch Folder Cleared.
   for /f "tokens=*" %%e in ('dir /b /ad "%CAD%"') do (
      for /f "tokens=*" %%i in ('dir /b "%CAD%\%%e\Recent\*.*" ^>nul 2^>nul') do (
          del /q "%CAD%\%%e\Recent\%%i" >nul 2>nul
               )
    )
   for /f "tokens=*" %%i in ('dir /b "%windir%\System32\config\systemprofile\Recent\*.*" ^>nul 2^>nul') do (
      del /q  "%windir%\System32\config\systemprofile\Recent\%%i" >nul 2>nul
 )
echo Recent Files Cleared.
   for /f "tokens=*" %%i in ('dir /b "%windir%\MiniDump\*.dmp" ^>nul 2^>nul') do (
   del /q "%windir%\MiniDump\%%i" >nul 2>nul
 )
   for /f "tokens=*" %%i in ('dir /b "%windir%\*.log" ^>nul 2^>nul') do (
   del /q "%windir%\%%i" >nul 2>nul
 )
   for /f "tokens=*" %%i in ('dir /b "%windir%\Debug\*.log" ^>nul 2^>nul') do (
   del /q "%windir%\Debug\%%i" >nul 2>nul
 )
   for /f "tokens=*" %%i in ('dir /b "%windir%\system32\wbem\Logs\*.lo*" ^>nul 2^>nul') do (
   del /q "%windir%\system32\wbem\Logs\%%i" >nul 2>nul
 )
   for /f "tokens=*" %%i in ('dir /b "%WINDIR%\security\logs\*.log" ^>nul 2^>nul') do (
   del /q "%windir%\security\logs\%%i" >nul 2>nul
 )
   for /f "tokens=*" %%i in ('dir /b "%WINDIR%\Debug\UserMode\*.log" ^>nul 2^>nul') do (
   del /q "%windir%\Debug\UserMode\%%i" >nul 2>nul
 )
echo Log files cleared.
:unlduselessdll
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer /v AlwaysUnloadDll /t REG_DWORD /d 1 /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto sepexprocess
 )
echo Unloading ".dll" Files Enabled.
:sepexprocess
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v SeparateProcess /t REG_DWORD /d 1 /f >nul 2>nul
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem /v NtfsDisableLastAccessUpdate /t REG_DWORD /d 1 /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto dispagexe
 )
echo Separation of Processes Enabled.
:dispagexe
reg add "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Memory Management" /v DisablePagingExecutive /t REG_DWORD /d 1 /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto spdupexpanim
 )
echo Paging Executive Disabled (Disable Kernel ^& Hardware Drivers Swapping)
:spdupexpanim
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v MenuShowDelay /t REG_SZ /d 50 /f >nul 2>nul
reg add "HKEY_USERS\.DEFAULT\Control Panel\Mouse" /v MouseHoverTime /t REG_SZ /d 50 /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto extconlimpserv
 )
echo Speeding Up Explorer Animations.
:extconlimpserv
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v LowLevelHooksTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoInternetOpenWith /t REG_DWORD /d 1 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPer1_0Server /t REG_DWORD /d 12 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPerServer /t REG_DWORD /d 12 /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto diseitdotthreencreat
 )
echo Extending Connection Limits Per Server.
:diseitdotthreencreat
reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Filesystem /v NtfsDisable8dot3NameCreation /t REG_DWORD /d 1 /f >nul 2>nul
   if errorlevel 1 (
   echo 
   goto askdishib
 )
echo NTFS "8.3 Name Creation" Disabled.
echo.
   for /f "tokens=*" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ProductName ^| findstr "Windows" ^>nul 2^>nul') do set winver3="%%a"
set winver3=%winver3:~26,47%
set winver3=%winver3:"=%
echo %winver3% | find "8" >nul 2>nul
   if errorlevel 1 (
   goto askdishib
   ) else (
   goto shutopthdd
 )
:askdishib
set /p hibonoff="Do you want to disable hibernation ? (Y/N)                             (This frees up disk space) : "
   if /I "%hibonoff%"=="y" (
   echo Please wait...
   powercfg -h off >nul 2>nul
      if errorlevel 1 (
      echo 
      echo There was an unknown error !
      goto shutopthdd
    )
   echo Hibernation Disabled.
   goto shutopthdd
 )
   if /I "%hibonoff%"=="yes" (
   echo Please wait...
   powercfg -h off >nul 2>nul
      if errorlevel 1 (
      echo 
      echo There was an unknown error !
      goto shutopthdd
    )
   echo Hibernation Disabled.
   goto shutopthdd
 )
   if /I "%hibonoff%"=="o" (
   echo Please wait...
   powercfg -h off >nul 2>nul
      if errorlevel 1 (
      echo 
      echo There was an unknown error !
      goto shutopthdd
    )
   echo Hibernation Disabled.
   goto shutopthdd
 )
   if /I "%hibonoff%"=="oui" (
   echo Please wait...
   powercfg -h off >nul 2>nul
      if errorlevel 1 (
      echo 
      echo There was an unknown error !
      goto shutopthdd
    )
   echo Hibernation Disabled.
   goto shutopthdd
 )
   if "%hibonoff%"=="1" (
   echo Please wait...
   powercfg -h off >nul 2>nul
      if errorlevel 1 (
      echo 
      echo There was an unknown error !
      goto shutopthdd
    )
   echo Hibernation Disabled.
   goto shutopthdd
 )
echo Please wait...
powercfg -h on >nul 2>nul
   if errorlevel 1 (
   echo 
   echo There was an unknown error !
   goto shutopthdd
 )
echo Hibernation enabled.
:shutopthdd
echo.
echo   ÄÄÄÄ^> Optimize extinction [Raphael BERTEAUD]
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" /v WaitToKillServiceTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v AutoEndTasks /t REG_SZ /d 1 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v WaitToKillAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v HungAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_USERS\.DEFAULT\Control Panel\Desktop" /v WaitToKillAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
reg add "HKEY_USERS\.DEFAULT\Control Panel\Desktop" /v HungAppTimeout /t REG_SZ /d 1000 /f >nul 2>nul
echo Reduction of Killing Applications ^& Services' Delays.
echo.
echo You should Restart your computer to apply changes.
set /p crt="Would you like to restart now ? (Y/N) : "
   if /I "%crt%"=="y" (shutdown -r -t 00) else (goto result)

:: OPTION 4  CONFIGURATION DE LA CONNEXION AUTOMATIQUE A UNE SESSION DEFINIE AU DEMARRAGE DE WINDOWS

:m4
:m04
set crt=1
cls
:err4
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º    Auto-Logon    º   The 16/03/2012 at 17:39
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Automatic Session Logon
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Desactivate AutoLogon ³  ³ 02 ³  Activate AutoLogon   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Logon automatically to the session you want
echo.
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
set /a crt=%crt%-1
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AutoAdminLogon /t REG_SZ /d %crt% /f >nul 2>nul
   if %crt% EQU 0 (
   reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultusername" /f >nul 2>nul
   reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v "defaultpassword" /f >nul 2>nul
   echo.
   echo Auto logon disabled.
   set /a crt=%crt%+1
   goto result
   ) else (
   echo.
   echo Auto logon enabled.
 )
   if %crt% gtr 1 (
   echo 
   cls
   echo Invalid choice !
   goto err4
 )
   if %crt% lss 0 (
   echo 
   cls
   echo Invalid choice !
   goto err4
 )
set /a crt=%crt%+1
echo.
:askuseral
set /p user="Which session do you want to use as default ? : "
   if /I "%user%"=="backtortmenu4" goto m4
   if "%user%"=="" (
   echo.
   echo User cannot be empty !
   echo.
   echo.
   goto askuseral
 )
echo.
:askpassword
CALL:PasswordEntry_Start
:addhtapasstoreg
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultusername /t REG_SZ /d %user% /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultpassword /t REG_SZ /d %MyPassword2% /f >nul 2>nul
cls
echo.
echo Now you'll be logged as %user% on every startup.
echo.
echo    Note : If user name or password are wrong, the operation wont work !
echo.
echo WARNING : Your password is now visible in the registry !
echo           If you switch off the AutoLogon, your password will
echo           no longer be visible in the registry.
goto result
 
:: OPTION 5  CONFIGURATION DE LA DETECTION DES USB (LES EFFETS SONT EFFECTIFS APRES REDEMARRAGE UNIQUEMENT)

:m5
:m05
cls
:err5
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º    USB Detect    º   The 16/03/2012 at 21:25
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Administrative Tweak for USB
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Enable USB Detect   ³  ³ 02 ³  Disable USB Detect  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
set /a crt=%crt%+2
   if %crt% gtr 4 (
   echo 
   cls
   echo Invalid choice !
   goto err5
 )
   if %crt% lss 3 (
   echo 
   cls
   echo Invalid choice !
   goto err5
 )
echo.
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR" /v Start /t Reg_Dword /d "%crt%" /f >nul 2>nul
echo.
   if %crt% equ 4 (
   echo Disabling USB detection.
   reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies /v WriteProtect /t REG_DWORD /d 1 /f >nul 2>nul
   echo.
   echo Enabling USB write-protection.
   echo.
   echo    Your USB ports are now disabled !
   echo.
   echo You will have to reboot for the changes to take effect.
   set /p restartprompt="Would you like to restart now ? (Y/N) : "
      if /I "%restartprompt%"=="y" (shutdown -r -t 00) else (
      set /a crt=%crt%-2
      goto result
    )
   ) else (
   echo Enabling USB detection.
   reg add HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies /v WriteProtect /t REG_DWORD /d 0 /f >nul 2>nul
   echo.
   echo Disabling USB write-protection.
   echo.
   echo    Your USB ports are now enabled !
   echo.
   echo You will have to reboot for the changes to take effect.
   set /p restartprompt="Would you like to restart now ? (Y/N) : "
      if /I "%restartprompt%"=="y" (shutdown -r -t 00) else (
      set /a crt=%crt%-2
      goto result
    )
 )

:: OPTION 6  LEGER NETTOYAGE DE LA BASE DE REGISTRE PAR SUPPRESSION DE VALEURS INUTILES
 
:m6
:m06
cls
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : ytrezAn
echo   º    CleanUpReg    º   The 16/03/2012 at 20:50
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Erase Traces of Uninstalled Programs
echo.
echo.
echo   ÄÄÄÄ^> Delete traces [ytrezAn]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /f >nul 2>nul
echo "Microsoft\Tracing" key ^& subkeys cleared.
echo.
echo   ÄÄÄÄ^> Delete traces [Pierre JOUSSAIN]
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing" /f >nul 2>nul
echo "Software\Microsoft\Tracing" key ^& subkeys cleared.
echo.
goto result
 
:: OPTION 7  CONFIGURATION DES OPTIONS DU MENU CONTEXTUEL (CLIC DROIT DE LA SOURIS) DU BUREAU

:m7
:m07
set crt=1
cls
:err7
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º   Context Menu   º   The 17/03/2012 at 21:00
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Add or Delete Context Menu Entries
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Add Option in the menu ³  ³ 02 ³ Del Option in the menu ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo              ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo              ³ 03 ³  Configure desktop context menu  ³
echo              ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Context menu affects the desktop context menu
echo.
set /p crt="1, 2 or 3 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 2 goto deleter
   if %crt% equ 3 goto disabledcm
   if %crt% gtr 3 (
   echo 
   cls
   echo Invalid choice !
   goto err7
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err7
 )
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Add Option to the Desktop Context Menu  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
:choosenameentry
if exist "%rtwinpath%\ncme7.vbs" goto startpromptname7
echo on error resume next >"%rtwinpath%\ncme7.vbs"
echo path = inputbox("Enter the new context menu entry name", "New Context Menu Entry", "example : Paint") >>"%rtwinpath%\ncme7.vbs"
echo Set objFSO=CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\ncme7.vbs"
echo. >>"%rtwinpath%\ncme7.vbs"
echo outFile="%rtwinpath%\ncme7.txt" >>"%rtwinpath%\ncme7.vbs"
echo Set objFile = objFSO.CreateTextFile(outFile,True) >>"%rtwinpath%\ncme7.vbs"
echo objFile.Write path >>"%rtwinpath%\ncme7.vbs"
echo objFile.Close >>"%rtwinpath%\ncme7.vbs"
echo. >>"%rtwinpath%\ncme7.vbs"
:startpromptname7
"%rtwinpath%\ncme7.vbs"
   for /f "tokens=*" %%a in ('type "%rtwinpath%\ncme7.txt"') do set name=%%a
   if "%name%"=="" (
   echo.
   echo The name entry cannot be empty !
   echo.
   echo.
   goto choosenameentry
 )
echo "%name%"
echo.
:choosecommandentry
   if exist "%rtwinpath%\ccme7.vbs" goto startpromptcommand7
echo msgbox "Choose a command to associate with %name%", 4096+vbokonly+64, "Command association" >"%rtwinpath%\ccme7.vbs"
echo Function GetFileDlg(sIniDir,sFilter,sTitle) >>"%rtwinpath%\ccme7.vbs"
echo  GetFileDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" ^& sIniDir ^& "',null,'" ^& sFilter ^& "','" ^& sTitle ^& "')));close();}</script><hta:application showintaskbar=no />""").StdOut.ReadAll >>"%rtwinpath%\ccme7.vbs"
echo End Function >>"%rtwinpath%\ccme7.vbs"
echo. >>"%rtwinpath%\ccme7.vbs"
echo Function GetFileDlgBar(sIniDir,sFilter,sTitle) >>"%rtwinpath%\ccme7.vbs"
echo  GetFileDlgBar=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" ^& sIniDir ^& "',null,'" ^& sFilter ^& "','" ^& sTitle ^& "')));close();}</script>""").StdOut.ReadAll >>"%rtwinpath%\ccme7.vbs"
echo End Function >>"%rtwinpath%\ccme7.vbs"
echo. >>"%rtwinpath%\ccme7.vbs"
echo sIniDir = "C:\*" >>"%rtwinpath%\ccme7.vbs"
echo sFilter = "All files (*.*)|*.*|Applications (*.exe;*.com)|*.exe;*.com|" >>"%rtwinpath%\ccme7.vbs"
echo sTitle = "Registry Tool BrowseForFile -- based on GetFileDlg by Omen999" >>"%rtwinpath%\ccme7.vbs"
echo. >>"%rtwinpath%\ccme7.vbs"
echo rep = GetFileDlg(Replace(sIniDir,"\","\\"),sFilter,sTitle) >>"%rtwinpath%\ccme7.vbs"
echo. >>"%rtwinpath%\ccme7.vbs"
echo Set objFSO=CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\ccme7.vbs"
echo. >>"%rtwinpath%\ccme7.vbs"
echo outFile="C:\Windows\RegistryTool\ccme7.txt" >>"%rtwinpath%\ccme7.vbs"
echo Set objFile = objFSO.CreateTextFile(outFile,True) >>"%rtwinpath%\ccme7.vbs"
echo objFile.Write rep >>"%rtwinpath%\ccme7.vbs"
echo objFile.Close >>"%rtwinpath%\ccme7.vbs"
echo. >>"%rtwinpath%\ccme7.vbs"

:startpromptcommand7
"%rtwinpath%\ccme7.vbs"
   for /f "tokens=*" %%a in ('type "%rtwinpath%\ccme7.txt"') do set comm=%%a
   if "%comm%"=="" (
   echo.
   echo The command cannot be empty !
   echo.
   echo.
   goto choosecommandentry
 )
echo "%comm%"
echo.
echo.
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%" /f >nul 2>nul
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command" /f >nul 2>nul
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%\command" /ve /d "%comm%" /f >nul 2>nul
ping 127.0.0.1 /n 2 >nul 2>nul
cls
:err71
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³      Add an icon       ³  ³ 03 ³ Continue without icon ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cicort="2 or 3 : "
   if %cicort% equ 2 goto iconadd
   if %cicort% gtr 3 (
   echo 
   cls
   echo Invalid choice !
   goto err71
 )
   if %cicort% lss 2 (
   echo 
   cls
   echo Invalid choice !
   goto err71
 )
goto next1
:iconadd
echo.
if exist "%rtwinpath%\icme7.vbs" goto startprompticon7
echo on error resume next >"%rtwinpath%\icme7.vbs"
echo Function GetFileDlg(sIniDir,sFilter,sTitle) >>"%rtwinpath%\icme7.vbs"
echo  GetFileDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" ^& sIniDir ^& "',null,'" ^& sFilter ^& "','" ^& sTitle ^& "')));close();}</script><hta:application showintaskbar=no />""").StdOut.ReadAll >>"%rtwinpath%\icme7.vbs"
echo End Function >>"%rtwinpath%\icme7.vbs"
echo. >>"%rtwinpath%\icme7.vbs"
echo Function GetFileDlgBar(sIniDir,sFilter,sTitle) >>"%rtwinpath%\icme7.vbs"
echo  GetFileDlgBar=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" ^& sIniDir ^& "',null,'" ^& sFilter ^& "','" ^& sTitle ^& "')));close();}</script>""").StdOut.ReadAll >>"%rtwinpath%\icme7.vbs"
echo End Function >>"%rtwinpath%\icme7.vbs"
echo. >>"%rtwinpath%\icme7.vbs"
echo sIniDir = "C:\*" >>"%rtwinpath%\icme7.vbs"
echo sFilter = "Icon files (*.ico)|*.ico|Applications (*.exe;*.com)|*.exe;*.com|All files (*.*)|*.*|" >>"%rtwinpath%\icme7.vbs"
echo sTitle = "Registry Tool BrowseForFile -- based on GetFileDlg by Omen999" >>"%rtwinpath%\icme7.vbs"
echo. >>"%rtwinpath%\icme7.vbs"
echo rep = GetFileDlg(Replace(sIniDir,"\","\\"),sFilter,sTitle) >>"%rtwinpath%\icme7.vbs"
echo. >>"%rtwinpath%\icme7.vbs"
echo Set objFSO=CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\icme7.vbs"
echo. >>"%rtwinpath%\icme7.vbs"
echo outFile="%rtwinpath%\icme7.txt" >>"%rtwinpath%\icme7.vbs"
echo Set objFile = objFSO.CreateTextFile(outFile,True) >>"%rtwinpath%\icme7.vbs"
echo objFile.Write rep >>"%rtwinpath%\icme7.vbs"
echo objFile.Close >>"%rtwinpath%\icme7.vbs"
echo. >>"%rtwinpath%\icme7.vbs"

:startprompticon7
"%rtwinpath%\icme7.vbs"
   for /f "delims=" %%a in ('type "%rtwinpath%\icme7.txt"') do set icon=%%a
echo "%icon%"
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%" /v Icon /t REG_SZ /d "%icon%" /f >nul 2>nul
ping 127.0.0.1 /n 2 >nul 2>nul
:next1
cls
:err72
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    04 : Show the option "%name%" only when shift is pressed
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    05 : Always show the option "%name%"
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cshextrt="4 or 5 : "
   if %cshextrt% equ 4 reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%" /v extended /t REG_SZ /f >nul 2>nul
   if %cshextrt% equ 5 goto placernext
   if %cshextrt% gtr 5 (
   echo 
   cls
   echo Invalid choice !
   goto err72
 )
   if %cshextrt% lss 4 (
   echo 
   cls
   echo Invalid choice !
   goto err72
 )
:placernext
cls
:err73
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    06 : Place the option "%name%" at the bottom
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    07 : Place the option "%name%" at the top
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo    08 : Don't position the option "%name%"
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p cplacert="6, 7 or 8 : "
   if %cplacert% EQU 6 goto bottompos
   if %cplacert% EQU 7 goto toppos
   if %cplacert% EQU 8 goto nopos
   if %cplacert% gtr 8 (
   echo 
   cls
   echo Invalid choice !
   goto err73
 )
   if %cplacert% lss 6 (
   echo 
   cls
   echo Invalid choice !
   goto err73
 )
:bottompos
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%" /v position /t REG_SZ /d bottom /f >nul 2>nul
goto nopos
:toppos
reg add "HKEY_CLASSES_ROOT\Directory\Background\shell\%name%" /v position /t REG_SZ /d top /f >nul 2>nul
:nopos
cls
echo.
echo   Option added to desktop context menu.
echo.
echo   Informations :
echo      Name : %name%
echo      Command : %comm%
   if defined icon echo      Icon : %icon%
   if %cshextrt% equ 4 (echo      Type : Extended desktop menu only) else (echo      Type : Classic desktop menu)
   if %cplacert% equ 6 echo      Position : Bottom
   if %cplacert% equ 7 echo      Position : Top
set crt=%cplacert%
if exist "%rtwinpath%\ccme7.vbs" del "%rtwinpath%\ccme7.vbs" /q /f >nul 2>nul
if exist "%rtwinpath%\icme7.vbs" del "%rtwinpath%\icme7.vbs" /q /f >nul 2>nul
if exist "%rtwinpath%\ncme7.vbs" del "%rtwinpath%\ncme7.vbs" /q /f >nul 2>nul
if exist "%rtwinpath%\ccme7.txt" del "%rtwinpath%\ccme7.txt" /q /f >nul 2>nul
if exist "%rtwinpath%\icme7.txt" del "%rtwinpath%\icme7.txt" /q /f >nul 2>nul
if exist "%rtwinpath%\ncme7.txt" del "%rtwinpath%\ncme7.txt" /q /f >nul 2>nul
goto result
:deleter
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³      Delete Option      ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
:askdelentrycm
if exist "%rtwinpath%\dcme7.vbs" goto startpromptnametodel7
echo on error resume next >"%rtwinpath%\dcme7.vbs"
echo path = inputbox("Enter the context menu entry you want to remove", "Delete Context Menu Entry") >>"%rtwinpath%\dcme7.vbs"
echo Set objFSO=CreateObject("Scripting.FileSystemObject") >>"%rtwinpath%\dcme7.vbs"
echo. >>"%rtwinpath%\dcme7.vbs"
echo outFile="%rtwinpath%\dcme7.txt" >>"%rtwinpath%\dcme7.vbs"
echo Set objFile = objFSO.CreateTextFile(outFile,True) >>"%rtwinpath%\dcme7.vbs"
echo objFile.Write path >>"%rtwinpath%\dcme7.vbs"
echo objFile.Close >>"%rtwinpath%\dcme7.vbs"
echo. >>"%rtwinpath%\dcme7.vbs"
:startpromptnametodel7
"%rtwinpath%\dcme7.vbs"
   for /f "delims=" %%a in ('type "%rtwinpath%\dcme7.txt"') do set name1=%%a
echo "%name1%"
   if "%name1%"=="" (
   echo.
   echo Menu entry cannot be empty !
   echo.
   echo.
   goto askdelentrycm
 )
reg delete "HKEY_CLASSES_ROOT\Directory\Background\shell\%name1%" /f >nul 2>nul
   if errorlevel 1 (
   echo.
   echo   The "%name1%" entry seems to don't exist !
   echo.
   if exist "%rtwinpath%\dcme7.txt" del "%rtwinpath%\dcme7.txt" /q /f >nul 2>nul
   if exist "%rtwinpath%\dcme7.vbs" del "%rtwinpath%\dcme7.vbs" /q /f >nul 2>nul
   goto result
 )
echo.
echo   The "%name1%" entry has been successfully
echo   deleted from the desktop context menu !
   if exist "%rtwinpath%\dcme7.txt" del "%rtwinpath%\dcme7.txt" /q /f >nul 2>nul
   if exist "%rtwinpath%\dcme7.vbs" del "%rtwinpath%\dcme7.vbs" /q /f >nul 2>nul
goto result
:disabledcm
cls
:err74
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Enable desktop context menu  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Disable desktop context menu  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto m7
   if /I "%crt%"=="exit" goto m7
   if /I "%crt%"=="quit" goto m7
   if /I "%crt%"=="retour" goto m7
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err74
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err74
 )
set /a crt=%crt%-1
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /t REG_DWORD /d %crt% /f >nul 2>nul
echo.
set /a crt=%crt%+1
   if %crt% equ 1 (
   reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /f >nul 2>nul
   echo   Desktop context menu is enabled !
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   goto result
 )
   if %crt% equ 2 (
   echo   Desktop context menu is disabled !
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   goto result
 )


:: OPTION 8  OUTIL DE SAUVEGARDE ET DE RESTAURATION DE LA BASE DE REGISTRE
 
:m8
:m08
cls
:err8
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º    Reg Backup    º   The 18/03/2012 at 18:50
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Registry Backup Tool [Raphael B. idea]
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³      Reg Backup      ³  ³ 02 ³     Reg Restore     ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
   if not exist "%rtwinpath%\RegBackUp" (
   echo   WARNING : You do not have a backup !
   echo.
 )
   if exist "%rtwinpath%\RegBackUp\*.reg" (
   echo   Note : You have a backup.
      if exist "%rtwinpath%\RegBackUp\datinfo.rbt" (
      type "%rtwinpath%\RegBackup\datinfo.rbt" 2>nul
      echo.
      ) else (
      echo.
    )
 )
set /p crt="1 or 2 : "
echo.
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 1 goto backup
   if %crt% equ 2 if exist "%rtwinpath%\RegBackUp" (
   goto restore
   ) else (
   cls
   echo You don't have any registry backup, so you cannot restore it.
   goto err8
 )
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err8
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err8
 )
:backup
echo   Loading, backup in progress...
   if not exist "%rtwinpath%\RegBackUp" md "%rtwinpath%\RegBackUp"
echo.
echo step 1/5
reg export HKLM "%rtwinpath%\RegBackUp\HKLM.reg" /y >nul 2>nul
echo Done !
echo.
echo step 2/5
reg export HKCR "%rtwinpath%\RegBackUp\HKCR.reg" /y >nul 2>nul
echo Done !
echo.
echo step 3/5
reg export HKCU "%rtwinpath%\RegBackUp\HKCU.reg" /y >nul 2>nul
echo Done !
echo.
echo step 4/5
reg export HKCC "%rtwinpath%\RegBackUp\HKCC.reg" /y >nul 2>nul
echo Done !
echo.
echo step 5/5
reg export HKU "%windir%\RegsitryTool\RegBackUp\HKU.reg" /y >nul 2>nul
echo Done !
echo.
echo   Your last registry backup was made on %date% at %time%. >"%rtwinpath%\RegBackup\datinfo.rbt"
echo   You've restored the registry backup of %date%, %time%. >"%rtwinpath%\RegBackup\restdatinfo.rbt"
echo.
echo   Backup in : "%rtwinpath%\RegBackUp\"
echo.
goto result
:restore
echo   Loading, restore in progress...
echo.
echo step 1/5
reg import "%rtwinpath%\RegBackUp\HKLM.reg" >nul 2>nul
echo Done !
echo.
echo step 2/5
reg import "%rtwinpath%\RegBackUp\HKCR.reg" >nul 2>nul
echo Done !
echo.
echo step 3/5
reg import "%rtwinpath%\RegBackUp\HKCU.reg" >nul 2>nul
echo Done !
echo.
echo step 4/5
reg import "%rtwinpath%\RegBackUp\HKCC.reg" >nul 2>nul
echo Done !
echo.
echo step 5/5
reg import "%rtwinpath%\RegBackUp\HKU.reg" >nul 2>nul
echo Done !
echo.
type "%rtwinpath%\RegBackup\restdatinfo.rbt" 2>nul
echo.
goto result
 
:: OPTION 9  CONFIGURATION DES LOGICIELS EXECUTES AUTOMATIQUEMENT AU DEMARRAGE DE WINDOWS

:m9
:m09
cls
:err9
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º   Startup Soft   º   The 19/03/2012 at 18:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Modify the Autorun Program List
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³      Add program      ³  ³ 02 ³    Delete program    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err9
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err9
 )
echo.
:askprogpath
"%rtwinpath%\BrowseForFile.vbs"
   if errorlevel 1 goto oldaskprogpath
   for /f %%i in ("%rtwinpath%\path9.txt") do set sizepath9=%%~zi
      if sizepath9 equ 0 goto menu
   for /f "delims=" %%a in ('type "%rtwinpath%\path9.txt"') do set prt=%%a
      if errorlevel 1 goto errenu
goto operate9
:oldaskprogpath
set /p prt="Program path (without quotes) : "
   if "%prt%"=="" (
   echo.
   echo Program path cannot be empty !
   echo.
   echo.
   goto oldaskprogpath
 )
:operate9
echo.
echo Program path is "%prt%"
echo.
   if %crt% equ 1 (
   reg add HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "%prt%" /t REG_SZ /d "%prt%" /f >nul 2>nul
   echo "%prt%" has been added to the startup programs list.
 )
   if %crt% equ 2 (
   reg delete HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v "%prt%" /f >nul 2>nul
      if errorlevel 1 (
      echo "%prt%" seems to don't be in the autorun programs list.
      goto result
    )
   echo "%prt%" has been deleted from the startup programs list.
 )
goto result

:: OPTION 10  CONFIGURATION D'AFFICHAGE DES FICHIERS ET DOSSIERS DE WINDOWS (fichiers et dossiers cachés, extension de fichiers connus ...)
 
:m10
cls
:err10
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º     Folder     º   The 19/03/2012 at 18:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Folders Properties [Pierre J. idea]
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show or Hide hidden files ^& Folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Show or hide known files extension  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto m10
   if /I "%crt%"=="exit" goto m10
   if /I "%crt%"=="quit" goto m10
   if /I "%crt%"=="retour" goto m10
   if %crt% equ 1 goto hiddenFF
   if %crt% equ 2 goto knownEF
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err10
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err10
 )
:hiddenFF
cls
:err102
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show hidden files ^& folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³ Hide hidden files ^& folders  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto m10
   if /I "%crt%"=="exit" goto m10
   if /I "%crt%"=="quit" goto m10
   if /I "%crt%"=="retour" goto m10
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err102
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err102
 )
echo.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Hidden /t REG_DWORD /d %crt% /f >nul 2>nul
   if %crt% equ 1 (echo   Hidden files ^& folders are visible.) else (echo   Hidden files ^& folders are invisible.)
   if exist "%rtwinpath%\NoTskill.vbs" (
   "%rtwinpath%\VBSKillExp.vbs"
   ) else (
   tskill explorer 2>nul
 )
goto result
 
:knownEF
cls
:err103
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³ Show known files extensions ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³ Hide known files extensions ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto m10
   if /I "%crt%"=="exit" goto m10
   if /I "%crt%"=="quit" goto m10
   if /I "%crt%"=="retour" goto m10
set /a crt=%crt%-1
   if %crt% gtr 1 (
   echo 
   cls
   echo Invalid choice !
   goto err103
 )
   if %crt% lss 0 (
   echo 
   cls
   echo Invalid choice !
   goto err103
 )
echo.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v HideFileExt /t REG_DWORD /d %crt% /f >nul 2>nul
   if %crt% equ 1 (echo   Known files extensions are invisible.) else (echo   Known files extensions are visible.)
set /a crt=%crt%+1
   if exist "%rtwinpath%\NoTskill.vbs" (
   "%rtwinpath%\VBSKillExp.vbs"
   ) else (
   tskill explorer 2>nul
 )
goto result
 
:: OPTION 11  CONFIGURATION DES BOUTTONS PRESENTS DANS LE MENU DEMARRER SUR LE PANNEAU DE DROITE (Ordinateur, mes documents, jeux, ma musique, mes vidéos, téléchargements, ...)

:m11
cls
:err11
mode con cols=73 lines=24
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º     Taskbar     º   The 22/03/2012 at 22:35
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Customize Taskbar ^& Start Menu
echo.
echo.
echo  Customize taskbar ^& start menu + windows update ^& other tweaks
echo.
echo.
echo     ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿     ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo     ³ 01 ³  Choose shown buttons  ³     ³ 02 ³  Choose hidden buttons  ³
echo     ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ     ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿          ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 03 ³  Configure Windows Update  ³          ³ 04 ³   other   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ          ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt="1, 2, 3 or 4 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 1 goto showb
   if %crt% equ 2 goto hideb
   if %crt% equ 3 goto winupdate
   if %crt% equ 4 goto othersb
   if %crt% gtr 4 (
   echo 
   cls
   echo Invalid choice !
   goto err11
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err11
 )
:showb
cls
:err112
echo               ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo               ³ 01 ³   Choose buttons you want to show   ³
echo               ³    ³                                     ³
echo            ÚÄÄÅÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄ¿
echo            ³ 1³    Hard Disk Dirve    ³       Music      ³4 ³
echo            ³ 2³      User folder      ³     Pictures     ³5 ³
echo            ³ 3³       Documents       ³      Videos      ³6 ³
echo            ÃÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄ´
echo            ³ 7³     Control Panel     ³    Recorded TV   ³11³
echo            ³ 8³  Administrative Tools ³     Downloads    ³12³
echo            ³ 9³         Run...        ³  Help ^& Support  ³13³
echo            ³10³        Network        ³       Games      ³14³
echo            ÀÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÙ
echo.
echo Note : choose all options you want to show in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:1choice
set cho=
set /p cho="Choice : "
   if %cho% equ 1 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Computer" button is now visible !
   goto 1choice
 )
   if %cho% equ 2 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 1 /f >nul 2>nul
   echo "User folder" button is now visible !
   goto 1choice
 )
   if %cho% equ 3 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 1 /f >nul 2>nul
   echo "My documents" button is now visible !
   goto 1choice
 )
   if %cho% equ 4 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 1 /f >nul 2>nul
   echo "My music" button is now visible !
   goto 1choice
 )
   if %cho% equ 5 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 1 /f >nul 2>nul
   echo "My pictures" button is now visible !
   goto 1choice
 )
   if %cho% equ 6 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 1 /f >nul 2>nul
   echo "My videos" button is now visible !
   goto 1choice
 )
   if %cho% equ 7 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Control panel" button is now visible !
   goto 1choice
 )
   if %cho% equ 8 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Administrative tools" button is now visible !
   goto 1choice
 )
   if %cho% equ 9 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Run command" button is now visible !
   goto 1choice
 )
   if %cho% equ 10 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Network" button is now visible !
   goto 1choice
 )
   if %cho% equ 11 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Recorded TV" button is now visible !
   goto 1choice
 )
   if %cho% equ 12 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Downloads" button is now visible !
   goto 1choice
 )
   if %cho% equ 13 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Help" button is now visible !
   goto 1choice
 )
   if %cho% equ 14 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 1 /f >nul 2>nul
   echo "Games" button is now visible !
   goto 1choice
 )
   if /I "%cho%"=="back" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if /I "%cho%"=="exit" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if /I "%cho%"=="retour" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if /I "%cho%"=="quit" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if %cho% gtr 14 (
   echo 
   cls
   echo Invalid choice !
   goto err112
 )
   if %cho% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err112
 )

:hideb
cls
:err113
echo.
echo               ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo               ³ 02 ³   Choose buttons you want to hide   ³
echo               ³    ³                                     ³
echo            ÚÄÄÅÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄ¿
echo            ³ 1³    Hard Disk Dirve    ³       Music      ³4 ³
echo            ³ 2³      User folder      ³     Pictures     ³5 ³
echo            ³ 3³       Documents       ³      Videos      ³6 ³
echo            ÃÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄ´
echo            ³ 7³     Control Panel     ³    Recorded TV   ³11³
echo            ³ 8³  Administrative Tools ³     Downloads    ³12³
echo            ³ 9³         Run...        ³  Help ^& Support  ³13³
echo            ³10³        Network        ³       Games      ³14³
echo            ÀÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÙ
echo.
echo Note : choose all options you want to hide in the
echo        Start Menu one by one (press "enter" after
echo        each one) to come back to the main menu,
echo        enter "quit" as choice.                             
echo.
:2choice
set cho=
set /p cho="Choice : "
   if %cho% equ 1 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyComputer /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Computer" button isn't visible !
   goto 2choice
 )
   if %cho% equ 2 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowUser /t REG_DWORD /d 0 /f >nul 2>nul
   echo "User folder" button isn't visible !
   goto 2choice
 )
   if %cho% equ 3 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyDocs /t REG_DWORD /d 0 /f >nul 2>nul
   echo "My documents" button isn't visible !
   goto 2choice
 )
   if %cho% equ 4 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyMusic /t REG_DWORD /d 0 /f >nul 2>nul
   echo "My music" button isn't visible !
   goto 2choice
 )
   if %cho% equ 5 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyPics /t REG_DWORD /d 0 /f >nul 2>nul
   echo "My pictures" button isn't visible !
   goto 2choice
 )
   if %cho% equ 6 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowVideos /t REG_DWORD /d 0 /f >nul 2>nul
   echo "My videos" button isn't visible !
   goto 2choice
 )
   if %cho% equ 7 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowControlPanel /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Control panel" button isn't visible !
   goto 2choice
 )
   if %cho% equ 8 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_AdminToolsRoot /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Administrative tools" button isn't visible !
   goto 2choice
 )
   if %cho% equ 9 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRun /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Run command" button isn't visible !
   goto 2choice
 )
   if %cho% equ 10 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowNetPlaces /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Network" button isn't visible !
   goto 2choice
 )
   if %cho% equ 11 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowRecordedTV /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Recorded TV" button isn't visible !
   goto 2choice
 )
   if %cho% equ 12 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowDownloads /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Downloads" button isn't visible !
   goto 2choice
 )
   if %cho% equ 13 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowHelp /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Help" button isn't visible !
   goto 2choice
 )
   if %cho% equ 14 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_ShowMyGames /t REG_DWORD /d 0 /f >nul 2>nul
   echo "Games" button isn't visible !
   goto 2choice
 )
   if /I "%cho%"=="back" (
   tskill explorer 2>nul
      if errorlevel 1 "%rtwinpath%\notskill.vbs"
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if /I "%cho%"=="exit" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if /I "%cho%"=="retour" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if /I "%cho%"=="quit" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cho%
   mode con cols=71 lines=24
   goto result
 )
   if %cho% gtr 14 (
   echo 
   cls
   echo Invalid choice !
   goto err113
 )
   if %cho% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err113
 )
:winupdate
mode con cols=71 lines=24
cls
:err117
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Enable Windows Update  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Disable Windows Update  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto m11
   if /I "%crt%"=="exit" goto m11
   if /I "%crt%"=="quit" goto m11
   if /I "%crt%"=="retour" goto m11
   if %crt% equ 1 goto enawinupdate
   if %crt% equ 2 goto diswinupdate
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err117
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err117
 )
:enawinupdate
reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies /v DisableWindowsUpdateAccess /f >nul 2>nul
reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoWindowsUpdate /f >nul 2>nul
echo.
echo Windows update is enabled !
echo.
echo   Note : Please wait a few seconds for changes to take effect.
goto result
:diswinupdate
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies /v DisableWindowsUpdateAccess /t REG_DWORD /d 1 /f >nul 2>nul
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoWindowsUpdate /t REG_DWORD /d 1 /f >nul 2>nul
echo.
echo Windows update is disabled !
echo.
echo   Note : Please wait a few seconds for changes to take effect.
goto result


:: PETIT + DE L'OPTION 11  CONFIGURATION DE L'ACTION DU BOUTTON D'ARRET DU MENU DEMARRER, COLORATION DES DOSSIERS COMPRESSES, CONFIGURATION DU NOMBRE MAXIMAL DE FICHIERS DANS L'EMPLACEMENT RECENT (CLIC DROIT SUR L'ICONE DE L'EXPLORATEUR WINDOWS DANS LA BARRE DES TACHES)

:othersb
cls
mode con cols=71 lines=24
:err114
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 03 ³  Power button action  ³   ³ 04 ³ Color compressed folders ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo                ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo                ³ 05 ³Set maximum files in Jump List³
echo                ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p "crt=3, 4 or 5 : "
   if /I "%crt%"=="back" goto m11
   if /I "%crt%"=="exit" goto m11
   if /I "%crt%"=="quit" goto m11
   if /I "%crt%"=="retour" goto m11
   if %crt% equ 3 goto pwract
   if %crt% equ 4 goto clrcpsdfldr
   if %crt% equ 5 goto stmxflsjmplst
   if %crt% gtr 5 (
   echo 
   cls
   echo Invalid choice !
   goto err114
 )
   if %crt% lss 3 (
   echo 
   cls
   echo Invalid choice !
   goto err114
 )
:pwract
cls
mode con cols=71 lines=27
:err115
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo   º    Power button action    º
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo   Set to power button function of :
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³    Switch User    ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 02 ³      Log off      ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 03 ³   Lock Session    ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 04 ³ Restart Computer  ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 05 ³       Sleep       ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 06 ³     Hibernate     ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 07 ³ Shutdown computer ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Note : Enter "quit" as choice to
echo          come back to the main menu.
echo.
set /p cha="Choice : "
echo.
   if %cha% equ 1 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 256 /f >nul 2>nul
   echo Power button's function is now "Switch user".
 )
   if %cha% equ 2 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 1 /f >nul 2>nul
   echo Power button's function is now "Log off".
 )
   if %cha% equ 3 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 512 /f >nul 2>nul
   echo Power button's function is now "Lock session".
 )
   if %cha% equ 4 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 4 /f >nul 2>nul
   echo Power button's function is now "Restart computer".
 )
   if %cha% equ 5 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 16 /f >nul 2>nul
   echo Power button's function is now "Sleep".
 )
   if %cha% equ 6 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 64 /f >nul 2>nul
   echo Power button's function is now "Hibernate".
   echo.
   echo   Note : This will not work if you've disabled
   echo          the hibernate function.
 )
   if %cha% equ 7 (
   reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_PowerButtonAction /t REG_DWORD /d 2 /f >nul 2>nul
   echo Power button's function is now "Shutdown computer".
 )
   if /I "%cha%"=="back" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cha%
   goto result
 )
   if /I "%cha%"=="exit" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cha%
   goto result
 )
   if /I "%cha%"=="retour" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cha%
   goto result
 )
   if /I "%cha%"=="quit" (
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   set crt=%cha%
   goto result
 )
   if %cha% gtr 7 (
   echo 
   cls
   echo Invalid choice !
   goto err115
 )
   if %cha% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err115
 )
   if exist "%rtwinpath%\NoTskill.vbs" (
   "%rtwinpath%\VBSKillExp.vbs"
   ) else (
   tskill explorer 2>nul
 )
goto result

:clrcpsdfldr
cls
:err116
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Disable compressed folders color  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Enable compressed folders color   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p chz="1 or 2 : "
   if /I "%chz%"=="back" goto m114
   if /I "%chz%"=="exit" goto m114
   if /I "%chz%"=="quit" goto m114
   if /I "%chz%"=="retour" goto m114
set /a chz=%chz%-1
   if %chz% gtr 1 (
   echo 
   cls
   echo Invalid choice !
   goto err116
 )
   if %chz% lss 0 (
   echo 
   cls
   echo Invalid choice !
   goto err116
 )
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v ShowCompColor /t REG_DWORD /d %chz% /f >nul 2>nul

echo.
   if %chz% equ 0 (echo Compressed folder color disabled.) else (echo Compressed folder color enabled.)
set chr=%chz%+1
goto result
 
:stmxflsjmplst
cls
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 05 ³ Set maximum files in jump list ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
:errstmxfljpls
set chr=
set /p chr="Choice (0-9999...) : "
   if /I "%chr%"=="back" goto m114
   if /I "%chr%"=="exit" goto m114
   if /I "%chr%"=="quit" goto m114
   if /I "%chr%"=="retour" goto m114
   if "%chr%"=="" (
   echo.
   echo Choice cannot be empty !
   echo.
   echo.
   goto errstmxfljpls
 )
echo.
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v Start_JumpListItems /t REG_DWORD /d %chr% /f >nul 2>nul
   if %chr% equ 1 (echo Jump list can now contain 1 item.)
   if %chr% lss 1 (echo Jump list cannot contain any item.)
   if %chr% gtr 1 (echo Jump list can now contain %chr% items.)
goto result
 
:: OPTION 12  CONFIGURATION DE LA FONCTION AUTORUN DES MEDIAS AMOVIBLES

:m12
cls
:err12
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Pierre JOUSSAIN
echo   º   USB Autorun   º   The 31/03/2012 at 21:04
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : USB Autorun Security Tweak
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³   Enable Autorun    ³  ³ 02 ³   Disable Autrun    ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.     
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 1 (
   reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x91 >nul 2>nul
   echo.
   echo Autorun function is now enabled
   echo.
   echo    Note : please pay attention, if the removable media is infected,
   echo           your computer could also be infected
   echo           because of the Autorun function.
 )
   if %crt% equ 2 (
   reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 0x4 >nul 2>nul
   echo.
   echo Autorun function is now disabled
   echo.
   echo    Note : This could be binding for you,
   echo           but it's safer for your computer
   echo           and its security.
 )
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err12
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err12
 )
goto result


:: OPTION 13  CONFIGURE L'ACCESS A CMD.exe (.bat et .cmd), AU GESTIONNAIRE DES TÂCHES ET AU PANNEAU DE CONFIGURATION.

:m13
cls
:err13
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º  Administrative Tweaks  º   The 22/08/2014 at 21:52
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Administrative Tweaks
echo.
echo     ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo     ³ 01 ³  Configure CMD.exe access  ³
echo     ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Configure Task Manager access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 03 ³  Configure Control Panel access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p crt="1, 2 or 3 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 1 goto cmdaccess
   if %crt% equ 2 goto taskmgraccess
   if %crt% equ 3 goto cpanelaccess
   if %crt% gtr 3 (
   echo 
   cls
   echo Invalid choice !
   goto err13
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err13
 )
:cmdaccess
cls
:err131
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Enable CMD ^& .bat ^& .cmd files   ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Disable CMD ^& .bat ^& .cmd files  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo           ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿       
echo           ³ 03 ³  Disable CMD only  ³
echo           ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt="1, 2 or 3 : "
   if /I "%crt%"=="back" goto m13
   if /I "%crt%"=="exit" goto m13
   if /I "%crt%"=="quit" goto m13
   if /I "%crt%"=="retour" goto m13
   if %crt% gtr 3 (
   echo 
   cls
   echo Invalid choice !
   goto err131
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err131
 )
set /a crt=%crt%-1
reg add HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System /v DisableCMD /t REG_DWORD /d %crt% /f >nul 2>nul
echo.
set /a crt=%crt%+1
   if %crt% equ 1 (
   echo   CMD.exe, .bat ^& .cmd files are enabled !
   goto result
 )
   if %crt% equ 2 (
   echo   CMD.exe, .bat ^& .cmd files are disabled !
   goto result
 )
   if %crt% equ 3 (
   echo   Only CMD.exe is disabled !
   goto result
 )
:taskmgraccess
cls
:err132
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Enable Task Manager access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Disable Task Manager Access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto m13
   if /I "%crt%"=="exit" goto m13
   if /I "%crt%"=="quit" goto m13
   if /I "%crt%"=="retour" goto m13
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err132
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err132
 )
set /a crt=%crt%-1
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d %crt% /f >nul 2>nul
echo.
set /a crt=%crt%+1
   if %crt% equ 1 (
   echo   Task Manager is enabled !
   goto result
 )
   if %crt% equ 2 (
   echo   Task Manager is Disabled !
   goto result
 )
:cpanelaccess
cls
:err133
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Enable Control Panel access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 02 ³  Disable Control Panel access  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set crt=
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto m13
   if /I "%crt%"=="exit" goto m13
   if /I "%crt%"=="quit" goto m13
   if /I "%crt%"=="retour" goto m13
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err133
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err133
 )
set /a crt=%crt%-1
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d %crt% /f >nul 2>nul
echo.
set /a crt=%crt%+1
   if %crt% equ 1 (
   echo   Control Panel is enabled !
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   goto result
 )
   if %crt% equ 2 (
   echo   Control Panel is disabled !
      if exist "%rtwinpath%\NoTskill.vbs" (
      "%rtwinpath%\VBSKillExp.vbs"
      ) else (
      tskill explorer 2>nul
    )
   goto result
 )


:m14
cls
mode con cols=73 lines=24
:err14
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : R. BERTEAUD ^& [BlastKiller]
echo   º   System Informations   º   The 26/08/2014 at 17:31
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : System Informations
echo.
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³ 01 ³  Software Informations  ³   ³ 02 ³  Hardware Informations  ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
   if exist "%rtwinpath%\Sysinfo" (
   goto sysexstart
   ) else (
   md "%rtwinpath%\Sysinfo"
 )
:sysexstart
set /p crt="1 or 2 : "
   if /I "%crt%"=="back" goto menu
   if /I "%crt%"=="exit" goto menu
   if /I "%crt%"=="quit" goto menu
   if /I "%crt%"=="retour" goto menu
   if %crt% equ 1 goto softinfo
   if %crt% equ 2 goto hardinfo
   if %crt% gtr 2 (
   echo 
   cls
   echo Invalid choice !
   goto err14
 )
   if %crt% lss 1 (
   echo 
   cls
   echo Invalid choice !
   goto err14
 )
:hardinfo
echo.
echo Please wait...
echo.
echo  ÀÄÄÄ^>Loading hardware informations :
echo    ÀÄÄÄ^>Loading motherboard informations
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\ACPI ^| findstr ACPI\ 2^>nul') do call :mb %%a
goto nextmb
:mb
set mbvar=%1
   for /f "delims=" %%b in ('reg query %mbvar% ^| findstr %mbvar%\ ^| findstr /v /e _ 2^>nul') do set mbvar1=%%b
:nextmb
   for /f "delims=" %%c in ('reg query %mbvar1% ^| findstr %mbvar1%\ 2^>nul') do set mb=%%c
set mbsys=%mb:~38,100%
echo Motherboard : %mbsys% >"%rtwinpath%\Sysinfo\motinf.sys"
set mb=%mb:~38,47%
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System /v SystemBiosVersion ^| findstr "Bios" 2^>nul') do set bios="%%a"
echo    ÀÄÄÄ^>Loading bios informations
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System\BIOS /v BIOSVersion ^| findstr "BIOSV" 2^>nul') do set biosver="%%a"
set biossys=%bios:~42,100%
set biossys=%biossys:"=%
set biosversys=%biosver:~30,100%
set biosversys=%biosversys:"=%
echo BIOS : %biossys% -- %biosversys% >"%rtwinpath%\Sysinfo\bioinf.sys"
set bios=%bios:~42,47%
set bios=%bios:"=%
set biosver=%biosver:~30,47%
set biosver=%biosver:"=%
echo    ÀÄÄÄ^>Loading CPU informations
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0 /v ProcessorNameString ^| findstr "NameString" 2^>nul') do set proc="%%a"
set procsys=%proc:~38,100%
set procsys=%procsys:"=%
echo Processor : %procsys% >"%rtwinpath%\Sysinfo\proinf.sys"
set proc=%proc:~38,47%
set proc=%proc:"=%
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0 /v Identifier ^| findstr "Identifier" 2^>nul') do set procid="%%a"
set procidsys=%procid:~29,100%
set procidsys=%procidsys:"=%
echo Processor Identifier : %procidsys% >"%rtwinpath%\Sysinfo\pidinf.sys"
set procid=%procid:~29,47%
set procid=%procid:"=%
echo    ÀÄÄÄ^>Loading frequency informations
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0 /v ~MHz ^| findstr "MHz"') do set cpu="%%a"
set cpu=%cpu:~25,10%
set cpu=%cpu:"=%
set cpu=%cpu:x=%
set cpu1=%cpu:~-1%
set cpu2=%cpu:~-2%
set cpu2=%cpu2:~0,1%
set cpu3=%cpu:~-3%
set cpu3=%cpu3:~0,1%
   if %cpu1%==a set cpu1=10
   if %cpu1%==b set cpu1=11
   if %cpu1%==c set cpu1=12
   if %cpu1%==d set cpu1=13
   if %cpu1%==e set cpu1=14
   if %cpu1%==f set cpu1=15
   if %cpu2%==a set cpu2=10
   if %cpu2%==b set cpu2=11
   if %cpu2%==c set cpu2=12
   if %cpu2%==d set cpu2=13
   if %cpu2%==e set cpu2=14
   if %cpu2%==f set cpu2=15
   if %cpu3%==a set cpu3=10
   if %cpu3%==b set cpu3=11
   if %cpu3%==c set cpu3=12
   if %cpu3%==d set cpu3=13
   if %cpu3%==e set cpu3=14
   if %cpu3%==f set cpu3=15
set /a cpu2=%cpu2%*16
set /a cpu3=%cpu3%*16*16
set /a cpu=%cpu1%+%cpu2%+%cpu3%
set mhz=MHz
   if %number_of_processors% gtr 1 (
   set processor_s%=processors
   ) else (
   set processor_s=processor
 )
   if not defined number_of_processors (
   set number_of_processors=
   set processor_s=
 )
echo Architecture ^& Frequency %number_of_processors% %processor_s% (%processor_architecture%) %cpu% %mhz% >"%rtwinpath%\Sysinfo\cpuinf.sys"
echo    ÀÄÄÄ^>Loading graphic card informations
   for /f "delims=" %%a in ('reg query HKLM\SYSTEM\CurrentControlSet\Control\Video /s ^| findstr /e "\0000\Settings" 2^>nul') do call :gc "%%a"
goto nextgc
:gc
set gcvar=%1
reg query %gcvar% /v Mirrordriver >nul 2>nul
set gc=%gcvar%
:nextgc
   for /f "delims=" %%a in ('reg query %gc% /v "Device Description" ^| findstr "Device" 2^>nul') do set gc="%%a"
set gcsys=%gc:~37,100%
set gcsys=%gcsys:"=%
echo Graphic card : %gcsys% >"%rtwinpath%\Sysinfo\gcsinf.sys"
set gc=%gc:~37,47%
set gc=%gc:"=%
echo    ÀÄÄÄ^>Loading hard drive informations
   for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DEVICEMAP\Scsi /s ^| findstr "Logical" 2^>nul') do call :dd "%%a"
:dd
set ddvar=%1
   for /f "delims=" %%b in ('reg query %ddvar% /v Identifier ^| findstr "Identifier" 2^>nul') do set dd=%%b
set ddsys=%dd:~28,100%
set ddsys=%ddsys:"=%
echo Hard Disk Drive (or Solid State Drive) : %ddsys% >"%rtwinpath%\Sysinfo\hsdinf.sys"
set dd=%dd:~28,47%
set dd=%dd:"=%
:manufact
echo    ÀÄÄÄ^>Loading product name
   for /f "delims=" %%a in ('reg query HKLM\SYSTEM\CurrentControlSet\Control\SystemInformation ^| findstr "SystemManufacturer" 2^>nul') do set mf="%%a"
:productname
   for /f "delims=" %%a in ('reg query HKLM\SYSTEM\CurrentControlSet\Control\SystemInformation ^| findstr "SystemProductName" 2^>nul') do set pn="%%a"
set pnsys=%pn:~36,100%
set pnsys=%pnsys:"=%
set mfsys=%mf:~37,100%
set mfsys=%mfsys:"=%
echo Computer informations : %mfsys% %pnsys% >"%rtwinpath%\Sysinfo\cominf.sys"
set pn=%pn:~36,47%
set pn=%pn:"=%
set mf=%mf:~37,47%
set mf=%mf:"=%
set dblt=ÄÄ
echo    ÀÄÄÄ^>Loading RAM informations
   if not exist "%rtwinpath%\All System Informations.txt" (
      for /f "delims=" %%a in ('systeminfo 2^>nul ^| find /I "total"') do set totalram="%%a"
    ) else (
      for /f "delims=" %%a in ('type "%rtwinpath%\All System Informations.txt" ^| find /I "total"') do set totalram="%%a"
 )
ping 127.0.0.1 /n 2 >nul 2>nul
set totalram=%totalram:~45,47%
set totalram=%totalram:"=%
set totalram=%totalram:ÿ=%
echo Random Access Memory : %totalram% >"%rtwinpath%\Sysinfo\raminf.sys"
   if exist "%rtwinpath%\Sysinfo\allinf.sys" (
   echo. >>"%rtwinpath%\Sysinfo\allinf.sys"
   ) else (
   echo. >"%rtwinpath%\Sysinfo\allinf.sys"
 )
echo   ----------------------- >>"%rtwinpath%\Sysinfo\allinf.sys"
echo    Hardware Informations >>"%rtwinpath%\Sysinfo\allinf.sys"
echo   ----------------------- >>"%rtwinpath%\Sysinfo\allinf.sys"
echo. >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Computer informations : %mfsys% %pnsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Motherboard : %mbsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo BIOS : %biossys% -- %biosversys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Processor : %procsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Architecture ^& Frequency : %number_of_processors% %processor_s% (%processor_architecture%) %cpu% %mhz% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Processor Identifier : %procidsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Random Access Memory : %totalram% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Graphic card : %gcsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Hard Disk Drive (or Solid State Drive) : %ddsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo. >>"%rtwinpath%\Sysinfo\allinf.sys"
cls
mode con cols=74 lines=32
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : [BlastKiller] ^& R. BERTEAUD
echo   º  Hardware Informations  º   The 26/08/2014 at 17:31
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : System Informations
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³  Hardware type  ³ Hardware information                           ³
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
   if "%pn%"=="~36,47" set pn=...
   if "%mf%"=="~37,47" set mf=Unknown
echo   ³  Computer info  ³ %mf% %pn%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%mb%"=="~38,47" set mb=Unknown
echo   ³   Motherboard   ³ %mb%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%bios%"=="~42,47" set bios=Unknown
   if "%biosver%"=="~30,47" set biosver=
   if "%biosver%"=="~30,47" set dblt=
echo   ³      BIOS       ³ %bios% %dblt% %biosver%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%proc%"=="~38,47" set proc=Unknown
echo   ³    Processor    ³ %proc%
   if "%cpu%"=="~25,10" (
   set cpu=Unknown
   set mhz=
 )
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
echo   ³     A ^& F *     ³ %number_of_processors% %processor_s% (%processor_architecture%) %cpu% %mhz%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%procid%"=="~29,47" set procid=Unknown
echo   ³  CPU Identifier ³ %procid%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%totalram%"=="~45,47" set totalram=Unknown
echo   ³  Total RAM size ³ %totalram%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%gc%"=="~37,47" set gc=Standard VGA Graphics Adapter
echo   ³   Graphic card  ³ %gc%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%dd%"=="~28,47" set dd=Unknown
echo   ³   Disk drive    ³ %dd%
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo  * A ^& F = Architecture ^& Frequency
echo.
   if not exist "%rtwinpath%\All System Informations.txt" (
   echo Please, wait...
   systeminfo >"%rtwinpath%\All System Informations.txt"
   goto end14
 ) else (goto end14)
:softinfo
echo Please wait...
echo.
echo  ÀÄÄÄ^>Loading software informations :
echo    ÀÄÄÄ^>Loading Operating System informations
:win
   for /f "delims=" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ProductName ^| findstr "Windows" 2^>nul') do set win="%%a"
set winsys=%win:~30,100%
set winsys=%winsys:"=%
reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node" >nul 2>nul
   if errorlevel 1 (
   set nbbits=32
   ) else (
   set nbbits=64
 )
echo Operating system : %winsys% %nbbits% bits >"%rtwinpath%\Sysinfo\wininf.sys"
set win=%win:~30,47%
set win=%win:"=%
echo    ÀÄÄÄ^>Loading Service Pack informations
:csd
   for /f "delims=" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CSDVersion ^| findstr "Service Pack" 2^>nul') do set csd="%%a"
set csdsys=%csd:~29,100%
set csdsys=%csdsys:"=%
echo %winsys% Service Pack : %csdsys% >"%rtwinpath%\Sysinfo\csdinf.sys"
set csd=%csd:~29,47%
set csd=%csd:"=%
echo    ÀÄÄÄ^>Loading OS Version informations
:ver
   for /f "delims=" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion 2^>nul') do set ver="%%a"
set versys=%ver:~33,100%
set versys=%versys:"=%
echo %winsys% Version : %versys% >"%rtwinpath%\Sysinfo\verinf.sys"
set ver=%ver:~33,47%
set ver=%ver:"=%
echo    ÀÄÄÄ^>Loading OS build informations
:cbn
   for /f "delims=" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentBuild 2^>nul') do set cbn="%%a"
set cbnsys=%cbn:~31,100%
set cbnsys=%cbnsys:"=%
echo %winsys% Build : %cbnsys% >"%rtwinpath%\Sysinfo\bldinf.sys"
set cbn=%cbn:~31,47%
set cbn=%cbn:"=%
echo    ÀÄÄÄ^>Loading type of system informations
   if not exist "%rtwinpath%\All System Informations.txt" (
      for /f "delims=" %%a in ('systeminfo 2^>nul ^| find /I "-based"') do set archbsdpc="%%a"
    ) else (
      for /f "delims=" %%a in ('type "%rtwinpath%\All System Informations.txt" ^| find /I "-based"') do set archbsdpc="%%a"
 )
set archbsdpc=%archbsdpc:~45,3%
   if "%archbsdpc%"=="x64" (
   set archbits=64 bits
   ) else (
   set archbits=32 bits
 )
echo Type of system : %archbsdpc% ^(%archbits%^) >"%rtwinpath%\Sysinfo\tosinf.sys"
echo    ÀÄÄÄ^>Loading boot mode informations
   if not defined safeboot_option (
   set bootmode=Normal
   ) else (
   set bootmode=Safeboot
 )
echo Boot Mode : %bootmode% >"%rtwinpath%\Sysinfo\bnsinf.sys"
   if exist "%rtwinpath%\Sysinfo\allinf.sys" (
   echo. >>"%rtwinpath%\Sysinfo\allinf.sys"
   ) else (
   echo. >"%rtwinpath%\Sysinfo\allinf.sys"
 )
echo   ----------------------- >>"%rtwinpath%\Sysinfo\allinf.sys"
echo    Software Informations >>"%rtwinpath%\Sysinfo\allinf.sys"
echo   ----------------------- >>"%rtwinpath%\Sysinfo\allinf.sys"
echo. >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Operating system : %winsys% %nbbits% bits >>"%rtwinpath%\Sysinfo\allinf.sys"
echo %winsys% Service Pack : %csdsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo %winsys% Version : %versys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo %winsys% Build : %cbnsys% >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Type of system : %archbsdpc% ^(%archbits%^) >>"%rtwinpath%\Sysinfo\allinf.sys"
echo Boot Mode : %bootmode% >>"%rtwinpath%\Sysinfo\allinf.sys"
ping 127.0.0.1 /n 2 >nul 2>nul
cls
mode con cols=71 lines=25
echo.
echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»   Command by : Raphael BERTEAUD
echo   º  Software Informations  º   The 28/08/2014 at 12:23
echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   Note : Software Informations
echo.
echo   ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo   ³  Software type   ³ Software information                        ³
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
   if "%win%"=="~30,47" set win=Unknown
echo   ³ Operating System ³ %win% %nbbits% bits
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%csd%"=="~29,47" set csd=Unknown
echo   ³   Service Pack   ³ %csd%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%ver%"=="~33,47" set ver=Unknown
echo   ³     Version      ³ %ver%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
   if "%cbn%"=="~31,47" set cbn=Unknown
echo   ³      Build       ³ %cbn%
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
echo   ³  Type of system  ³ %archbsdpc% (%archbits%)
echo   ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
echo   ³     Boot Mode    ³ %bootmode%
echo   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ^>
echo.
   if not exist "%rtwinpath%\All System Informations.txt" (
   echo Please, wait...
   systeminfo >"%rtwinpath%\All System Informations.txt"
 )

:end14
echo.
echo Press any key...
pause >nul
mode con cols=71 lines=24
goto menu


:: OPTION 15  AIDE

:m15
mode con cols=135 lines=32
color f0
cls
echo (en) Help Notes : Please run Registry Tool as Administrator.
echo.
echo Registry backups : It is highly preferable to save the entire registry before starting Registry Tool.
echo Note that this backup is performed automatically by default at the first startup of the program.
echo The files are stored in the directory "%rtwinpath%\RegBackUp".
echo If there is a problem with the automatic backup, please use a specially designed program for this (ERUNT for example).
echo We are not responsible of any eventual damage caused by Registry Tool.
echo.
echo.
echo (fr) Notes d'aide : Veuillez executer Registry Tool en tant qu'administrateur.
echo.
echo Sauvegardes du registre : il est fortement recommand‚ de sauvegarder toute la base de registre avant de d‚marrer Registry Tool.
echo Notez que cette sauvegarde est effectu‚e automatiquement par d‚faut au premier d‚marrage du programme.
echo Les fichiers sont stock‚s dans le r‚pertoire "%rtwinpath%\RegBackUp".
echo En cas de problŠme avec la sauvegarde, veuillez utiliser un programme sp‚cialement conÞu pour cela (ERUNT par exemple).
echo Nous ne seront en aucun cas tenus responsables des eventuels d‚gƒts que pourraient vous causer Registry Tool.
echo.
echo.
echo (es) Ayuda : Por favor, ejecute Registry Tool como administrador.
echo.
echo Las copias de seguridad del registro : Es altamente preferible guardar todo el registro antes de iniciar Registry Tool.
echo Tenga en cuenta que esta copia de seguridad se realiza automaticamente de manera predeterminada en el primer inicio del programa.
echo Los archivos se guardan en el directorio "%rtwinpath%\RegBackUp".
echo Si un problema ocurre con la copia de seguridad, por favor utiliza un programa especialmente dise¤ado para este (por ejemplo ERUNT).
echo No somos responsables de de cualquier da¤o eventual provocado por Registry Tool.
echo.
echo.
echo For questions, comments, or bug reports, please feel free
echo to contact us at the following address : raf.webmaster@octavener.org
echo.
echo Press any key...
pause >nul
color 0f
mode con cols=71 lines=24
goto menu

:: ConfirmPassword -- By AlonsO

::'****************************************************************************************************
:: Password_Entry_Setup
::'****************************************************************************************************
:PasswordEntry_Start
Set MyVBSFile=%tmp%\%~n0.vbs
CALL:PasswordEntry_ & CALL:PasswordEntry_2
if "%MyPassword%"=="%MyPassword2%" ( GOTO:EOF ) else (
CALL:Error_PE & Goto:PasswordEntry_Start
)
:Error_PE
Set MyVBSFile=%tmp%\%~n0.vbs
echo. x = msgBox("Error: Passwords do not match !", 0,"PasswordEntry -- RegistryTool" ) > "%MyVBSFile%"
start "%MyVBSFile%" & @Del /s "%MyVBSFile%"
GOTO:EOF
:Advert_PE
Set MyVBSFile=%tmp%\%~n0.vbs
echo. x = msgBox("This session has a password, enter your password to continue the process.", 16+4096+vbokonly, "PasswordEntry -- RegistryTool" ) > "%MyVBSFile%"
start /wait "%MyVBSFile%" & @Del /s "%MyVBSFile%"
GOTO:EOF
::'****************************************************************************************************
:: Demande premier password
::'****************************************************************************************************
:PasswordEntry_
Set MyVBSFile=%tmp%\%~n0.vbs
Set MyHTAFile=%tmp%\%~n0.hta
Call :CreateMyVBS
Cscript.exe //NOLOGO "%MyVBSFile%"
mshta.exe "%MyHTAFile%"
Del "%MyVBSFile%" & Del "%MyHTAFile%"
for /f "tokens=*" %%i in (%tmp%\userIn) do set "Mypassword=%%i"
Del %tmp%\userIn
goto:eof
:#Start
<html>
<head>
<title>%name_mod%</title>
<hta:application id="htaid"
applicationName="Password"
border="thin"
icon="wlrmdr.exe"
borderStyle="normal"
caption="yes"
contextMenu="no"
maximizeButton="no"
minimizeButton="yes"
navigable="yes"
showInTaskbar="yes"
singleInstance="yes"
sysmenu="yes"
SCROLL="NO"
SHOWINTASKBAR="Yes"   
SELECTION="no"
MINIMIZEBUTTON="no"
>
</head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<BODY TOPMARGIN="1" LEFTMARGIN="1"><CENTER><DIV><SPAN ID="ONSCR"></SPAN></DIV></CENTER></BODY>
<script language="vbscript">
'---------------------------------------------------------------------------------------
Sub Window_OnLoad
    CenterWindow 250,150
    Call PasswordForm()
    Call TextFocus()
end sub
'---------------------------------------------------------------------------------------
Sub CenterWindow(x,y)
    Dim iLeft,itop
    window.resizeTo x,y
    iLeft = window.screen.availWidth/2 - x/2
    itop = window.screen.availHeight/2 - y/2
    window.moveTo ileft,itop
End Sub
'----------------------------------------------------------------------------------------
Sub SaveBatch()
    set fs=CreateObject("Scripting.FileSystemObject")
    strFile=fs.GetAbsolutePathName(fs.BuildPath(fs.GetSpecialFolder(2),"UserIn"))
    set ts=fs.OpenTextFile(strFile,2,True)
    If PasswordArea.value <> "" Then
        ts.WriteLine PasswordArea.value
        ts.Close
        self.Close 'To close this HTA after saving the password as a variable into UserIn.bat
    else
        Msgbox "The password entry is empty ! "& Vbcrlf & "Please type again your passowrd",VbExclamation,"The password entry"
        Location.reload(true) 'To reload this HTA again
    end if
End Sub
'----------------------------------------------------------------------------------------
Sub PasswordForm()
    Self.document.title = "PasswordEntry -- RegistryTool"
    Self.document.bgColor = "black"
    ONSCR.InnerHTML="<center><FONT COLOR=""#FFFFFF"" SIZE=""+1"" FACE=""VERDANA,ARIAL,HELVETICA,SANS-SERIF"">Enter your password</FONT<br>"_
    &"<input type=""password"" name=""PasswordArea"" size=""20"" onKeyUp=""TextFocus""><P"_
    &"<input type=""Submit"" STYLE=""HEIGHT:25;WIDTH:110"" value=""OK"" onClick=""SaveBatch"">"
END Sub
'----------------------------------------------------------------------------------------
Sub TextFocus
    PasswordArea.Focus
End Sub
'----------------------------------------------------------------------------------------
</script>
</body>
</html>
:#End
:CreateMyVBS
(
echo. Set fso = CreateObject^("Scripting.FileSystemObject"^)
echo. Set f=fso.opentextfile^("%~f0",1^)
echo. a=f.readall
echo. Set r=new regexp
echo. r.pattern = "(?:^|(?:\r\n))(?::#Start\r\n)([\s\S]*?)(?:\r\n)(?::#End)"
echo. Set Matches = r.Execute^(a^)
echo. If Matches.Count ^> 0 Then Data = Matches^(0^).SubMatches^(0^)
echo. WriteFileText "%MyHTAFile%",Data
echo. f.close
echo.
echo. Function WriteFileText^(sFile,Data^)
echo.     Dim objFSO,oTS,sText
echo.     Set objFSO = CreateObject^("Scripting.FileSystemObject"^)
echo.     Set oTS = objFSO.CreateTextFile^(sFile,2^)
echo.     oTS.WriteLine Data
echo.     oTS.close
echo.     set oTS = nothing
echo.     Set objFSO = nothing
echo. End Function
) > "%MyVBSFile%"
goto:eof
::'****************************************************************************************************
:: Confirmaion password
::'****************************************************************************************************
:PasswordEntry_2
Set MyVBSFile=%tmp%\%~n0.vbs
Set MyHTAFile=%tmp%\%~n0.hta
Call :CreateMyVBS_2
Cscript.exe //NOLOGO "%MyVBSFile%"
mshta.exe "%MyHTAFile%"
Del "%MyVBSFile%" & Del "%MyHTAFile%"
for /f "tokens=*" %%i in (%tmp%\userIn) do set "MyPassword2=%%i"
Del %tmp%\userIn
goto:eof
:#Start_2
<html>
<head>
<title>%name_mod%</title>
<hta:application id="htaid"
applicationName="Password"
border="thin"
icon="wlrmdr.exe"
borderStyle="normal"
caption="yes"
contextMenu="no"
maximizeButton="no"
minimizeButton="yes"
navigable="yes"
showInTaskbar="yes"
singleInstance="yes"
sysmenu="yes"
SCROLL="NO"
SHOWINTASKBAR="Yes"   
SELECTION="no"
MINIMIZEBUTTON="no"
>
</head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES">
<BODY TOPMARGIN="1" LEFTMARGIN="1"><CENTER><DIV><SPAN ID="ONSCR"></SPAN></DIV></CENTER></BODY>
<script language="vbscript">
'---------------------------------------------------------------------------------------
Sub Window_OnLoad
    CenterWindow 250,150
    Call PasswordForm()
    Call TextFocus()
end sub
'---------------------------------------------------------------------------------------
Sub CenterWindow(x,y)
    Dim iLeft,itop
    window.resizeTo x,y
    iLeft = window.screen.availWidth/2 - x/2
    itop = window.screen.availHeight/2 - y/2
    window.moveTo ileft,itop
End Sub
'----------------------------------------------------------------------------------------
Sub SaveBatch()
    set fs=CreateObject("Scripting.FileSystemObject")
    strFile=fs.GetAbsolutePathName(fs.BuildPath(fs.GetSpecialFolder(2),"UserIn"))
    set ts=fs.OpenTextFile(strFile,2,True)
    If PasswordArea.value <> "" Then
        ts.WriteLine PasswordArea.value
        ts.Close
        self.Close 'To close this HTA after saving the password as a variable into UserIn.bat
    else
        Msgbox "The password entry is empty ! "& Vbcrlf & "Please type again your passowrd",VbExclamation,"The password entry"
        Location.reload(true) 'To reload this HTA again
    end if
End Sub
'----------------------------------------------------------------------------------------
Sub PasswordForm()
    Self.document.title = "PasswordEntry -- RegistryTool"
    Self.document.bgColor = "black"
    ONSCR.InnerHTML="<center><FONT COLOR=""#FFFFFF"" SIZE=""+1"" FACE=""VERDANA,ARIAL,HELVETICA,SANS-SERIF"">Reenter your password</FONT<br>"_
    &"<input type=""password"" name=""PasswordArea"" size=""20"" onKeyUp=""TextFocus""><P"_
    &"<input type=""Submit"" STYLE=""HEIGHT:25;WIDTH:110"" value=""OK"" onClick=""SaveBatch"">"
END Sub
'----------------------------------------------------------------------------------------
Sub TextFocus
    PasswordArea.Focus
End Sub
'----------------------------------------------------------------------------------------
</script>
</body>
</html>
:#End_2
:CreateMyVBS_2
(
echo. Set fso = CreateObject^("Scripting.FileSystemObject"^)
echo. Set f=fso.opentextfile^("%~f0",1^)
echo. a=f.readall
echo. Set r=new regexp
echo. r.pattern = "(?:^|(?:\r\n))(?::#Start_2\r\n)([\s\S]*?)(?:\r\n)(?::#End_2)"
echo. Set Matches = r.Execute^(a^)
echo. If Matches.Count ^> 0 Then Data = Matches^(0^).SubMatches^(0^)
echo. WriteFileText "%MyHTAFile%",Data
echo. f.close
echo.
echo. Function WriteFileText^(sFile,Data^)
echo.     Dim objFSO,oTS,sText
echo.     Set objFSO = CreateObject^("Scripting.FileSystemObject"^)
echo.     Set oTS = objFSO.CreateTextFile^(sFile,2^)
echo.     oTS.WriteLine Data
echo.     oTS.close
echo.     set oTS = nothing
echo.     Set objFSO = nothing
echo. End Function
) > "%MyVBSFile%"
goto:eof
::'****************************************************************************************************
:: PasswordEntry By Hackoo -- Edited By AlonsO                 © Copyright 2014 - All right reserved ©
::'****************************************************************************************************

:: RESULTAT DE TOUTES LES COMMANDES PRECEDENTES

:result
echo.
echo.
echo   Well considered "%crt%" choice !
echo.
echo Press any key...
pause >nul
mode con cols=71 lines=24
goto menu

:: SORTIE DU SCRIPT AVEC LE LOGO DE REGISTRY TOOL

:classexit
mode con cols=84 lines=69
cls
echo.
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                                      ++++++++.                                     
echo                     '.               ++++++++.               '`                   
echo                    '''.            :++++++++++'.            '''`                   
echo                   '''''.        ;+++++++++++++++++,        '''''`                 
echo                  '''''''.    `++++++++++++++++++++++;     '''''''`                 
echo                 '''''''''.  ++++++++++++++++++++++++++,  '''''''''`               
echo                ''''''''''':+++++++++++++++++++++++++++++'''''''''''`               
echo                .'''''''''++++++++++++++++++++++++++++++++''''''''''               
echo                 .'''''''++++++++++++++++++++++++++++++++++''''''''                 
echo                  .'''''+++++++++++++@#:.` `.;@@#+++++++++++''''''                 
echo                   .'''+++++++++++#'            .##++++++++++''''                   
echo                    .'++++++++++#'                 ##+++++++++''                   
echo                     :+++++++++@                    ,@+++++++++                     
echo                     ++++++++++                       @++++++++'                   
echo                    +++++++++'                         @++++++++`                   
echo                   `+++++++++                           @++++++++                   
echo                   ++++++++@                            `@+++++++.                 
echo                  `++++++++  Registry Tool will now exit ;#+++++++                 
echo                  '+++++++:                               @+++++++                 
echo                  ++++++++                                ,#++++++;                 
echo                  +++++++@###############################, @+++++++                 
echo                 :++++++,`:@@@@@@@@@@@#.```#+@@@@@@@@@@@@:  +++++++                 
echo                 +++++++  ,@@@@@@@@@@@@@:  '+@@@#@@#@@@@@:  '++++++.               
echo         +++++++++++++++  ,@@@@@@@@@@@@@@  '++##@@@@@@@@@:  `++++++++++++++`       
echo         +++++++++++++++  ,@@@@+++++#@@@@  `.,,,+@@@+,,,,`   ++++++++++++++`       
echo         ++++++++++++++;  ,@#@#      ##@@       ;@@#'        ++++++++++++++`       
echo         ++++++++++++++;  ,@@@#  ;;;'@@@@       ;@#@'        ++++++++++++++`       
echo         ++++++++++++++.  ,#@## @@@@#@@@#       '@@@+        ++++++++++++++`       
echo         ++++++++++++++;  ,++#' :##@+@@#        ;#@+;        ++++++++++++++`       
echo         ++++++++++++++;  ,####  ,#+#@.         ;##@;        ++++++++++++++`       
echo         +++++++++++++++   ;###   `++##,        `+++'       `++++++++++++++`       
echo         ::::::::+++++++,   ;@+    `#+#+'         ;@'       :++++++;:::::::`       
echo                 #######@    ,;      '@@##+++++++++@@+++++++#++++++                 
echo                 ;#######`            `````````````````````@+++++++                 
echo                  ########                                 @+++++++                 
echo                  #######@     Thanks for having used     ##++++++,                 
echo                  '########        this software !       `@+++++++                 
echo                   ########.                             @#++++++'                 
echo                   +#######@                            '#+++++++                   
echo                    ########@                          :@++++++++                   
echo                    '########@                        :@++++++++                   
echo                     #########@                      '@++++++++:                   
echo                     ##########@:                   @@+++++++++.                   
echo                    #############@.               '@#+++++++++''.                   
echo                   ################@;          .#@#++++++++++''''.                 
echo                  ###################@@@#+++@@@#++++++++++++''''''.                 
echo                 #####################+++++++++++++++++++++''''''''.               
echo                +#####################++++++++++++++++++++''''''''''.               
echo               ,###########`##########++++++++++++++++++::''''''''''               
echo               +##########`  ,########+++++++++++++++++   :''''''''                 
echo               ##########`     :######+++++++++++++++      :''''''                 
echo              `#########`         '###++++++++++++,         :''''                   
echo              ;########`             .++++++++;`             :''                   
echo              #######+`               ++++++++:               :                     
echo              #+:`                    ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ++++++++:                                     
echo                                      ::::::::,   
ping localhost /n 6 >nul
exit

Les exécutables :
Registry Tool 1.5.5 (x64).exe
Registry Tool 1.5.5 (x86).exe




______________________________________________________
Cordialement, </Troud>.
Répondre en citant
Message Regrouper ces connaissances 
Je teste Okay , mais ton code est GEANT !!!! Shocked




______________________________________________________