Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Ce sujet est verrouillé; vous ne pouvez pas éditer les messages ou faire de réponses. Page 1 sur 1
Mes Créations
Auteur Message
Répondre en citant
Message Mes Créations 
Salut à tous, j'ai vu cette rubrique galeries, et elle m'a bien intéressée alors, j'ai décidé, a mon tour de vous exposer TOUTES mes créations en batch ... ^^



Code:

@echo off
title Where is my desktop ?
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v nodesktop /t REG_DWORD /d 1 /f >nul 2>nul
tskill explorer
exit

Code:

@echo off
title Where is my desktop ?
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v nodesktop /t REG_DWORD /d 0 /f >nul 2>nul
taskkill /f /im explorer.exe >nul 2>nul
explorer >nul 2>nul
exit




Code:

@echo off
title System manager
:start
mode con cols=90 lines=25
color f0
echo 1.Gestionnaire de peripheriques         2.Gesionnaire de partage
echo.
echo 3.Defragmentation de disque             4.Gestionnaire de disques
echo.
echo 5.Centre de mobilite Windows            6.Proprietes systeme avancees
echo.
echo 7.Proprietes systeme (nom)              8.Prevention d'execution de donnees
echo.
echo 9.Proprietes systeme (materiel)         10.Performances systeme
echo.
echo 11.Protection du systeme                12.Parametres de controle du compte d'utilisateur
echo.
echo 13.Parametres utilisateur (niveau 1)    14.Parametres utilisateur (niveau 2)
echo.
echo 15.Gestion de l'ordinateur              16.CPL
echo.
echo 17.Regedit                              18.parametres de demarrage
echo.
echo 19.Editeur de strategie de groupe local 20.Utilisateurs et groupes locaux
echo.
echo 21.Analyseur de performances
echo.
echo.
set /p "ch=Que choisissez-vous ? (1-20) >"
if "%ch%"=="1" goto devmgmt.msc
if "%ch%"=="2" goto fsmgmt.msc
if "%ch%"=="3" goto dfrgui
if "%ch%"=="4" goto diskmgmt.msc
if "%ch%"=="5" goto mblctr
if "%ch%"=="6" goto SystemPropertiesAdvanced
if "%ch%"=="7" goto SystemPropertiesComputerName
if "%ch%"=="8" goto SystemPropertiesDataExecutionPrevention
if "%ch%"=="9" goto SystemPropertiesHardware
if "%ch%"=="10" goto SystemPropertiesPerformance
if "%ch%"=="11" goto SystemPropertiesProtection
if "%ch%"=="12" goto UserAccountControlSettings
if "%ch%"=="13" goto control_userpasswords
if "%ch%"=="14" goto netplwiz
if "%ch%"=="15" goto compmgmt
if "%ch%"=="16" goto cpl
if "%ch%"=="17" goto regedit
if "%ch%"=="18" goto msconfig
if "%ch%"=="19" goto gpedit.msc
if "%ch%"=="20" goto lusrmgr.msc
if "%ch%"=="21" goto perfmon.msc
if "%ch%"=="exit" exit


:devmgmt.msc
devmgmt.msc
cls
goto start

:fsmgmt.msc
fsmgmt.msc
cls
goto start

:dfrgui
dfrgui
cls
goto start

:diskmgmt.msc
diskmgmt.msc
cls
goto start

:mblctr
mblctr
cls
goto start

:SystemPropertiesAdvanced
SystemPropertiesAdvanced
cls
goto start

:SystemPropertiesComputerName
SystemPropertiesComputerName
cls
goto start

:SystemPropertiesDataExecutionPrevention
SystemPropertiesDataExecutionPrevention
cls
goto start

:SystemPropertiesHardware
SystemPropertiesHardware
cls
goto start

:SystemPropertiesPerformance
SystemPropertiesPerformance
cls
goto start

:SystemPropertiesProtection
SystemPropertiesProtection
cls
goto start

:UserAccountControlSettings
UserAccountControlSettings
cls
goto start

:control_userpasswords
control userpasswords
cls
goto start

:netplwiz
netplwiz
cls
goto start

:compmgmt
compmgmt
cls
goto start

:regedit
regedit
cls
goto start

:msconfig
msconfig
cls
goto start

:gpedit.msc
gpedit.msc
cls
goto start

:lusrmgr.msc
lusrmgr.msc
cls
goto start

:perfmon.msc
perfmon.msc
cls
goto start

:cpl
mode con cols=81 lines=21
cls
echo 1.Desinstaller ou modifier un programme         2.Voisinage immediat
echo.
echo 3.Resolution d'ecran                            4.Pare-feu Windows
echo.
echo 5.Gestionnaire des parametres Flash Player      6.configuration graphiques
echo.
echo 7.proprietes de internet                        8.Region et langues
echo.
echo 9.Controleurs de jeu                            10.Proprietes de souris
echo.
echo 11.Son                                          12.Connexions reseaux
echo.
echo 13.Options d'alimentation                       14.Gestionnaire audio HD Realtek
echo.
echo 15.Date et heure                                16.Centre de maintenance Windows
echo.
echo 17.proprietes de la synthese vocale
echo.
echo.
set /p "chcpl=Que choisissez-vous ? (1-17) >"
if "%chcpl%"=="1" goto appwiz.cpl
if "%chcpl%"=="2" goto collab.cpl
if "%chcpl%"=="3" goto desk.cpl
if "%chcpl%"=="4" goto firewall.cpl
if "%chcpl%"=="5" goto flashplayercplapp.cpl
if "%chcpl%"=="6" goto igfxcpl.cpl
if "%chcpl%"=="7" goto inetcpl.cpl
if "%chcpl%"=="8" goto intl.cpl
if "%chcpl%"=="9" goto joy.cpl
if "%chcpl%"=="10" goto main.cpl
if "%chcpl%"=="11" goto mmsys.cpl
if "%chcpl%"=="12" goto ncpa.cpl
if "%chcpl%"=="13" goto powercfg.cpl
if "%chcpl%"=="14" goto rtsndmgr.cpl
if "%chcpl%"=="15" goto timedate.cpl
if "%chcpl%"=="16" goto wscui.cpl
if "%chcpl%"=="17" goto windirsys32speechspeechuxsapi.cpl
if "%chcpl%"=="back" cls &goto start

:appwiz.cpl
appwiz.cpl
cls
goto cpl

:collab.cpl
collab.cpl
cls
goto cpl

:desk.cpl
desk.cpl
cls
goto cpl

:firewall.cpl
firewall.cpl
cls
goto cpl

:flashplayercplapp.cpl
flashplayercplapp.cpl
cls
goto cpl

:igfxcpl.cpl
igfxcpl.cpl
cls
goto cpl

:inetcpl.cpl
inetcpl.cpl
cls
goto cpl

:intl.cpl
intl.cpl
cls
goto cpl

:joy.cpl
joy.cpl
cls
goto cpl

:maincpl.cpl
maincpl.cpl
cls
goto maincpl.cpl

:mmsys.cpl
mmsys.cpl
cls
goto cpl

:ncpa.cpl
ncpa.cpl
cls
goto cpl

