Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 3
Aller à la page: 1, 2, 3  >
Regrouper ces connaissances
Auteur Message
Répondre en citant
Message Regrouper ces connaissances 
Welcome everybody,


New version 1.5.5 :
- Correction of option 3 bug with executable file.
- GUI correction for option 11-4-3.
- GUI improvement for option 11-1 & 11-2.

Downloads :
-Registry Tool 1.5.5 (x64).exe
-Registry Tool 1.5.5 (x86).exe

If you have any suggestions / questions, don't hesitate Very Happy Contact :
- </troud> (Raphael BERTEAUD)
- Pierrot (Pierre JOUSSAIN)

Screenshot :


The code :
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




Cordialement, Pierrot



Dernière édition par Pierrot le Lun 15 Sep 2014 - 19:47; édité 16 fois
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Regrouper ces connaissances 
Bonjour

j ai rien compris


REG QUERY /?

REG ADD /?

REG DELETE /?

REG COPY /?

REG SAVE /?

REG RESTORE /?

REG LOAD /?

REG UNLOAD /?

REG COMPARE /?

REG EXPORT /?

REG IMPORT /?

REG FLAGS /?


Faudrait surtout partir du début avec définition du registre, les commandes etc...comme je l ai supposé




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message Regrouper ces connaissances 
Salut tout le monde,


En fait à chaque fois qu'une commande "reg" sera postée
dans l'index "regedit", on pourra (si elle est assez utile) la rajouter
dans le programme, je m'en occuperais Smile
Comme cela nous aurons toutes les commandes regroupé en un
programme !




Cordialement, Pierrot



Répondre en citant
Message Regrouper ces connaissances 
Si j'ai bien compris, ton idée Pierrot, sa serait de petit a petit venir ajouter nos idées a ton batch ... en y ajoutant quelques commandes pour la modification du registre exemple "reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoDesktop /t REG_DWORD /d 1"
ou "reg delete .........................................................."
ou "reg query ......................................................"
ou "reg copy .........................................................."
ou "reg save ......................................................"
ou "reg restore .........................................................."
ou "reg load ......................................................"
ou "reg unload .........................................................."
ou "reg compare ......................................................"
ou "reg import .........................................................."
ou "reg export ......................................................"
ou "reg flags ..........................................................."
ou "reg compare ......................................................"

C'est ça ? si oui, ton idée me plaît beaucoup c'est très intéressant, seulement, jusque là, je n'ai pas compris pourquoi dans ton script tu parles de IP et de PROXY ? ... Sinon, c'est cool je vais essayer d'y apporter ma version d'ici pas trop longtemps ... ^^

P.S: Pour ceux que sa intéresse, la commande "reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoDesktop /t REG_DWORD /d 1" ajoute la valeur "NoDesktop"( à laquelle on ajoute une donnée : "1") de type DWORD32 sous la clé "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer" ce qui (après redémarrage du processus explorer.exe), va cacher les icônes du bureau. (Pour les ré afficher, il faut mettre la donnée de la valeur "NoDesktop" à "0" ... ) Voilà ! Merci




______________________________________________________
Cordialement, </Troud>.
Répondre en citant
Message Regrouper ces connaissances 
Hey, me revoilà, c'est bon Pierrot j'ai apporter ma version pour ton batch qui serait elle même encore à finaliser bien sûr :

Code:

@echo off
title Registry Tool V0.1
color 1f
mode con cols=71 lines=24
 
:menu
set crt=enu
cls
echo.
echo                     ╔═════════════════════════════╗
echo                     ║                             ║
echo                     ║        Registry Tool        ║
echo                     ║                             ║
echo                     ╚═════════════════════════════╝
echo.
echo.
echo                ┌────┬──────────────┐  ┌────┬──────────────┐ 
echo                │ 01 │ Hide Desktop │  │ 02 │Optimize Boot │ 
echo                └────┴──────────────┘  └────┴──────────────┘ 
echo.
echo.
set /p crt=Choice :
goto m%crt%
 
