Bat lancé dans un autre :(

Résolu/Fermé
neo*** Messages postés 3110 Date d'inscription samedi 14 février 2009 Statut Contributeur sécurité Dernière intervention 9 août 2021 - Modifié le 9 juil. 2021 à 17:57
barnabe0057 Messages postés 14439 Date d'inscription lundi 2 mars 2009 Statut Contributeur Dernière intervention 14 avril 2024 - 11 juil. 2021 à 20:05
Bonjour les z'amis,

J'ai un soucis sur un batch, j'ai bidouillé un truc pour afficher ma clé wi-fi qui fonctionne très bien et me créé bien un txt en plus ! ok

setlocal enabledelayedexpansion

for /F "tokens=2 delims=:" %%a in ('netsh wlan show profile') do (
set wifi_pwd=
for /F "tokens=2 delims=: usebackq" %%F IN (`netsh wlan show profile %%a key^=clear ^| findstr /R /C:"Contenu de la"`) do (
set wifi_pwd=%%F
)
echo %%a : !wifi_pwd!
echo %%a : !wifi_pwd! >> PassWifi.txt
)
pause


dans l'idée, je créé un bat pour me faire une boite à outils qui me lance un téléchargement d'outils, ou sfc ou cmd ... en fonction du choix tapé. je ne suis qu'au début :)



Quand je valide mon 11 depuis celui là, ça ne fonctionne pas :( des idées ?

echo  11 = Ou qu'elle est ma cle wi-fi


IF %fier%==11 cls setlocal enabledelayedexpansion
for /F "tokens=2 delims=:" %%a in ('netsh wlan show profile') do (
set wifi_pwd=
for /F "tokens=2 delims=: usebackq" %%F IN (`netsh wlan show profile %%a key^=clear ^| findstr /R /C:"Contenu de la"`) do (
set wifi_pwd=%%F
)
echo %%a : !wifi_pwd!
echo %%a : !wifi_pwd! >> PassWifi.txt
)
&echo. &pause &cls &goto :debut


Vous moquez pas, j'ai pas fait de Cmd depuis des années lol

Excellent week et vacances à tous :)





5 réponses

barnabe0057 Messages postés 14439 Date d'inscription lundi 2 mars 2009 Statut Contributeur Dernière intervention 14 avril 2024 4 905
Modifié le 10 juil. 2021 à 15:46
Pour fusionner/ajouter une clé de registre il faut passer par la commande REG, tu ne peux pas simplement balancer le contenu d'un fichier .reg en espérant que cmd.exe comprenne ta démarche ;)

Voilà j'ai fait pas mal de modifications, j'ai enlevé quelques trucs superflus :

@echo off
mode 120,70
title FAUT FAIRE QUOI ?
color B5

cd /d "%TMP%"
if not exist "Blur.reg" (call :flou)
if not exist "Photoviewer.reg" (call :visionneuse)

:debut
cls
echo                                    WELCOME %username% 
echo.
echo.
echo.
echo      Bon qu'est ce qu'on fait quoi ?
echo.
echo.
echo.
echo      GENERALITES WINDOWS
echo.
echo.
echo  1 = restau
echo.
echo  2 = Regedit
echo.
echo  3 = winver
echo.
echo  4 = sfc
echo.
echo  5 = Reparation disque
echo.
echo.
echo       MA BOITE A OUTILS 
echo.
echo.
echo  6 = Telecharger CCleaner
echo.
echo  7 = Telecharger ADWClenaer
echo.
echo  8 = Telecharger ZHPCleaner
echo.
echo  9 = Flou Windows
echo.
echo  10 = Visionneuse Windows
echo.
echo  11 = Ou qu'elle est ma cle wi-fi
echo.
echo  12 = VLC
echo.
echo Tape ta reponse et entree
set "fier="
set /p fier="reponse ? "           
if not defined fier (goto :debut) else (cls)

IF %fier% equ 1 (start rstrui.exe)
IF %fier% equ 2 (start regedit.exe)
IF %fier% equ 3 (start winver)
IF %fier% equ 4 (start sfc /scannow)
IF %fier% equ 5 (start chkdsk /f /r)
IF %fier% equ 6 (start chrome.exe "https://toolslib.net/downloads/finish/1-adwcleaner/")
IF %fier% equ 7 (start chrome.exe "https://www.ccleaner.com/fr-fr/ccleaner/download/standard")
IF %fier% equ 8 (start chrome.exe "https://nicolascoolman.eu/download/telechargez-zhpcleaner-gratuit/?wpdmdl=23616&refresh=60e2f7caba7ed1625487306")

IF %fier% equ 9 (regedit /s /C /S "Blur.reg")
IF %fier% equ 10 (regedit /s /C /S "Photoviewer.reg")
 
IF %fier% equ 11 (
   setlocal enabledelayedexpansion
   for /F "tokens=2 delims=:" %%a in ('netsh wlan show profile') do (
        set "wifi_pwd="
        for /F "tokens=2 delims=:" %%F IN ('netsh wlan show profile %%a key^=clear ^| findstr /C:"Contenu de la"') do set "wifi_pwd=%%F"
        echo %%a : !wifi_pwd!
        echo %%a : !wifi_pwd! >> "%~dp0PassWifi.txt" 
   )
) 

IF %fier% equ 12 (start chrome.exe "https://get.videolan.org/vlc/3.0.16/win64/vlc-3.0.16-win64.exe") 

IF %fier% lss 1 (echo. & echo Y'a que ?? choix possibles, c'est quand meme pas complique, si ?)
IF %fier% gtr 12 (echo. & echo Y'a que ?? choix possibles, c'est quand meme pas complique, si ?)

echo. & pause
cls & goto :debut
exit

:visionneuse
If Exist "%tmp%\cbf0.0.8.a74114cf88f26a3f4c6dbcc97e7261dd" goto:cbf.a74114cf88f26a3f4c6dbcc97e7261dd
(Set/p =V2luZG93cyBSZWdpc3RyeSBFZGl0b3IgVmVyc2lvbiA1LjAwDQpbSEtFWV9DTEFTU0VTX1JPT1RcQXBwbGljYXRpb25zXHBob3Rvdmlld2VyLmRsbF0NCltIS0VZX0NMQVNTRVNfUk9PVFxBcHBsaWNhdGlvbnNccGhvdG92aWV3ZXIuZGxsXHNoZWxsXQ0KW0hLRVlfQ0xBU1NFU19ST09UXEFwcGxpY2F0aW9uc1xwaG90b3ZpZXdlci5kbGxcc2hlbGxcb3Blbl0NCiJNdWlWZXJiIj0iQHBob3Rvdmlld2VyLmRsbCwtMzA0MyINCltIS0VZX0NMQVNTRVNfUk9PVFxBcHBsaWNhdGlvbnNccGhvdG92aWV3ZXIuZGxsXHNoZWxsXG9wZW5cY29tbWFuZF0NCkA9aGV4KDIpOjI1LDAwLDUzLDAwLDc5LDAwLDczLDAwLDc0LDAwLDY1LDAwLDZkLDAwLDUyLDAwLDZmLDAwLDZmLDAwLDc0LDAwLDI1LFwNCjAwLDVjLDAwLDUzLDAwLDc5LDAwLDczLDAwLDc0LDAwLDY1LDAwLDZkLDAwLDMzLDAwLDMyLDAwLDVjLDAwLDcyLDAwLDc1LDAwLFwNCjZlLDAwLDY0LDAwLDZjLDAwLDZjLDAwLDMzLDAwLDMyLDAwLDJlLDAwLDY1LDAwLDc4LDAwLDY1LDAwLDIwLDAwLDIyLDAwLDI1LFwNCjAwLDUwLDAwLDcyLDAwLDZmLDAwLDY3LDAwLDcyLDAwLDYxLDAwLDZkLDAwLDQ2LDAwLDY5LDAwLDZjLDAwLDY1LDAwLDczLDAwLFwNCjI1LDAwLDVjLDAwLDU3LDAwLDY5LDAwLDZlLDAwLDY0LDAwLDZmLDAwLDc3LDAwLDczLDAwLDIwLDAwLDUwLDAwLDY4LDAwLDZmLFwNCjAwLDc0LDAwLDZmLDAwLDIwLDAwLDU2LDAwLDY5LDAwLDY1LDAwLDc3LDAwLDY1LDAwLDcyLDAwLDVjLDAwLDUwLDAwLDY4LDAwLFwNCjZmLDAwLDc0LDAwLDZmLDAwLDU2LDAwLDY5LDAwLDY1LDAwLDc3LDAwLDY1LDAwLDcyLDAwLDJlLDAwLDY0LDAwLDZjLDAwLDZjLFwNCjAwLDIyLDAwLDJjLDAwLDIwLDAwLDQ5LDAwLDZkLDAwLDYxLDAwLDY3LDAwLDY1LDAwLDU2LDAwLDY5LDAwLDY1LDAwLDc3LDAwLFwNCjVmLDAwLDQ2LDAwLDc1LDAwLDZjLDAwLDZjLDAwLDczLDAwLDYzLDAwLDcyLDAwLDY1LDAwLDY1LDAwLDZlLDAwLDIwLDAwLDI1LFwNCjAwLDMxLDAwLDAwLDAwDQpbSEtFWV9DTEFTU0VTX1JPT1RcQXBwbGljYXRpb25zXHBob3Rvdmlld2VyLmRsbFxzaGVsbFxvcGVuXERyb3BUYXJnZXRdDQoiQ2xzaWQiPSJ7RkZFMkE0M0MtNTZCOS00YmY1LTlBNzktQ0M2RDQyODU2MDhBfSINCltIS0VZX0NMQVNTRVNfUk9PVFxBcHBsaWNhdGlvbnNccGhvdG92aWV3ZXIuZGxsXHNoZWxsXHByaW50XQ0KW0hLRVlfQ0xBU1NFU19ST09UXEFwcGxpY2F0aW9uc1xwaG90b3ZpZXdlci5kbGxcc2hlbGxccHJpbnRcY29tbWFuZF0NCkA9aGV4KDIpOjI1LDAwLDUzLDAwLDc5LDAwLDczLDAwLDc0LDAwLDY1LDAwLDZkLDAwLDUyLDAwLDZmLDAwLDZmLDAwLDc0LDAwLDI1LFwNCjAwLDVjLDAwLDUzLDAwLDc5LDAwLDczLDAwLDc0LDAwLDY1LDAwLDZkLDAwLDMzLDAwLDMyLDAwLDVjLDAwLDcyLDAwLDc1LDAwLFwNCjZlLDAwLDY0LDAwLDZjLDAwLDZjLDAwLDMzLDAwLDMyLDAwLDJlLDAwLDY1LDAwLDc4LDAwLDY1LDAwLDIwLDAwLDIyLDAwLDI1LFwNCjAwLDUwLDAwLDcyLDAwLDZmLDAwLDY3LDAwLDcyLDAwLDYxLDAwLDZkLDAwLDQ2LDAwLDY5LDAwLDZjLDAwLDY1LDAwLDczLDAwLFwNCjI1LDAwLDVjLDAwLDU3LDAwLDY5LDAwLDZlLDAwLDY0LDAwLDZmLDAwLDc3LDAwLDczLDAwLDIwLDAwLDUwLDAwLDY4LDAwLDZmLFwNCjAwLDc0LDAwLDZmLDAwLDIwLDAwLDU2LDAwLDY5LDAwLDY1LDAwLDc3LDAwLDY1LDAwLDcyLDAwLDVjLDAwLDUwLDAwLDY4LDAwLFwNCjZmLDAwLDc0LDAwLDZmLDAwLDU2LDAwLDY5LDAwLDY1LDAwLDc3LDAwLDY1LDAwLDcyLDAwLDJlLDAwLDY0LDAwLDZjLDAwLDZjLFwNCjAwLDIyLDAwLDJjLDAwLDIwLDAwLDQ5LDAwLDZkLDAwLDYxLDAwLDY3LDAwLDY1LDAwLDU2LDAwLDY5LDAwLDY1LDAwLDc3LDAwLFwNCjVmLDAwLDQ2LDAwLDc1LDAwLDZjLDAwLDZjLDAwLDczLDAwLDYzLDAwLDcyLDAwLDY1LDAwLDY1LDAwLDZlLDAwLDIwLDAwLDI1LFwNCjAwLDMxLDAwLDAwLDAwDQpbSEtFWV9DTEFTU0VTX1JPT1RcQXBwbGljYXRpb25zXHBob3Rvdmlld2VyLmRsbFxzaGVsbFxwcmludFxEcm9wVGFyZ2V0XQ0KIkNsc2lkIj0iezYwZmQ0NmRlLWY4MzAtNDg5NC1hNjI4LTZmYTgxYmMwMTkwZH0i
)<Nul>"%tmp%\cbf0.0.8.a74114cf88f26a3f4c6dbcc97e7261dd"
:cbf.a74114cf88f26a3f4c6dbcc97e7261dd
>Nul Certutil -f -decode "%tmp%\cbf0.0.8.a74114cf88f26a3f4c6dbcc97e7261dd" "Photoviewer.reg"
goto :eof

:flou
If Exist "%tmp%\cbf0.0.8.91b55f646bcf28321b1aa19efd68d615" goto:cbf.91b55f646bcf28321b1aa19efd68d615
(Set/p =V2luZG93cyBSZWdpc3RyeSBFZGl0b3IgVmVyc2lvbiA1LjAwDQo7IENyZWF0ZWQgYnk6IFNoYXduIEJyaW5rDQo7IENyZWF0ZWQgb246IEphbnVhcnkgOXRoIDIwMTkNCjsgVHV0b3JpYWw6IGh0dHBzOi8vd3d3LnRlbmZvcnVtcy5jb20vdHV0b3JpYWxzLzEyNDk5My1lbmFibGUtZGlzYWJsZS1hY3J5bGljLWJsdXItZWZmZWN0LXNpZ24tc2NyZWVuLXdpbmRvd3MtMTAtYS5odG1sDQpbSEtFWV9MT0NBTF9NQUNISU5FXFNPRlRXQVJFXFBvbGljaWVzXE1pY3Jvc29mdFxXaW5kb3dzXFN5c3RlbV0NCiJEaXNhYmxlQWNyeWxpY0JhY2tncm91bmRPbkxvZ29uIj1kd29yZDowMDAwMDAwMQ==
)<Nul>"%tmp%\cbf0.0.8.91b55f646bcf28321b1aa19efd68d615"
:cbf.91b55f646bcf28321b1aa19efd68d615
>Nul Certutil -f -decode "%tmp%\cbf0.0.8.91b55f646bcf28321b1aa19efd68d615" "Blur.reg"
goto :eof


1
barnabe0057 Messages postés 14439 Date d'inscription lundi 2 mars 2009 Statut Contributeur Dernière intervention 14 avril 2024 4 905
9 juil. 2021 à 18:09
Bonjour,

Je dirais que tu as oublié le & entre le cls et le setlocal

0
neo*** Messages postés 3110 Date d'inscription samedi 14 février 2009 Statut Contributeur sécurité Dernière intervention 9 août 2021 194
9 juil. 2021 à 19:27
Merci de ton retour mais ça ne marche pas, d'ailleurs, ça n'aurait pas fonctionné dans le 1er ;)
0
barnabe0057 Messages postés 14439 Date d'inscription lundi 2 mars 2009 Statut Contributeur Dernière intervention 14 avril 2024 4 905
Modifié le 9 juil. 2021 à 19:35
Dans ton premier exemple il n'y a pas de cls

Pour pouvoir t'aider plus efficacement il faudrait que je vois ton code, en totalité.
0
neo*** Messages postés 3110 Date d'inscription samedi 14 février 2009 Statut Contributeur sécurité Dernière intervention 9 août 2021 194
10 juil. 2021 à 11:38
merci barnabe,

Bien vu mais nan :)

Voilà le code entier (même problème avec 9 et 10) on dirait que c'est dès que je touche au registre ^^
Les 9 et 10 fonctionnent également en mode seul (c'est des regs bien pratiques que j'avais trouvé chez Mak de mémoire.

(mode brouillon je rappelle lol)

@echo off
mode 120,70
title FAUT FAIRE QUOI ?
color B5
echo.
%homedrive%
cd\
cd\windows\system32
echo.
:debut
cls
echo WELCOME %username%
echo.
echo.
echo.
echo Bon qu'est ce qu'on fait quoi ?
echo.
echo.
echo.
echo GENERALITES WINDOWS
echo.
echo.
echo 1 = restau
echo.
echo 2 = Regedit
echo.
echo 3 = winver
echo.
echo 4 = sfc
echo.
echo 5 = Reparation disque
echo.
echo.
echo MA BOITE A OUTILS
echo.
echo.
echo 6 = Telecharger CCleaner
echo.
echo 7 = Telecharger ADWClenaer
echo.
echo 8 = Telecharger ZHPCleaner
echo.
echo 9 = Flou Windows
echo.
echo 10 = visioneuse Windows
echo.
echo 11 = Ou qu'elle est ma cle wi-fi
echo.
echo 12 = VLC
echo.
echo Tape ta reponse et entree
SET /P fier=reponse ? > nul
IF %fier%==1 cls &start rstrui.exe &echo. &pause &cls &goto :debut
IF %fier%==2 cls &start regedit.exe &echo. &pause &cls &goto :debut
IF %fier%==3 cls &start winver &echo. &pause &cls &goto :debut
IF %fier%==4 cls &start sfc /scannow &echo. &pause &cls &goto :debut
IF %fier%==5 cls &start chkdsk /f /r &echo. &pause &cls &goto :debut
IF %fier%==6 cls &start chrome.exe "https://toolslib.net/downloads/finish/1-adwcleaner/" &echo. &pause &cls &goto :debut
IF %fier%==7 cls &start chrome.exe "https://www.ccleaner.com/fr-fr/ccleaner/download/standard" &echo. &pause &cls &goto :debut
IF %fier%==8 cls &start chrome.exe "https://nicolascoolman.eu/download/telechargez-zhpcleaner-gratuit/?wpdmdl=23616&refresh=60e2f7caba7ed1625487306" &echo. &pause &cls &goto :debut
IF %fier%==9 cls Windows Registry Editor Version 5.00
; Created by: Shawn Brink
; Created on: January 9th 2019
; Tutorial: https://www.tenforums.com/tutorials/124993-enable-disable-acrylic-blur-effect-sign-screen-windows-10-a.html
[HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System]
"DisableAcrylicBackgroundOnLogon"=dword:00000001 &echo. &pause &cls &goto :debut

IF %fier%==10 cls Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\Applications\photoviewer.dll]
[HKEY_CLASSES_ROOT\Applications\photoviewer.dll\shell]
[HKEY_CLASSES_ROOT\Applications\photoviewer.dll\shell\open]
"MuiVerb"="@photoviewer.dll,-3043"
[HKEY_CLASSES_ROOT\Applications\photoviewer.dll\shell\open\command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,72,00,75,00,\
6e,00,64,00,6c,00,6c,00,33,00,32,00,2e,00,65,00,78,00,65,00,20,00,22,00,25,\
00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,69,00,6c,00,65,00,73,00,\
25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,77,00,73,00,20,00,50,00,68,00,6f,\
00,74,00,6f,00,20,00,56,00,69,00,65,00,77,00,65,00,72,00,5c,00,50,00,68,00,\
6f,00,74,00,6f,00,56,00,69,00,65,00,77,00,65,00,72,00,2e,00,64,00,6c,00,6c,\
00,22,00,2c,00,20,00,49,00,6d,00,61,00,67,00,65,00,56,00,69,00,65,00,77,00,\
5f,00,46,00,75,00,6c,00,6c,00,73,00,63,00,72,00,65,00,65,00,6e,00,20,00,25,\
00,31,00,00,00
[HKEY_CLASSES_ROOT\Applications\photoviewer.dll\shell\open\DropTarget]
"Clsid"="{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}"
[HKEY_CLASSES_ROOT\Applications\photoviewer.dll\shell\print]
[HKEY_CLASSES_ROOT\Applications\photoviewer.dll\shell\print\command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,72,00,75,00,\
6e,00,64,00,6c,00,6c,00,33,00,32,00,2e,00,65,00,78,00,65,00,20,00,22,00,25,\
00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,69,00,6c,00,65,00,73,00,\
25,00,5c,00,57,00,69,00,6e,00,64,00,6f,00,77,00,73,00,20,00,50,00,68,00,6f,\
00,74,00,6f,00,20,00,56,00,69,00,65,00,77,00,65,00,72,00,5c,00,50,00,68,00,\
6f,00,74,00,6f,00,56,00,69,00,65,00,77,00,65,00,72,00,2e,00,64,00,6c,00,6c,\
00,22,00,2c,00,20,00,49,00,6d,00,61,00,67,00,65,00,56,00,69,00,65,00,77,00,\
5f,00,46,00,75,00,6c,00,6c,00,73,00,63,00,72,00,65,00,65,00,6e,00,20,00,25,\
00,31,00,00,00
[HKEY_CLASSES_ROOT\Applications\photoviewer.dll\shell\print\DropTarget]
"Clsid"="{60fd46de-f830-4894-a628-6fa81bc0190d}" &echo. &pause &cls &goto :debut
IF %fier%==11 cls setlocal enabledelayedexpansion
for /F "tokens=2 delims=:" %%a in ('netsh wlan show profile') do (
set wifi_pwd=
for /F "tokens=2 delims=: usebackq" %%F IN (`netsh wlan show profile %%a key^=clear ^| findstr /R /C:"Contenu de la"`) do (
set wifi_pwd=%%F
)
echo %%a : !wifi_pwd!
echo %%a : !wifi_pwd! >> PassWifi.txt
)
&echo. &pause &cls &goto :debut
IF %fier%==12 cls &start chrome.exe "https://get.videolan.org/vlc/3.0.16/win64/vlc-3.0.16-win64.exe" &echo. &pause &cls &goto :debut
cls &echo. & echo Y'a que ?? choix possibles, c'est quand meme pas complique, si ? &echo. &cls &goto :question
cls
exit

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
neo*** Messages postés 3110 Date d'inscription samedi 14 février 2009 Statut Contributeur sécurité Dernière intervention 9 août 2021 194
11 juil. 2021 à 10:53
effectivement c'est plus blanc que blanc ! :)

beau boulot ^^ j'ai même découvert des trucs que je connaissais pas ;)

Merci beaucoup et bon dimanche à toi
0
barnabe0057 Messages postés 14439 Date d'inscription lundi 2 mars 2009 Statut Contributeur Dernière intervention 14 avril 2024 4 905
11 juil. 2021 à 20:05
Merci bon dimanche également.
0