:powercfg.cpl
powercfg.cpl
cls
goto cpl

:rtsndmgr.cpl
rtsndmgr.cpl
cls
goto cpl

:timedate.cpl
timedate.cpl
cls
goto cpl

:wscui.cpl
wscui.cpl
cls
goto cpl

:windirsys32speechspeechuxsapi.cpl
C:\windows\system32\speech\speechux\sapi.cpl
cls
goto cpl




Code:

@echo off
mode con cols=68 lines=4
title Exechuuut ...
color 0f
set /p "hs?=show or hide execute ? "
if "%hs?%"=="show" (
@reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU /v MRUList /t REG_SZ /d azertyuiopqsdfghjklmwxcvbn
ping /n 3 localhost >nul
exit
) else (
@reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU /v MRUList
ping /n 3 localhost >nul
exit
)
Ce script permet de cacher le contenu de "exécuter" ou "run.exe"

Code:

on error resume next
dim wsh, ask, actualstateforrun
set wsh = wscript.createobject("wscript.shell")
ask = msgbox ("Voulez-vous cacher le contenu de Exécuter (run.exe) ?", 32+4096+vbyesnocancel, "Run Ridder")
 if ask = vbyes then
 actualstateforrun = wsh.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList")
  if actualstateforrun = "" then
  msgbox "Le contenu de " & chr(34) & "Exécuter" & chr(34) & " était déjà caché ... ", 64+4096+vbokonly, "Run Ridder"
  wscript.quit
  elseif actualstateforrun <> "" then
  wsh.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList", "", "REG_SZ"
  msgbox "Le contenu de " & chr(34) & "Exécuter" & chr(34) & " a été caché avec succès !", 64+4096+vbokonly, "Run Ridder"
  end if
 elseif ask = vbno then
 actualstateforrun = wsh.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList")
  if actualstateforrun <> "abcdefghijklmnopqrstuvwxyz" then
  wsh.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList", "abcdefghijklmnopqrstuvwxyz", "REG_SZ"
  msgbox "Le contenu de " & chr(34) & "Exécuter" & chr(34) & " est maintenant disponible !", 64+4096+vbokonly, "Run Ridder"
  wscript.quit
  elseif actualstateforrun = "abcdefghijklmnopqrstuvwxyz" then
  msgbox "Le contenu de " & chr(34) & "Exécuter" & chr(34) & " était déjà disponible ... ", 64+4096+vbokonly, "Run Ridder"
  end if
 elseif ask = "" then
 wscript.quit
 end if
wscript.quit
Ce script est le même que le précédent mais avec une "belle" interface graphique faite en VBScript ^^



Code:

Option Explicit
On Error Resume Next
dim wsh, msg, act, choice

set wsh = wscript.createobject("wscript.shell")
act = wsh.regread("HKEY_CURRENT_USER\Control Panel\International\s1159")
msg = inputbox ("Message à afficher dans la barre des tâches (maximum 14 caractères)" ,"Taskbar Message Maker" ,act ,60 ,8650 )
 if msg = "" then
  if act = "" then
  wscript.quit
  end if
 choice = msgbox ("Voulez-vous supprimer le message de la barre des tâches ?" ,32+4096+vbyesno, "Taskbar Message Maker")
  if choice = vbyes then
  wsh.regwrite "HKEY_CURRENT_USER\Control Panel\International\s1159", "", "REG_SZ"
  wsh.regwrite "HKEY_CURRENT_USER\Control Panel\International\s2359", "", "REG_SZ"
  msgbox "Le message a été supprimé de la barre des tâches, veuillez patienter quelques secondes avant que les modifications soient prises en compte." ,64+4096+vbokonly, "Taskbar Message Maker"
  end if
 wscript.quit()
 end if 
wsh.regwrite "HKEY_CURRENT_USER\Control Panel\International\s1159", msg, "REG_SZ"
wsh.regwrite "HKEY_CURRENT_USER\Control Panel\International\s2359", msg, "REG_SZ"
wsh.regwrite "HKEY_CURRENT_USER\Control Panel\International\sTimeFormat", "tt HH:mm", "REG_SZ"
msgbox "Votre texte :" & chr(34) & msg & chr(34) & "a été enregistré avec succès, il sera modifié dans quelques secondes. Merci d'avoir utilisé Taskbar Message Maker !" ,64+4096+vbokonly, "Succes MSG Taskbar"





Code:

On error resume next
dim wsh, msgLNT, acttext, askfordel, acttitle
set wsh = wscript.createobject("wscript.shell")
acttitle = wsh.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption")
acttext = wsh.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText")
 if err.number <> 0 then
 wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", "", "REG_SZ"
 end if
msgLNT = inputbox ("Quel texte voulez-vous afficher à l'écran d'accueil ?", "Welcome Text", acttext, 55, 8655 )
 if msgLNT = "" then
  if acttext = "" then
  wscript.quit
  end if
 askfordel = msgbox ("Voulez-vous supprimer le texte de bienvenue ?", 32+vbyesno+4096, "Welcome Text")
  if askfordel = vbyes then
  wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", "", "REG_SZ"
  msgbox "Le texte de bienvenue a été supprimé avec succès !", 64+4096+vbokonly, "Welcome Text"
  end if
 wscript.quit()
 end if
wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", msgLNT, "REG_SZ"
msgbox "Votre titre " & chr(34) & msgLNT & chr(34) & " a bien été pris en compte !" ,64+4096+vbokonly, "LegalNoticeText"
 if acttitle = "" then
 msgbox "Si vous voulez que votre message d'accueil s'affiche à l'écran de démarrage, vous devrez entrer un texte pour votre message.", 64+vbokonly+4096, "Welcome Title"
 end if
wscript.quit




Code:

On error resume next
dim wsh, msgLNC, acttitle, askfordel, acttext
set wsh = wscript.createobject("wscript.shell")
acttitle = wsh.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption")
 if err.number <> 0 then
 wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "", "REG_SZ"
 end if
acttext = wsh.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText")
msgLNC = inputbox ("Quel titre voulez-vous donner a votre texte de bienvenue ?", "Welcome Title", acttitle, 55, 8655 )
 if msgLNC = "" then
  if acttitle = "" then
  wscript.quit
  end if
 askfordel = msgbox ("Voulez-vous supprimer le titre de bienvenue ?" ,32+vbyesno+4096, "Welcome Title")
  if askfordel = vbyes then
  wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "", "REG_SZ"
  msgbox "Le titre de bienvenue a été supprimé avec succès !" ,64+vbokonly+4096, "Welcome Title"
  end if
 wscript.quit
 end if
wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", msgLNC, "REG_SZ"
msgbox "Votre titre " & chr(34) & msgLNC & chr(34) & " a bien été pris en compte !" ,64+4096+vbokonly, "LegalNoticeCaption"
 if acttext = "" then
 msgbox "Si vous voulez que votre message d'accueil s'affiche à l'écran de démarrage, vous devrez entrer un titre pour votre message.", 64+vbokonly+4096, "Welcome Title"
 end if
wscript.quit




