Batcher.fr le Forum

Code : Tout sélectionner

@REM L'architecture choisie, constituée d'une boucle principale et de sous-programmmes
@REM a été retenue pour éviter les effets de bord propres a DOS/CMD.
@REM Ceux qui se sont confrontés aux joies (?) du "Setlocal EnableDelayedExpansion"
@REM pour pallier et s'affranchir de la façon dont DOS/CMD affecte les variables dans
@REM une boucle <FOR..DO> ou un <IF ..  THEN .. ELSE> me comprendront avec compassion
@REM et pardonneront quelques affronts a l'élégance comme la duplication des variables
@REM ou l'omission des accents dans les messages affichés ...

@SETLOCAL

@ECHO +==================================================================+
@ECHO : Creation des lecteurs distants en fonction du reseau WiFi actuel :
@ECHO :     et du PC a partir duquel on est connecte a ce reseau.        :
@ECHO +==================================================================+
@ECHO.
@REM On n'affiche pas les messages des commandes qui suivent
@ECHO OFF

@REM On commence par supprimer les connexions existantes (permanentes)
@NET USE * /delete /Y >NUL

@REM On n'affichera le message de bienvenue qu'une fois, même si plusieurs lecteurs réseau doivent être connectés
@SET WELCOME=FALSE

@REM On recupère la ligne contenant le nom du reseau actuel et on la stocke dans un fichier (SSID.txt)
@NETSH WLAN SHOW INTERFACE | findstr /r "^....SSID">SSID.txt

@REM On lit le fichier dans une variable (RESEAU)
@SET /P RESEAU=<SSID.txt

@REM On supprime le fichier temporaire créé (c'est plus propre !)
@DEL SSID.txt

@REM On extrait le seul nom du reseau
@SET RESEAU=%RESEAU:~29%
@REM Boucle principale de lecture (ligne par ligne, en extrayant chaque champ) du fichier NetMap.CSV
@REM A chaque ligne lue, on appelle la routine ParseLig
@REM NOTE : On saute (skip) la 1ère ligne du fichier qui contient les en-tête de colonne et explicite le contenu des champs
@FOR /F "skip=1 tokens=1,2,3,4,5,6,7,8 delims=;" %%a in ('type .\NetMap.CSV') DO (CALL :Parselig "%%a" "%%b" "%%c" "%%d" "%%e" "%%f" "%%g" "%%h")
@ECHO.
@ECHO       +--------------------------+
@ECHO       :  Configuration terminee  :
@ECHO       : (appuyez sur une touche) :
@ECHO       +--------------------------+
@PAUSE>NUL

@REM On termine le batch en évitant d'exécuter une fois de trop le code qui suit (sous-programmes)
@GOTO :eof

@REM Routine ParseLig utilisée comme sous-programme appelé dans la boucle principale
:ParseLig
    @IF %~1 == %RESEAU% (
        @IF %~3 EQU %COMPUTERNAME% (
                        @REM ECHO %~1-%~2-%~3-%~4-%~5-%~6-%~7-%~8
            @SET UN=%~1
            @SET DEUX=%~2
            @SET TROIS=%~3
            @SET QUATRE=%~4
            @SET CINQ=%~5
            @SET SIX=%~6
            @SET SEPT=%~7
            @SET HUIT=%~8
            IF %WELCOME% EQU FALSE (
                @ECHO.
                @ECHO %~3, Bienvenue %~2 sur le reseau %~1 ...
                @ECHO.
                @SET WELCOME=TRUE
            )
            @CALL :PCActif
        )
    )
    @GOTO :eof

@REM Routine PCActif utilisée comme sous-programme appelé par la routine ParseLig
:PCActif
    @REM Test par Ping si le serveur-cible est actif
        @REM ECHO %UN%-%DEUX%-%TROIS%-%QUATRE%-%CINQ%-%SIX%-%SEPT%-%HUIT%
    @SET File=%QUATRE%.TXT
    @PING %QUATRE% -w 1000 -n 1 | FINDSTR "TTL=">%File%
    @FOR /F "usebackq" %%A IN ('%File%') DO set size=%%~zA
    @DEL %File%
    @IF %size% GTR 0 (
        @NET USE %CINQ% %SIX% %HUIT% %SEPT%>NUL
        @ECHO       %CINQ% ==^> %SIX%
        @ECHO.
    )
    @GOTO :eof

Code : Tout sélectionner

SSID DU RESEAU;BIENVENUE;<Nom_de_mon_PC> ou %COMPUTERNAME% pour tous;<SERVEUR-CIBLE (Nom ou IP)> ou <Vide>;<LETTRE DE LECTEUR>: ou <Vide>;<CHEMIN A CONNECTER> ou <Vide>;<MOT DE PASSE> ou <Vide>;<UTILISATEUR> ou <Vide>;COMMENTAIRE
WFWEEKEND;A LA MAISON;%COMPUTERNAME%;;;;;
WFZEUS;AU SIEGE;%COMPUTERNAME%;SRV-ROI;Y:;\\SRV-ROI\Public;P@ssw0rd;/user:SRV-ROI\Administrateur;
WFDOMTRAV;EN EXIL;%COMPUTERNAME%;PCLINUX;X:;\\PCLINUX\drive_c;PW;/user:PCLINUX\Moi;
WFDOMTRAV;EN EXIL;%COMPUTERNAME%;LIVEBOX;L:;\\Livebox\USB1;;;Disque rattaché au port USB de la box
WFTRAV;AU BUREAU;%COMPUTERNAME%;Ubu-Serv;Z:;\\Ubu-Serv\Public;PW2;/user:Ubu-Serv\MoiAussi;Tous les PC du bureau ont accès au répertoire public sur le serveur
WFTRAV;AU BUREAU;MONPC;Ubu-Serv;R:;\\Ubu-Serv\Restreint;PW2;/user:Ubu-Serv\MoiAussi;Mon adjointe et moi avons seuls l'accès au répertoire Restreint
WFTRAV;AU BUREAU;EXPLOIT;Ubu-Serv;R:;\\Ubu-Serv\Restreint;PW2;/user:Ubu-Serv\MoiAussi;C'est le PC de mon adjointe
WFTRAV;AU BUREAU;SECRETARIAT;SERV-COMPTA;F:;\\SERV-COMPTA\ExportCompta;PWD3;/user:SERV-COMPTA\SECRETAIRE