:m1
cls
echo.
echo   ┌────┬──────────────┐                  Command by : Raphael Berteaud
echo   │ 01 │ Hide Desktop │                  The 15/03/2012 at 17:31
echo   └────┴──────────────┘                  For : exemple
echo.
echo.
echo.     
set /p "chh=1.Hide desktop icons  │  2.Show desktop icons : "
if "%chh%"=="1" (
goto addNODESK
) else (
goto delNODESK
)
: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
explorer
goto result
:delNODESK
reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer /v NoDesktop /f
taskkill /f /im explorer.exe >nul 2>nul
explorer >nul
goto result
 
 
:m2
cls
echo.
echo   ┌────┬──────────────┐                  Command by : Raphael Berteaud
echo   │ 01 │Optimize Boot │                  The 15/03/2012 at 17:35
echo   └────┴──────────────┘                  For : exemple
echo.     
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction /v OptimizeComplete /t REG_SZ /d no /f
for /l %%i in (0,1,100) do cls &echo Loading changes %%i%% &ping /n 1 localhost >nul
set /p "chrestart=You should Restart your computer to apply changes. Would you like to restart now ? (Y/N) : "
if "%chrestart%"=="Y" (
goto restartY
) else (
goto result
)

:restartY
cls
echo.
echo Applying changes ...
ping /n 3 localhost >nul
cls
echo now restart !
ping /n 2 localhost >nul
shutdown -f -r -t 00 >nul
goto result
 
:result
cls
echo.
echo Well considered "%crt%" choice !
echo.
echo Press any key...
pause >nul
goto menu



EDIT : Laddy à raison c'est toujours mieux de commenter nos batchs, celui la apporte deux fonctions plus ou moins utiles : une fonction qui permet d'optimiser le démarrage de windows (démarrage plus rapide si votre démarrage est lent ...) [UTILE], et l'autre sert à cacher ou réafficher les icônes du bureau [INUTILE ...]. J'en ai mis une inutile car je n'avais pas l'inspiration mais en cherchant on pourrait trouver des trucs sympa ... ! Wink

P.S : Ne vous inquiétez pas, j'ai testé toutes les commandes de ce batch une par une avant de le poster pour être sûr qu'il ne puisse pas y avoir de problème avec ce dernier ... On ne le dis jamais assez souvent, avant d'appliquer des changements dans la base de registres, il faut en faire une sauvegarde. !!! ^^ Au fait Pierrot, tu dis ne pas être bilingue, mais tout le texte de ton batch est en anglais, alors j'ai suivis le modèle, j'espère que vous ne m'en voudrez pas ... Mr. Green



Dernière édition par </Troud> le Sam 16 Mar 2013 - 11:52; édité 1 fois

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


Super Troud, je ne connaissais pas cette
clée pour "optimizé" le boot (ou startup je crois ^^)

par contre ta seconde commande n'est pas très utile,
mais tu as fait l'effort Wink


Sinon pour le proxy regarde le nouveau post Smile
Sa merche, je l'est deja fait.

PS : Si toi ou quelqu'un d'autre a des idées pour améliorer l'interface
ou des suggestions, je suis preneur.




Cordialement, Pierrot



Dernière édition par Pierrot le Ven 15 Mar 2013 - 20:28; édité 2 fois
Répondre en citant
Message Regrouper ces connaissances 
Hello
dis n oublier pas de commenter vos batchs merci




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message Regrouper ces connaissances 
@Pierrot Ouais, pour la commande qui cache les icônes du bureau, je sais que c'est pas utile du tout mais c'était pour donner un exemple ... ^^ Sinn pour le proxy, je vais tester le nouveau post et je t'en donne des nouvelles, moi je dis que si on arrive à rassembler un max de commandes bien sympathiques et surtout UTILES Mr. Green On pourra faire le batch du sciècle ... !! Okay




______________________________________________________
Cordialement, </Troud>.
Répondre en citant
Message Regrouper ces connaissances 
Pierrot a écrit:
Salut tout le monde,


En fait à chaque fois qu'une commande "reg" sera postée
dans l'index "regedit", on pourra (si elle est assez utile) la rajouter
dans le programme, je m'en occuperais Smile
Comme cela nous aurons toutes les commandes regroupé en un
programme !




Cordialement, Pierrot


Tout à fait géniale idée Pierrot ... ^^ Bonne initiative sa serai super, bon après faudra faire le tri bien sûr ... mais sa pourai être fantastique ... D'ailleurs j'ai essayé pour le proxy sa marche, et j'ai apporté quelques petites modifs au prog. en espérant que sa pourra peut-être servir .... Voici ma

Code:

 
@echo off
title Registry Tool V0.2
color 1f
mode con cols=82 lines=24
 
:menu
set crt=enu
cls
echo.
echo                     ╔═════════════════════════════╗
echo                     ║                             ║
echo                     ║        Registry Tool        ║
echo                     ║                             ║
echo                     ╚═════════════════════════════╝
echo.
echo.
echo   ┌────┬──────────────────┐  ┌────┬──────────────────┐  ┌────┬──────────────────┐
echo   │ 01 │   IP Proxy       │  │ 02 │ Hide Desktop     │  │ 03 │ OptimizeBoot     │
echo   ├────┼──────────────────┤  ├────┼──────────────────┤  ├────┼──────────────────┤
echo   │ 04 │  Auto Logon      │  │ 05 │ OptimizeShutdown │  │ 06 │                  │
echo   ├────┼──────────────────┤  ├────┼──────────────────┤  ├────┼──────────────────┤
echo   │ 07 │                  │  │ 08 │                  │  │ 09 │                  │
echo   ├────┼──────────────────┤  ├────┼──────────────────┤  ├────┼──────────────────┤
echo   │ 10 │                  │  │ 11 │                  │  │ 12 │                  │
echo   ├────┼──────────────────┤  ├────┼──────────────────┤  ├────┼──────────────────┤
echo   │ 13 │                  │  │ 14 │                  │  │ 15 │                  │
echo   └────┴──────────────────┘  └────┴──────────────────┘  └────┴──────────────────┘
echo.
echo.
set /p crt=Choice :
goto m%crt%
 
:m0
cls
echo.
echo   ┌────┬──────────────┐   Version : 0.2
echo   │ 00 │ RegistryTool │   Modify : option 02 and 03
echo   └────┴──────────────┘   The 15/03/2013 at 19:52
echo.
echo  Create by : Pierre JOUSSAIN
echo  Create for : Batch.xoo.it
echo.
echo  Developed by :
echo    -Raphael Berteaud [^</Troud>]
echo    -Pierre JOUSSAIN [Pierrot]
echo.
echo Press any key...
pause >nul
goto menu
 
:m1
cls
set oot=0
echo.
echo   ┌────┬──────────────┐   Command by : Pierre JOUSSAIN
echo   │ 01 │   IP Proxy   │   The 15/03/2012 at 19:29
echo   └────┴──────────────┘   For : Batch.xoo.it
echo.
echo  0) Desactivate IP Proxy or 1) Activate ?
echo.
set /p oot=0 or 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   └────┴──────────────┘   For : exemple
echo.
echo.
echo.     
set /p "crt=1.Hide desktop icons  |  2.Show desktop icons : "
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 │ OptimizeBoot │   The 15/03/2012 at 17:35
echo   └────┴──────────────┘   For : exemple
echo.     
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction /v OptimizeComplete /t REG_SZ /d no /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
cls
echo   ┌────┬───────────────────────┐  ┌────┬─────────────────────┐
echo   │ 01 │ Desctivate Auto logon │  │ 02 │ Activate Auto Logon │
echo   └────┴───────────────────────┘  └────┴─────────────────────┘
set /p "ALog=Choice : "
set /a ALog=ALog-1
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v AutoAdminLogon /t REG_SZ /d %ALog% /f
if "%ALog%"=="0" goto delpwdun
echo.
set /p "User=Which session do you want to use as default ? : "
echo.
set /p "Passwd=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 %passwd% /f
cls
for /l %%a in (0,1,100) do echo loading changes %%a%% &ping /n 1 localhost >nul &cls
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 !
ping /n 3 localhost >nul
goto result

:delpwdun
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\defaultusername" /f 2>nul
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\defaultpassword" /f 2>nul
goto result

:m5
cls
echo   ┌────┬─────────────────────┐  ┌────┬────────┐
echo   │ 01 │  OptimizeShutdown   │  │ 02 │ Cancel │
echo   └────┴─────────────────────┘  └────┴────────┘
set /p "choptsh=Choice : "
if %choptsh% EQU 2 echo Cancel ... &ping /n 2 localhost >nul &goto menu
cls
for /l %%z in (0,1,100) do echo loading changes %%z%% &ping /n 1 localhost >nul &cls
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
goto result


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

Arrow qui permet d'optimiser le temps d'arrêt de Windows et de configurer une session à utiliser par défaut (une fois le nom de session entré et le mot de passe, l'ordinateur se connectera automatiquement sur la session voulue (à chaque démarrage).



Dernière édition par </Troud> le Sam 16 Mar 2013 - 18:50; édité 1 fois

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

<troud/>, super, a cette cadence la il va falloir bientot
rajouter des cases dans le programme XD

Bien joué a toi, l'autologon, c'est pour connecter sa session ???

Je tacherais de rajouter quelques commandes tel que bloquer
un programme, activer/desactiver l'autorun, etc....

On va le faire le batch du siècle ^^ mais on aura besoin de
toute l'equipe batch.xoo.it Smile

Je poste la nouvelle version 0.3




Pierrot



Répondre en citant
Message Regrouper ces connaissances 
Hey Pierrot, de rien, sa me fait plaisir de participer a ce projet ... pour l'autologon, sa permet de se connecter automatiquement sur la session qu'on veut à chaque démarrage de windows, avec bien sûr la possibilité d'enlever ce autologon et de demander le mot de passe à chaque démarrage de windows mais je trouve que sa fait gagner un temps fou sur le démarrage du pc, c'est pour sa que je l'ai mis dans le programme ^^!

Heu, l'autorun ?? tu vas me prendre pour un noob mais c'est quoi ? Wink (les programmes qui se lancent au démarrage de windows ?)

Ouais c'est sûr, avec les possibilités de commandes intéressantes dans la modification de registre ... On va faire le batch du siècle, pour sûr sa va demander beaucoup de volontaires, et beaucoup de temps, mais ça en vaut la peine, moi je dis ... Au fait, Lundi je reprends les cours, donc forcément, je serai moins présent sur le forum, à mon grand regret Crying or Very sad ...

Il va avoir de la classe ce batch, tu vas voir ... ^^ !
@+

P.S : J'ai PM yTrezAn pour lui demander si sa le tentait de venir apporter ses idées au programme, je me suis dis qu'il avait l'air calé en programmation, et à l'aise avec la base de registre, on verra bien si il acceptera ... ! Wink

EDIT : J'ai jeté un coup d'oeil à la mise à jour du prog. 0.3 --> quelques bugs nottament pour autologon ... je te propose une mise à jour de la mise à jour 0.3 ^^

Code:
@echo off
title Registry Tool V0.3
color 1f
mode con cols=71 lines=24
 
: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 ³              ³  ³ 06 ³              ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 07 ³              ³  ³ 08 ³              ³  ³ 09 ³              ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 10 ³              ³  ³ 11 ³              ³  ³ 12 ³              ³
echo   ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´  ÃÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
echo   ³ 13 ³              ³  ³ 14 ³              ³  ³ 15 ³              ³
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.
set /p crt=Choice :
goto m%crt%
 
:m0
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿   Version : 0.3
echo   ³ 00 ³ RegistryTool ³   Modify : option 03 and 04
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   The 16/03/2013 at 18:41
echo.
echo  Create by : Pierre JOUSSAIN
echo  Create for : Batch.xoo.it
echo.
echo  Developed by :
echo    -Raphael Berteaud [^</Troud>]
echo    -Pierre JOUSSAIN [Pierrot]
echo.
echo Press any key...
pause >nul
goto menu
 
:m1
cls
set oot=0
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿   Command by : Pierre JOUSSAIN
echo   ³ 01 ³   IP Proxy   ³   The 15/03/2012 at 19:29
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   For : Batch.xoo.it
echo.
echo  0) Desactivate IP Proxy or 1) Activate ?
echo.
set /p oot=0 or 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   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   For : exemple
echo.
echo.
echo.     
set /p "crt=1.Hide desktop icons  |  2.Show desktop icons : "
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   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   For : exemple
echo.
echo   ----^> Optimize StartUp
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction /v OptimizeComplete /t REG_SZ /d no /f
echo   ----^> Optimize extinction
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
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿   Command by : Raphael Berteaud
echo   ³ 04 ³  Auto Logon  ³   The 16/03/2012 at 17:39
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   For : 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 goto delpwdun
echo.
set /p "User=Which session do you want to use as default ? : "
echo.
set /p "Passwd=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 %passwd% /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
 
 
:result
echo.
echo.
echo   Well considered "%crt%" choice !
echo.
echo Press any key...
pause >nul
goto menu
A et au fait, j'ai remarqué que tu t'obstinais à enlever le ">nul" après "taskkill /f /im explorer.exe" c'est mieux de le laisser, au moins, il t'affiche un message du genre "Opération réussie : le processus "explorer.exe" de PID 3760 a été arrêté." ... Voilà ^^



Dernière édition par </Troud> le Lun 25 Mar 2013 - 22:12; édité 3 fois

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


OK, merci pour l'explication, c'est assez interressant effectivement.

L'autorun, c'est un fichier (se trouvant a la racine d'un disque,
et le plus souvent sous l'extension .inf)
qui se lance notamment sur les cdrom et sur
certains disques dur (par ex : mon western digital) dès leur "connexion"
sur l'ordinateur, et permet par ex de lancer un fichier .exe,
de modifier l'icone du disque, son nom, etc...
ex d'autorun :
Code:

[autorun]

label=Pierre JOUSSAIN
icon="Crypt.ico"
open="Horloge.exe"

En modifiant une clée registre, nous pouvons autoriser se lancemant
automatique (qui peut etre dangereux ou genant) ou le bloquer.

Pour yTrezAn, plus il y aura de monde mieux se sera, surtout qu'effectivement,
il semble être bon en programmation Smile

Et t'inquiete pas, on a tout le temps pour le forum, je comprends Wink



Cordialement, Pierrot



Dernière édition par Pierrot le Sam 16 Mar 2013 - 19:36; édité 1 fois
Répondre en citant
Message Regrouper ces connaissances 
A oui c'est vrai, moi aussi j'ai un DD WesternDigital et je me rappel avoir vu un autorun.inf, effectivement, sa pourrait être cooool dans le prog. ... ^^
EDIT : Une autre petite modif. sur le prog. pour plus de sécurité avec l'auto-logon, pour que le mot de passe enregistré dans la base de registre soit supprimé si l'utilisateur décide d'arrêter l'auto-logon + Une petite optimisation en plus sur l'inxtinction du pc ... Voici mes petites modifs. :

Code:

:m4
set crt=1
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿   Command by : Raphael Berteaud
echo   ³ 04 ³  Auto-Logon  ³   The 16/03/2012 at 17:39
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   For : 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 goto delpwdun
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
 
:delpwdun
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultpassword /f 2>nul
reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" /v defaultusername /f 2>nul
goto result


Code:

:m3
cls
echo.
echo   ÚÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿   Command by : Raphael Berteaud
echo   ³ 03 ³ Optimize All ³   The 15/03/2012 at 17:35
echo   ÀÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ   For : exemple
echo.
echo   ----^> Optimize StartUp
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction /v OptimizeComplete /t REG_SZ /d no /f
echo   ----^> Optimize extinction
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" /v WaitToKillServiceTimeout /t REG_SZ /d 1000 /f
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" /v HungAppTimeout /t REG_SZ /d 1 /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




Dernière édition par </Troud> le Dim 17 Mar 2013 - 00:24; édité 2 fois

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

Euh, j'allais poster une réponse quand j'ai vu le message, c'était pas la peine ^^'
Bref, donc pour ma part je fais des explorations manuelles du registre (eh oui), ce qui me permet d'énormément réduire la taille prise par le registre, en tout cas bien mieux qu'avec des nettoyeurs automatiques.

Donc, j'avais noté ces derniers jours la présence de deux clés à ajouter je pense dans une partie "Réduire le registre".
A savoir que la réduction du registre permet si je me souviens bien d'accélérer le système.

Code:
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing\

Cette première clé contient vraisemblablement des traces des fichiers utilisés.
Les clés contenues me semblent inutiles, car elles sont visiblement tournées vers le dossier %windir%\Tracing\. Chez moi, ce dossier est vide. Comme c'est un dossier du système, je ne le supprime pas, mais il est vide. J'en ai donc déduit que les clés du registre correspondantes sont "temporaires".
Le fait est donc... Que j'ai supprimé ces clés en intégralité, sauf deux que j'ai jugé importantes, car ce sont celles qui servent de base à la création des clés temporaires. Et vu que Windows tourne toujours à merveille, tout est ok.

Syntaxe des clés à supprimer :
Code:
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing\*_RASAPI32
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing\*_RASMANCS

Les deux clés restantes sont :
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing\RASAPI32
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing\RASMANCS

Donc toutes les clés à supprimer sont en somme celles qui contiennent une barre _.

Code:
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\LowRegistry\Audio\PolicyConfig\PropertyStore\

Cette clé est pour le moins étrange, elle se situe dans une ruche Internet Explorer, mais pourtant ne concerne pas Internet Explorer.
Ces clés sont une liste des .exe situés dans l'ordinateur, à ce que j'ai observé. Elles sont donc importantes.
Elles sont toutes de la forme : "*_0".
Et elles contiennent toutes la valeur chaîne par défaut, mais avec comme valeur un truc de syntaxe :
Code:
{*}.{*}|\Device\HarddiskVolume*\Chemin.exe%*

Et donc ce qui serait intéressant, c'est d'extraire pour chaque clé le chemin.
A noter que le chemin n'a pas le C:\.
Ensuite, le batch vérifie l'existence de chacun des fichiers, puis si le fichier n'existe pas alors la clé correspondante est supprimée.

Je pense vous avoir assez aidé pour aujourd'hui, étant donné que je n'ai plus rien en stock et que ceci devrait pouvoir réduire votre registre de quelques (dizaines de ?) Mo Very Happy

Cordialement,
ytrezAn


PostScriptum______________________
Le registre peut également être réduit en supprimant les données dans HKEY_CLASSES_ROOT.
Je fais des tests pour pouvoir supposer la syntaxe exacte des clés et valeurs et pour en déduire quelles clés supprimer.
La clé de chaque extension contient une valeur ou une sous-clé qui a une valeur, qui est un lien vers la clé du programme d'ouverture (située aussi dans HKEY_CLASSES_ROOT).
Je finaliserai ces déductions demain je pense.




______________________________________________________
Skype
Répondre en citant
Message Regrouper ces connaissances 
Salut tout le monde,


ytrezAn, pourrais-tu mettre la syntaxe,
car chez moi cela ne fonctionne pas.
J'essaye :
Code:
 reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Tracing" /va /f

Cela m'affiche "commande correctement..." je vais dans le registre et je les voient encore...

La deuxième clée inutile :
Code:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Tracing

Tu n'est pas le seul à "visiter" le registre ^^

Merci pour ces clées, bientôt le version 0.6 Wink




Cordialement, Pierrot



Message Regrouper ces connaissances 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 3
Aller à la page: 1, 2, 3  >
  



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