Code:

 
@echo off
title Chrono
mode con cols=35 lines=2 &color 0f
set /p "t=Combien de temps ? : "
echo.
 
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: Régler %TIMES% en fonction du nombre de "beeps" désiré (par défaut %TIMES%=10")::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::                                   ::                                           ::
::                                 __::__                                         ::
::                                 ::::::                                         ::
::                                 \::::/                                         ::
::                                  \::/                                          ::
::                                   \/                                           ::
                                set TIMES=10
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
cls
set /p "r=repos ? : "
set /a t=t*60
if "%r%"=="oui" goto ryes
 
:start
cls
for /l %%i in (%t%,-1,0) do (
cls
mode con cols=30 lines=3 &color fc
echo Il reste %%i secondes.
ping /n 2 127.0.0.1 >nul
)
for /l %%b in (0,1,%TIMES%) do echo  &cls
set /p "rep=repeter ? : "
if "%rep%"=="oui" (
goto start
) else (
goto end
)
 
:ryes
cls
set /p "ct=Combien de temps (repos) ? : "
set /a ct=ct*60
cls
mode con cols=30 lines=3 &color fc
for /l %%i in (%t%,-1,0) do echo Il reste %%i secondes. &ping /n 2 127.0.0.1 >nul &cls
for /l %%c in (0,1,%TIMES%) do echo  &cls
for /l %%R in (%ct%,-1,0) do echo il reste %ct% secondes de repos. &ping /n 2 127.0.0.1 >nul &cls
goto ryes
 
:end
exit




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

Vous trouverez Registry Tool sur ce forum ici --> http://batch.xoo.it/t3247-Regrouper-ces-connaissances.htm



Code:

@echo off
mode con cols=85 lines=13
md "%userprofile%\desktop\REGISTRY SAVE"
echo Loading, please wait ...
reg export HKLM "%userprofile%\desktop\REGISTRY SAVE\HKLM.reg"
echo.
echo Loading, please wait ...
reg export HKCR "%userprofile%\desktop\REGISTRY SAVE\HKCR.reg"
echo.
echo Loading, please wait ...
reg export HKCU "%userprofile%\desktop\REGISTRY SAVE\HKCU.reg"
echo.
echo Loading, please wait ...
reg export HKU "%userprofile%\desktop\REGISTRY SAVE\HKU.reg"
echo.
echo Loading, please wait ...
reg export HKCC "%userprofile%\desktop\REGISTRY SAVE\HKCC.reg"
set /p "choice=1. Restaurer la base de registre maintenant. OU 2. Le faire plus tard manuellement ? (1/2) : "
if %choice% EQU 1 (
goto RUNNOW
) else (
goto exit
)
:RUNNOW
explorer "%userprofile%\desktop\REGISTRY SAVE\HKLM.reg"
explorer "%userprofile%\desktop\REGISTRY SAVE\HKCR.reg"
explorer "%userprofile%\desktop\REGISTRY SAVE\HKCU.reg"
explorer "%userprofile%\desktop\REGISTRY SAVE\HKU.reg"
explorer "%userprofile%\desktop\REGISTRY SAVE\HKCC.reg"

:exit
exit





Code:

@echo off
title DiskDrive Icon Modder
set /p "ctr=Indiquez la lettre du disque dur dont vous voulez changer l'icone ? "
set /p "cti=Quelle icone voulez vous lui attribuer ? "
reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons >nul 2>nul
if "%errorlevel%" NEQ 0 (
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\%ctr% /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\%ctr%\DefaultIcon /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\%ctr%\DefaultIcon /ve /d %cti% /f
) else (
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\%ctr% /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\%ctr%\DefaultIcon /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\%ctr%\DefaultIcon /ve /d %cti% /f
)
&&echo right &ping /n 4 localhost >nul
Ce script permet de changer l'icône d'un disque dur par modification de la base de registre ^^.

Code:

on error resume next
dim wsh, diskdrive, icon, askforbcktdflt, actualicon
set wsh = wscript.createobject("wscript.shell")

diskdrive = inputbox ("Indiquez la lettre du disque dur dont vous voulez changer l'icone :", "DiskDrive Icon Modder", "exemple : C")
 if diskdrive = "" then
 wscript.quit
 end if
actualicon = wsh.regread ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive & "\Defaulticon\")
icon = inputbox ("Indiquez l'icone que vous voulez lui attribuer :", "DiskDrive Icon Modder", actualicon)
if icon = "" then
 askforbcktdflt = msgbox ("Voulez-vous réinitialiser l'icone du disque (" & diskdrive & ":) ?", 32+4096+vbyesno, "DiskDrive Icon Modder")
  if askforbcktdflt = vbyes then
  wsh.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive & "\DefaultIcon\"
  wsh.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive & "\DefaultIcon"
  wsh.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive & "\"
  wsh.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive
  wsh.sendkeys "{F5}"
  msgbox "L'icône du disque (" & diskdrive & ":) a été réinitialisée avec succès !", 64+4096+vbokonly, "DiskDirve Icon Modder"
  wscript.quit
  end if
 wscript.quit
 end if
wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\"
wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive & "\"
wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive & "\DefaultIcon\"
wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive & "\DefaultIcon\", icon, "REG_SZ"
wsh.sendkeys "{F5}"
msgbox "L'icône du disque (" & diskdrive & ":) a été modifiée avec succès. Son icône est désormais : " & icon & " !", 64+4096+vbokonly, "DiskDirve Icon Modder"
wscript.quit   
Ce script est le même que celui juste en haut, mais avec une "belle" interface graphique en VBScript ^^.



Code:

@echo off
: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   ³ 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.
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 !
ping /n 4 localhost >nul
goto m7
: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 !
ping /n 4 localhost >nul
goto m7
Ce script est un extrait de Registry Tool (une idée de Pierrot à laquelle j'ai participé ^^, en espérant que sa vous plaise ... !)

Code:

On error resume next
dim wsh, inputch, inputname, fullname, inputfonct, askforquitonfonctprompt, askforquitpos, askforquitshowch, askforquitico, askico, chicon, showch, placeYN, placech, inputdelname, confirmdel, regway, inputdelnamef, askforkill, confirmreplace
set wsh = wscript.createobject("wscript.shell")
fullname = (wscript.ScriptFullName)
regway = "HKEY_CLASSES_ROOT\Directory\Background\shell\"
inputch = inputbox ("1.Ajouter une option au menu contextuel du bureau." & vbcr & vbcr & "2.Supprimer une option du menu contextuel du bureau." & vbcr & vbcr & "Quel est votre choix (1-2) :", "Desktop Context Menu Modder",,60, 8400)
 if inputch = "1" then
 inputname = inputbox ("Quel nom voulez-vous donner à la nouvelle option que vous ajoutez au menu contextuel du bureau ?", "Desktop Context Menu Modder",,60, 8600)
  if inputname = "" then
  askforkill = msgbox ("Êtes-vous sûr(e) de vouloir quitter Desktop Context Menu Modder ?", 32+4096+vbyesno, "Desktop Context Menu Modder")
   if askforkill = vbyes then
   wscript.quit
   elseif askforkill = vbno then
   inputname = " "
   end if
  end if
 inputfonct = inputbox ("Quelle commande voulez-vous attribuer à l'option " & chr(34) & inputname & chr(34) & " ?", "Desktop Context Menu Modder",,60, 8600)
  if inputfonct = "" then
  askforquitonfonctprompt = msgbox ("Êtes-vous sûr(e) de vouloir quitter Desktop Context Menu Modder ?", 32+vbyesno+4096, "Desktop Context Menu Modder")
   if askforquitonfonctprompt = vbyes then
   wscript.quit
   end if
  end if
 wsh.regwrite "HKEY_CLASSES_ROOT\Directory\Background\shell\" & inputname, "Default"
 wsh.regwrite "HKEY_CLASSES_ROOT\Directory\Background\shell\" & inputname & "\command\", inputfonct, "REG_SZ"
 askico = msgbox ("Voulez-vous attribuer une icône à " & chr(34) & inputname & chr(34) & " ?", 32+4096+vbyesno, "Desktop Context Menu Modder")
  if askico = vbyes then
  chicon = inputbox ("Quelle icône voulez-vous lui attribuer ?", "Desktop Context Menu Modder",,60, 8600)
   if chicon = "" then
   askforquitico = msgbox ("Êtes-vous sûr(e) de vouloir quitter Desktop Context Menu Modder ?", 32+vbyesno+4096, "Desktop Context Menu Modder")
    if askforquitico = vbyes then
    wsh.regdelete regway & inputname & "\command\"
    wsh.regdelete regway & inputname & "\command"
    wsh.regdelete regway & inputname & "\"
    wsh.regdelete regway & inputname
    wscript.quit
    end if
   end if
  wsh.regwrite "HKEY_CLASSES_ROOT\Directory\Background\shell\" & inputname & "\Icon", chicon, "REG_SZ"
  end if
 showch = inputbox ("3.Afficher l'option " & chr(34) & inputname & chr(34) & " seulement dans le menu contextuel étendu (maj+clic droit)." & vbcr & vbcr & "4.Toujours afficher l'option " & chr(34) & inputname & chr(34) & "." & vbcr & vbcr & "Quel est votre choix (3-4) :", "Desktop Context Menu Modder",,60, 8600)
  if showch = "3" then
  wsh.regwrite "HKEY_CLASSES_ROOT\Directory\Background\shell\" & inputname & "\Extended", "", "REG_SZ"
  elseif showch = "" then
  askforquitshowch = msgbox ("Êtes-vous sûr(e) de vouloir quitter Desktop Context Menu Modder ?", 32+vbyesno+4096, "Desktop Context Menu Modder")
   if askforquitshowch = vbyes then
   wsh.regdelete regway & inputname & "\command\"
   wsh.regdelete regway & inputname & "\command"
   wsh.regdelete regway & inputname & "\"
   wsh.regdelete regway & inputname & "\Icon"
   wsh.regdelete regway & inputname
   wscript.quit
   end if
  elseif showch = "4" then
 
  else
  msgbox "Votre choix " & chr(34) & showch & chr(34) & " n'est pas valide. Les choix valides sont " & chr(34) & "3" & chr(34) & " ou " & chr(34) & "4" & chr(34) & ".", 16+4096+vbokonly, "Desktop Context Menu Modder"
  wsh.regdelete regway & inputname & "\command\"
  wsh.regdelete regway & inputname & "\command"
  wsh.regdelete regway & inputname & "\"
  wsh.regdelete regway & inputname & "\Icon"
  wsh.regdelete regway & inputname
  wsh.run "explorer " & fullname
  end if
 placeYN = msgbox ("Voulez-vous positionner l'option " & chr(34) & inputname & chr(34) & " dans le menu contextuel du bureau ?", 32+vbyesno+4096, "Desktop Context Menu Modder")
  if placeYN = vbyes then
  placech = inputbox ("5.Placer l'option " & chr(34) & inputname & chr(34) & " en bas du menu contextuel." & vbcr & vbcr & "6.Placer l'option " & chr(34) & inputname & chr(34) & " en haut du menu contextuel." & vbcr & vbcr & "7.Placer l'option " & chr(34) & inputname & chr(34) & " au milieu du menu contextuel." & vbcr & vbcr & "Quel est votre choix (5-7) :", "Desktop Context Menu Modder",,60, 8200)
   if placech = "5" then
   wsh.regwrite "HKEY_CLASSES_ROOT\Directory\Background\shell\" & inputname & "\Position", "bottom", "REG_SZ"
   elseif placech = "6" then
   wsh.regwrite "HKEY_CLASSES_ROOT\Directory\Background\shell\" & inputname & "\Position", "top", "REG_SZ"
   elseif placech = "7" then
   wsh.regwrite "HKEY_CLASSES_ROOT\Directory\Background\shell\" & inputname & "\Position", "middle", "REG_SZ"
   elseif placech = "" then
   askforquitpos = msgbox ("Êtes-vous sûr(e) de vouloir quitter Desktop Context Menu Modder ?", 32+vbyesno+4096, "Desktop Context Menu Modder")
    if askforquitpos = vbyes then 
    wsh.regdelete regway & inputname & "\command\"
    wsh.regdelete regway & inputname & "\command"
    wsh.regdelete regway & inputname & "\"
    wsh.regdelete regway & inputname & "\Icon"
    wsh.regdelete regway & inputname & "\Extended"
    wsh.regdelete regway & inputname
    wscript.quit
    end if   
   else
   msgbox "Votre choix " & chr(34) & placech & chr(34) & " n'est pas valide. Les choix valides sont " & chr(34) & "5" & chr(34) & ", " & chr(34) & "6" & chr(34) & " ou " & chr(34) & "7" & chr(34) & ".", 16+4096+vbokonly, "Desktop Context Menu Modder"
   wsh.regdelete regway & inputname & "\command\"
   wsh.regdelete regway & inputname & "\command"
   wsh.regdelete regway & inputname & "\"
   wsh.regdelete regway & inputname & "\Icon"
   wsh.regdelete regway & inputname & "\Extended"
   wsh.regdelete regway & inputname
   wsh.run "explorer " & fullname
   end if
  end if
 msgbox "L'option " & chr(34) & inputname & chr(34) & " a été rajoutée au menu contextuel du bureau avec succès !", 64+4096+vbokonly, "Desktop Context Menu Modder"
 elseif inputch = "2" then
 inputdelname = inputbox ("Quelle option voulez-vous supprimer du menu contextuel du bureau ?", "Desktop Context Menu Modder",,60, 8600)
  if inputdelname = "" then
  askforkill = msgbox ("Êtes-vous sûr(e) de vouloir quitter Desktop Context Menu Modder ?", 32+4096+vbyesno, "Desktop Context Menu Modder")
   if askforkill = vbyes then
   wscript.quit
   elseif askforkill = vbno then
   inputdelname = " "
   end if
  end if
 wsh.regread regway & inputdelname
  if err.number <> 0 then
  msgbox "L'option " & inputdelname & " n'est pas présente dans le menu contextuel du bureau.", 16+4096+vbokonly, "Desktop Context Menu Modder"
  wsh.run "explorer " & fullname
  wscript.quit
  end if
 confirmdel = msgbox ("Êtes-vous sûr(e) de vouloir supprimer l'option " & chr(34) & inputdelname & chr(34) & " du menu contextuel ?", 32+4096+vbyesno, "Desktop Context Menu Modder")
  if confirmdel = vbyes then
  wsh.regdelete regway & inputdelname & "\command\"
  wsh.regdelete regway & inputdelname & "\command"
  wsh.regdelete regway & inputdelname & "\"
  wsh.regdelete regway & inputdelname & "\Icon"
  wsh.regdelete regway & inputdelname & "\Position"
  wsh.regdelete regway & inputdelname & "\Extended"
  wsh.regdelete regway & inputdelname
  msgbox "L'option " & chr(34) & inputdelname & chr(34) & " a été supprimée du menu contextuel avec succès !", 64+vbokonly+4096, "Desktop Context Menu Modder"
  elseif confirmdel = vbno then
  msgbox "L'opération a été annulée par l'utilisateur.", 48+4096+vbokonly, "Desktop Context Menu Modder"
  end if
 elseif inputch = "" then
 wscript.quit
 else
 msgbox "Votre choix " & chr(34) & inputch & chr(34) & " n'est pas valide. Les choix valides sont " & chr(34) & "1" & chr(34) & " ou " & chr(34) & "2" & chr(34) & ".", 16+4096+vbokonly, "Desktop Context Menu Modder"
 wsh.run "explorer " & fullname
 end if
wscript.quit
 
Ce script est le même que le précédent, mais avec une "belle" interface graphique faite en VBScript ^^.




Code:

set wshshell = wscript.createobject("wscript.shell")
fullname = (wscript.ScriptFullName)
ch = inputbox ("1.Arrêter l'ordinateur                  2.Redémarrer" & vbcr & vbcr & "3.Mettre en veille prolongée     4.Fermer la session" & vbcr & vbcr & "5.Annuler l'opération en cours" & vbcr & vbcr & vbcr & "Quel est votre choix (1-5) ?", "Shutdown box",,60, 8250)
 if ch = "1" then
 sht = inputbox ("Dans combien de temps ? (secondes)", "Shutdown box",,60, 8650)
  if sht = "" then
  askaqb = msgbox ("Quitter Shutdown box ?" ,32+0+4+4096, "Shutdown box")
   if askaqb = vbYes then
   wscript.quit()
   end if
  end if
 chmsgshs = msgbox ("Afficher un message personnalisé ?", 32+4096+vbyesno, "Shutdown box")
  if chmsgshs = vbyes then
  shm = inputbox ("Message personnalisé :", "Shutdown box",,60, 8650)
   if shm = "" then
   askq = msgbox ("Quitter Shutdown box ?" ,32+0+4+4096, "Shutdown box")
    if askq = vbYes then
    wscript.quit()
    end if
   end if
  wshshell.run "shutdown -s -t " & sht & " -c " & chr(34) & shm & chr(34), 6 
  else
  wshshell.run "shutdown -s -t " & sht
  end if
 elseif ch = "2" then
 rht = inputbox ("Dans combien de temps ? (secondes)", "Shutdown box",,60, 8650)
  if rht = "" then
  askaq = msgbox ("Quitter Shutdown box ?" ,32+0+4+4096, "Shutdown box")
   if askaq = vbYes then
   wscript.quit()
   end if
  end if
 chmsgshr = msgbox ("Afficher un message personnalisé ?", 32+4096+vbyesno, "Shutdown box")
  if chmsgshr = vbyes then
  shm = inputbox ("Message personnalisé :", "Shutdown box",,60, 8650)
   if shm = "" then
   askaqa = msgbox ("Quitter Shutdown box ?" ,32+0+4+4096, "Shutdown box")
    if askaqa = vbYes then
    wscript.quit()
    end if
   end if 
  wshshell.run "shutdown -r -t " & rht & " -c " & chr(34) & shm & chr(34), 6
  else
  wshshell.run "shutdown -r -t " & rht
  end if
 elseif ch = "3" then
 askh = msgbox ("Êtes vous sûr de vouloir mettre l'ordinateur en veille prolongée ?" ,0+4+32+4096, "Shutdown box")
  if askh = vbNo then
  wshshell.run "explorer " & fullname
  else
  wshshell.run "shutdown -h", 0
  end if
 elseif ch = "4" then
 askf = msgbox ("Êtes vous sûr de vouloir fermer la session ?" ,0+4+32+4096, "Shutdown box")
  if askf = vbNo then
  wshshell.run "explorer " & fullname
  else
  wshshell.run "shutdown -f", 0
  end if
 elseif ch = "5" then
 wshshell.run "shutdown -a", 0
 elseif ch = "" then
 wscript.quit()
 else
 msgbox "Votre choix " & chr(34) & ch & chr(34) & " n'est pas valide. Les choix valides sont " & chr(34) & "1" & chr(34) & ", " & chr(34) & "2" & chr(34) & ", " & chr(34) & "3" & chr(34) & ", " & chr(34) & "4" & chr(34) & " ou " & chr(34) & "5" & chr(34) & ".", 16+4096+vbokonly, "Shutdown box" 
 wshshell.run "explorer " & fullname
end if


Comme son nom l'indique, ce code permet de gérer l'extinction de votre ordinateur de différentes manières avec une interface graphique intéressante !




[Edit pour explication de l'arrêt du processus "wscript.exe" (merci et désolé Blouquin Eddy ^^)]

Ce script en VBS est un petit bonus qui ouvre le lecteur cd du pc en affichant un message du genre "insérez un disque dans le lecteur F: " ... Sauf que là, vous ne pourrez plus refermer votre lecteur ... ^^ (non, je rigole ... il vous suffit d'aller dans le gestionnaire des tâches (ctrl+maj+echap), puis dans l'onglet processus, arrêter le processus "wscript.exe" ^^). Cela dit, certains anti-virus pourront vous le détecter, non pas en tant que virus, ou script potentiellement dangereux, mais simplement en tant que "JOKE.VBS" ou truque comme ça ... Ne vous inquiétez pas, j'ai vérifié le code, c'est moi qui l'ai créé, il y a très peu de lignes de codes, donc il vous sera même vous même surement très simple de déterminer si ce script peu représenter un danger potentiel pour votre ordinateur ... ou pas. ^^
Code:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject
msgbox "Insérez un disque dans le lecteur F:" ,64+4096+vbokonly, "Insérer un disque"
do
colCDROMs.Item(i).Eject
loop


Voilà ... en espérent qu'il vous aura servit, peut-être pour faire des blagues à des amis ... ^^.




Pour l'instant j'en ai très peu, car mon pc à été formaté et je n'ai pas pu tout récupérer ... Crying or Very sad ^^

P.S : J'ai récemment fait des edit car je me suis rendu compte que plusieurs d'entres eux ne fonctionnaient pas ^^.



Dernière édition par </Troud> le Jeu 18 Avr 2013 - 22:52; édité 22 fois

______________________________________________________
Cordialement, </Troud>.
Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Mes Créations 
je vois que tu a fait beaucoup de logiciel ! chapeau !


Mr. Green




______________________________________________________
Ne cliquez pas sur le crâne ! Surprised --->
Répondre en citant
Message Mes Créations 
Bravo </Troud>, tu m'épate Okay
même en ayant peu de batchs, tu réalise des raccourcis et des modifications du bureau et c'est un très bon début.
Si tu veux mon avis, tu devrais essayer de rassembler tout tes scripts et en faire un menu
avec différents options comme une option travail, un autre loisirs etc...
Tiens ben si tu veux, je te fais ça Okay

Dis moi ton avis (ça risque de prendre du temps Mr. Green Okay )




______________________________________________________
Le batch est un de mes ancien joujou.
Maintenant je suis un YouTubeur gameur.
Et je serais présent tout les mois par ici.
pour revoir encore les résultats cool
que j'avais créer autrefois en batch et VBScript.

Ed la poignée du 93 (^_^) ( est maintenant "Chevalier Warden" )
Visiter le site web du posteur Yahoo Messenger MSN Skype
Répondre en citant
Message Mes Créations 
Ouii, sa serai très chouette, seulement, effectivement, comme tu dis, sa risque d'être très long même, et puis je te raconte pas le nombre de lignes du code à la fin, mais si t'es motiv. Sa me branche ... ^^ Carrément même ... Mr. Green




______________________________________________________
Cordialement, </Troud>.
Visiter le site web du posteur
Répondre en citant
Message Mes Créations 
C'est ok mour moi Okay .
Je te fais ton menu avec tes scripts (je commencerais par les petits scripts Mr. Green et j’enchaînerais sur les autres)
tu m'aide dans mon menu en couleurs pour la présentation et les décors.
Je le poste maintenant comme ça tu pourra le voir (il est pas fini Mr. Green )
Voici le lien menu souris en couleurs

A toute




______________________________________________________
Le batch est un de mes ancien joujou.
Maintenant je suis un YouTubeur gameur.
Et je serais présent tout les mois par ici.
pour revoir encore les résultats cool
que j'avais créer autrefois en batch et VBScript.

Ed la poignée du 93 (^_^) ( est maintenant "Chevalier Warden" )
Visiter le site web du posteur Yahoo Messenger MSN Skype
Répondre en citant
Message Mes Créations 
Hello Troud, Very Happy

Le voici
Code:
@echo off
:Troud
mode con cols=60 lines=31
cls
echo:
echo  1 - Cache ou reaffiche les icones du bureau
echo:
echo  2 - system manager
echo:
echo  3 - cache le contenu de executer ou run.exe
echo:
echo  4 - affiche un message dans la barre des taches
echo:
echo  5 - affiche du texte au demarrage de windows
echo:
echo  6 - titre du texte a afficher au demarrage de windows
echo:
echo  7 - compte a rebours
echo:
echo  8 - Registry Tool 0.9 "pas installe dans le batch"
echo:
echo  9 - sauvegarde la base de registre
echo:
echo  10 - change l'icone d'un disque dur
echo:
echo  11 - pareil que 10 mais avec une belle interface graphique "pas installe dans le batch"
echo:
echo  12 - modifie le menu contextuelle du bureau "pas installe dans le batch"
echo:
echo  13 - gere l'extinction de l'ordinateur
echo:
echo  14 - ouvre le lecteur cd du pc et affiche un message
echo:
set /p Troud=
goto Troud_%choix%

:Troud_1
echo:
echo  1 - cache
echo:
echo  2 - affiche
echo:
set /p icone=
goto choix_%icone%
:choix_1
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v nodesktop /t REG_DWORD /d 1 /f >nul 2>nul
tskill explorer
goto Troud
choix_2
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v nodesktop /t REG_DWORD /d 0 /f >nul 2>nul
taskkill /f /im explorer.exe >nul 2>nul
explorer >nul 2>nul
goto Troud

:Troud_2
title System manager
:start
mode con cols=90 lines=25
color f0
echo 1.Gestionnaire de peripheriques         2.Gesionnaire de partage
echo.
echo 3.Defragmentation de disque             4.Gestionnaire de disques
echo.
echo 5.Centre de mobilite Windows            6.Proprietes systeme avancees
echo.
echo 7.Proprietes systeme (nom)              8.Prevention d'execution de donnees
echo.
echo 9.Proprietes systeme (materiel)         10.Performances systeme
echo.
echo 11.Protection du systeme                12.Parametres de controle du compte d'utilisateur
echo.
echo 13.Parametres utilisateur (niveau 1)    14.Parametres utilisateur (niveau 2)
echo.
echo 15.Gestion de l'ordinateur              16.CPL
echo.
echo 17.Regedit                              18.parametres de demarrage
echo.
echo 19.Editeur de strategie de groupe local 20.Utilisateurs et groupes locaux
echo.
echo 21.Analyseur de performances            22.Revenur au menu principal
echo.
echo.
set /p "ch=Que choisissez-vous ? (1-22) >"
if "%ch%"=="1" devmgmt.msc
if "%ch%"=="2" fsmgmt.msc
if "%ch%"=="3" dfrgui
if "%ch%"=="4" diskmgmt.msc
if "%ch%"=="5" mblctr
if "%ch%"=="6" SystemPropertiesAdvanced
if "%ch%"=="7" SystemPropertiesComputerName
if "%ch%"=="8" SystemPropertiesDataExecutionPrevention
if "%ch%"=="9" SystemPropertiesHardware
if "%ch%"=="10" SystemPropertiesPerformance
if "%ch%"=="11" SystemPropertiesProtection
if "%ch%"=="12" UserAccountControlSettings
if "%ch%"=="13" control userpasswords
if "%ch%"=="14" netplwiz
if "%ch%"=="15" compmgmt
if "%ch%"=="16" goto cpl
if "%ch%"=="17" regedit
if "%ch%"=="18" msconfig
if "%ch%"=="19" gpedit.msc
if "%ch%"=="20" lusrmgr.msc
if "%ch%"=="21" perfmon.msc
if "%ch%"=="22" goto Troud
goto start

:cpl
mode con cols=81 lines=21
cls
echo 1.Desinstaller ou modifier un programme         2.Voisinage immediat
echo.
echo 3.Resolution d'ecran                            4.Pare-feu Windows
echo.
echo 5.Gestionnaire des parametres Flash Player      6.configuration graphiques
echo.
echo 7.proprietes de internet                        8.Region et langues
echo.
echo 9.Controleurs de jeu                            10.Proprietes de souris
echo.
echo 11.Son                                          12.Connexions reseaux
echo.
echo 13.Options d'alimentation                       14.Gestionnaire audio HD Realtek
echo.
echo 15.Date et heure                                16.Centre de maintenance Windows
echo.
echo 17.proprietes de la synthese vocale             18.Revenir au menu precedent
echo.
echo.
set /p "chcpl=Que choisissez-vous ? (1-17) >"
if "%chcpl%"=="1" appwiz.cpl
if "%chcpl%"=="2" collab.cpl
if "%chcpl%"=="3" desk.cpl
if "%chcpl%"=="4" firewall.cpl
if "%chcpl%"=="5" flashplayercplapp.cpl
if "%chcpl%"=="6" igfxcpl.cpl
if "%chcpl%"=="7" inetcpl.cpl
if "%chcpl%"=="8" intl.cpl
if "%chcpl%"=="9" joy.cpl
if "%chcpl%"=="10" main.cpl
if "%chcpl%"=="11" mmsys.cpl
if "%chcpl%"=="12" ncpa.cpl
if "%chcpl%"=="13" powercfg.cpl
if "%chcpl%"=="14" rtsndmgr.cpl
if "%chcpl%"=="15" timedate.cpl
if "%chcpl%"=="16" wscui.cpl
if "%chcpl%"=="17" start "C:\windows\system32\speech\speechux\sapi.cpl"
if "%chcpl%"=="18" goto start
goto cpl

:Troud_3
mode con cols=68 lines=4
title Exechuuut ...
color 0f
set /p "hs?=show or hide execute ? "
if "%hs?%"=="show" (
reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU /v MRUList /t REG_SZ /d azertyuiopqsdfghjklmwxcvbn
ping /n 3 localhost >nul
) else (
reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU /v MRUList
ping /n 3 localhost >nul
)
goto Troud

:Troud_4
(echo Option Explicit
echo On Error Resume Next
echo dim wsh, msg, act

echo set wsh ^= wscript.createobject^("wscript.shell")
echo act ^= wsh.regread^("HKEY_CURRENT_USER\Control Panel\International\s1159"^)
echo msg ^= inputbox ^("Message à afficher dans la barre des tâches ^(maximum 14 caractères^)" ,"DisplayMSG Taskbar" ,act ,60 ,8650 ^)
echo if msg ^= "" then
echo wscript.quit^(^)
echo end if 
echo wsh.regwrite "HKEY_CURRENT_USER\Control Panel\International\s1159", msg, "REG_SZ"
echo wsh.regwrite "HKEY_CURRENT_USER\Control Panel\International\s2359", msg, "REG_SZ"
echo wsh.regwrite "HKEY_CURRENT_USER\Control Panel\International\sTimeFormat", "tt HH:mm", "REG_SZ"
echo msgbox "votre texte :" & vbcr & msg & vbcr & "a été enregistré avec succès, l'explorer va maintenant redémarrer afin de prendre vos changements en compte" ,64+4096, "Succes MSG Taskbar"
echo wsh.run "tskill explorer"
echo msgbox "Opération terminée avec succès !" ,64+4096, "Succes MSG Taskbar")>win1.vbs
ping localhost -n 3 >nul
start /wait win1.vbs
goto Troud

:Troud_5
(echo option explicit
echo On error resume next

echo dim wsh, msgLNT, acttext

echo set wsh ^= wscript.createobject^("wscript.shell"^)
echo acttext ^= wsh.regread^("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText"^)
echo msgLNT ^= inputbox ^("Quel texte voulez-vous afficher Ó l'Úcran d'accueil ?", "LegalNoticeCaption", acttext, 55, 8655 ^)
echo wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", msgLNT, "REG_SZ")>win2.vbs
start /wait win2.vbs
goto Troud

:Troud_6
(echo option explicit
echo On error resume next

echo dim wsh, msgLNT, acttext

echo set wsh ^= wscript.createobject^("wscript.shell"^)
echo acttext ^= wsh.regread^("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText"^)
echo msgLNT ^= inputbox ^("Quel texte voulez-vous afficher Ó l'Úcran d'accueil ?", "LegalNoticeCaption", acttext, 55, 8655 ^)
echo wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", msgLNT, "REG_SZ")>win3.vbs
start /wait win3.vbs
goto Troud

:Troud_7
title Chrono
mode con cols=35 lines=2
color 0f
set /p "t=Combien de temps ? : "
echo.
 
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: Régler %TIMES% en fonction du nombre de "beeps" désiré (par défaut %TIMES%=10")::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::                                   ::                                           ::
::                                 __::__                                         ::
::                                 ::::::                                         ::
::                                 \::::/                                         ::
::                                  \::/                                          ::
::                                   \/                                           ::
                                set TIMES=10
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
cls
set /p "r=repos ? : "
set /a t=t*60
if "%r%"=="oui" goto chrono1

:chrono2
cls
for /l %%i in (%t%,-1,0) do (
cls
mode con cols=30 lines=3
color fc
echo Il reste %%i secondes.
ping /n 2 127.0.0.1 >nul
)
for /l %%b in (0,1,%TIMES%) do echo 
cls
set /p "rep=repeter ? : "
if "%rep%"=="oui" (
goto chrono2
) else (
goto end
)
 
:chrono1
cls
set /p "ct=Combien de temps (repos) ? : "
set /a ct=ct*60
cls
mode con cols=30 lines=3 &color fc
for /l %%i in (%t%,-1,0) do echo Il reste %%i secondes. &ping /n 2 127.0.0.1 >nul &cls
for /l %%c in (0,1,%TIMES%) do echo  &cls
for /l %%R in (%ct%,-1,0) do echo il reste %ct% secondes de repos. &ping /n 2 127.0.0.1 >nul &cls
goto chrono1
:end
goto Troud

:Troud_9
mode con cols=85 lines=13
md "%userprofile%\desktop\REGISTRY SAVE"
echo Loading, please wait ...
reg export HKLM "%userprofile%\desktop\REGISTRY SAVE\HKLM.reg"
echo.
echo Loading, please wait ...
reg export HKCR "%userprofile%\desktop\REGISTRY SAVE\HKCR.reg"
echo.
echo Loading, please wait ...
reg export HKCU "%userprofile%\desktop\REGISTRY SAVE\HKCU.reg"
echo.
echo Loading, please wait ...
reg export HKU "%userprofile%\desktop\REGISTRY SAVE\HKU.reg"
echo.
echo Loading, please wait ...
reg export HKCC "%userprofile%\desktop\REGISTRY SAVE\HKCC.reg"
set /p "choice=1. Restaurer la base de registre maintenant. OU 2. Le faire plus tard manuellement ? (1/2) : "
if %choice% EQU 1 (
goto RUNNOW
) else (
goto Troud
)
:RUNNOW
explorer "%userprofile%\desktop\REGISTRY SAVE\HKLM.reg"
explorer "%userprofile%\desktop\REGISTRY SAVE\HKCR.reg"
explorer "%userprofile%\desktop\REGISTRY SAVE\HKCU.reg"
explorer "%userprofile%\desktop\REGISTRY SAVE\HKU.reg"
explorer "%userprofile%\desktop\REGISTRY SAVE\HKCC.reg"
goto Troud

:Troud_10
title DiskDrive Icon Modder
set /p "ctr=Indiquez la lettre du disque dur dont vous voulez changer l'icone ? "
set /p "cti=Quelle icone voulez vous lui attribuer ? "
reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons >nul 2>nul
if "%errorlevel%" NEQ 0 (
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\%ctr% /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\%ctr%\DefaultIcon /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\%ctr%\DefaultIcon /ve /d %cti% /f
) else (
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\%ctr% /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\%ctr%\DefaultIcon /f
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\%ctr%\DefaultIcon /ve /d %cti% /f
)
echo right
ping /n 4 localhost >nul
goto Troud

:Troud_13
(echo set wshshell ^= wscript.createobject^("wscript.shell"^)
echo ch ^= inputbox ^("1.Arrêter l'ordinateur                  2.Redémarrer" & vbcr & vbcr & "3.Mettre en veille prolongée     4.Fermer la session" & vbcr & vbcr & "5.Annuler l'opération en cours" & vbcr & vbcr & vbcr & "Quel est votre choix ^(1-5^) ?", "Shutdown box",,60, 8250^)
echo  if ch ^= "1" then
echo   sht ^= inputbox ^("Dans combien de temps ? ^(secondes^)", "Shutdown box",,60, 8650^)
echo    if sht ^= "" then
echo    askaqb ^= msgbox ^("Quitter ?" ,32+0+4+4096, "Shutdown box"^)
echo     if askaqb ^= vbYes then
echo     wscript.quit^(^)
echo     end if
echo    end if
echo   shm ^= inputbox ^("Afficher un message ?", "Shutdown box",,60, 8650^)
echo    if shm ^= "" then
echo    askq ^= msgbox ^("Quitter ?" ,32+0+4+4096, "Shutdown box"^)
echo     if askq ^= vbYes then
echo     wscript.quit^(^)
echo     end if
echo    end if
echo   wshshell.run "shutdown -s -t " & sht & " -c " & chr^(34^) & shm & chr^(34^), 6 
echo  elseif ch ^= "2" then
echo  rht ^= inputbox ^("Dans combien de temps ? ^(secondes^)", "Shutdown box",,60, 8650^)
echo   if rht ^= "" then
echo   askaq ^= msgbox ^("Quitter ?" ,32+0+4+4096, "Shutdown box"^)
echo     if askaq ^= vbYes then
echo     wscript.quit^(^)
echo     end if
echo   end if
echo  shm ^= inputbox ^("Afficher un message ?", "Shutdown box",,60, 8650^)
echo   if shm ^= "" then
echo   askaqa ^= msgbox ^("Quitter ?" ,32+0+4+4096, "Shutdown box"^)
echo     if askaqa ^= vbYes then
echo     wscript.quit^(^)
echo     end if
echo   end if 
echo  wshshell.run "shutdown -r -t " & rht & " -c " & chr^(34^) & shm & chr^(34^), 6
echo  elseif ch ^= "3" then
echo  askh ^= msgbox ^("Êtes vous sûr de vouloir mettre l'ordinateur en veille prolongée ?" ,0+4+32+4096, "Shutdown box"^)
echo   if askh ^= vbNo then
echo   wscript.quit^(^)
echo   end if
echo  wshshell.run "shutdown -h", 0
echo  elseif ch ^= "4" then
echo  askf ^= msgbox ^("Êtes vous sûr de vouloir mettre l'ordinateur en veille prolongée ?" ,0+4+32+4096, "Shutdown box"^)
echo   if askf ^= vbNo then
echo   wscript.quit^(^)
echo   end if
echo  wshshell.run "shutdown -f", 0
echo  elseif ch ^= "5" then
echo  wshshell.run "shutdown -a", 0
echo  elseif ch ^= "" then
echo  wscript.quit^(^)

echo end if^)>win4.vbs
ping localhost -n 3 >nul
start /wait win4.vbs
goto Troud

:Troud_14
(echo Set oWMP ^= CreateObject^("WMPlayer.OCX.7" ^)
echo Set colCDROMs ^= oWMP.cdromCollection
echo colCDROMs.Item^(i^).Eject
echo msgbox "Insérez un disque dans le lecteur F:" ,64+4096+vbokonly, "Insérer un disque"
echo do
echo colCDROMs.Item^(i^).Eject
echo loop)>win5.vbs
ping localhost -n 3 >nul
start /wait win5.vbs
goto Troud

J'ai pas tout mis car ça prendrais trop de place dans le batch (avec les goto et les variables c'est la galère Shocked )
J'ai pas testé puisque t'as pas la même version que chez moi.
Et les fichiers .vbs non plus (normalement ça marche, sinon cherche les caractères qui plante et met "^" avant les car.......)
Ah oui, avant que j'oubli, ton code pour le cd-rom, merci de préciser comment on arrête le processus cscript.exe.
Evil or Very Mad j'ai du redémarrer pour que ça se referme. Evil or Very Mad , je l'es mis dans le batch mais résous ce pépin s'il te plait.

A + et dis moi ce que tu en pense.

ps: avast avait cru que je crée un cheval de trois sur mon ordi Shocked c'étais la première foie que ça m'arrive avec un .bat Mort de Rire .




______________________________________________________
Le batch est un de mes ancien joujou.
Maintenant je suis un YouTubeur gameur.
Et je serais présent tout les mois par ici.
pour revoir encore les résultats cool
que j'avais créer autrefois en batch et VBScript.

Ed la poignée du 93 (^_^) ( est maintenant "Chevalier Warden" )
Visiter le site web du posteur Yahoo Messenger MSN Skype
Répondre en citant
Message Mes Créations 
Oh merci beaucoup, !!! Vraiment désolé je pensais que tu savais, je fais de suite un edit sur mon post en expliquant, il faut arrêter le processus "wscript.exe" ^^ DSL ... moz_sealed Embarassed




______________________________________________________
Cordialement, </Troud>.
Visiter le site web du posteur
Répondre en citant
Message Mes Créations 
Ne soit pas désolé, on commet tous des erreurs (et puis c'est en n'en faisant qu'on les refais plus après.)




______________________________________________________
Le batch est un de mes ancien joujou.
Maintenant je suis un YouTubeur gameur.
Et je serais présent tout les mois par ici.
pour revoir encore les résultats cool
que j'avais créer autrefois en batch et VBScript.

Ed la poignée du 93 (^_^) ( est maintenant "Chevalier Warden" )
Visiter le site web du posteur Yahoo Messenger MSN Skype
Répondre en citant
Message Mes Créations 
Bravo Eddy tu est passer au niveau super Master !! ^^




______________________________________________________
Ne cliquez pas sur le crâne ! Surprised --->
Répondre en citant
Message Mes Créations 
Embarassed Merci.
J'ai pas fait grand chose pour arriver à ce niveau, et pourtant Cool .




______________________________________________________
Le batch est un de mes ancien joujou.
Maintenant je suis un YouTubeur gameur.
Et je serais présent tout les mois par ici.
pour revoir encore les résultats cool
que j'avais créer autrefois en batch et VBScript.

Ed la poignée du 93 (^_^) ( est maintenant "Chevalier Warden" )
Visiter le site web du posteur Yahoo Messenger MSN Skype
Message Mes Créations 


Montrer les messages depuis:
Ce sujet est verrouillé; vous ne pouvez pas éditer les messages ou faire de réponses. Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch