1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
| @echo off
Rem récupère la clef dde registre contenant l'imprimante par defaut et supprime toutes les options à "," derrière
for /F "eol=, tokens=1,2,3,4 delims=," %%i in ('REG QUERY "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows" /s^|find "winspool"') do set TEST=%%i
@echo off
::On simule l'élement récuperé dans ton fichier .txt avec espace
set "$imp=\\SRV1\F001 "
for %%a in (%$imp%) do set $imp=%%~na
::On imprime la sortie
echo Imprimante : [%$imp%]
Rem créer un variable test contenant ce que renvoi la fonction for au dessus
set TEST=%TEST%
Rem Ecrit la varaible dans le fichier txt
echo %TEST%>E:\ImpDefaut.txt
Rem Récupère le nom de l'imprimante en 4 variables et la met dans une seule
FOR /f "tokens=1,2,3,4,5,6" %%i in ('find /i "REG_SZ" "E:\ImpDefaut.txt"') do set IMP=%%k %%l %%m %%n
Rem créer un variable test contenant ce que renvoi la fonction for au dessus
set IMP=%IMP%
:ImpReseau
Rem Vérifie s'il y a trois espaces en fin de ligne
set IMPR=%IMP:~-3%
if "%IMPR%"==" " goto :SupprEspace3
Rem Vérifie s'il y a deux espaces en fin de ligne
set IMPR=%IMP:~-2%
if "%IMPR%"==" " goto :SupprEspace2
Rem Vérifie s'il y a un espace en fin de ligne
set IMPR=%IMP:~-1%
if "%IMPR%"==" " goto :SupprEspace
Rem Ecrit la variable IMP dans le fichier txt
@echo off
echo %IMP%>E:\ImpDefaut.txt
goto :exit
:SupprEspace
echo %IMP:~0,-1%>E:\ImpDefaut.txt
Rem Sort du script
goto :exit
:SupprEspace2
echo %IMP:~0,-2%>E:\ImpDefaut.txt
Rem Sort du script
goto :exit
:SupprEspace3 |
Partager