{

my $ip = $InternalInterface{'IPAddress'};
my $nt = $smb{'Workgroup'};
my $pass = $wpkg{'UserPassword'};

my $out .=<<"EOF";
\@echo off
cls
echo.
echo    #  ######
echo.      #     #   ##    ####   ####  ###### #####  ###### #      #      ######
echo    #  #     #  #  #  #      #      #      #    # #      #      #      #
echo.   #  ######  #    #  ####   ####  #####  #    # #####  #      #      #####
echo    #  #       ######      #      # #      #####  #      #      #      #
echo.   #  #       #    # #    # #    # #      #   #  #      #      #      #
echo    #  #       #    #  ####   ####  ###### #    # ###### ###### ###### ######
echo.
echo.
echo.
echo.
echo.
echo.       _________________________________________________________
echo       i\\ _______________________________________________________\\
echo.      i i                                                        i
echo       i i   Mises a jour en cours. N'eteignez pas l'ordinateur   i
echo.      i i                                                        i
echo       i i   Il s'eteindra lui-meme a la fin des operations       i
echo.      i i                                                        i
echo        \\i________________________________________________________i
echo.
echo.

ping -n 2 -w 2000 $ip > NUL
if errorlevel 1 (
   echo Reseau non connecte
   exit /b %errorlevel%
)
net use \\\\$ip\\wpkg /user:$nt\\deploiement $pass >NUL
net use \\\\$ip\\wpkglogs /user:$nt\\deploiement $pass >NUL
set SOFTWARE=\\\\$ip\\wpkg\\softwares
set SETTINGS=\\\\$ip\\wpkg\\settings
set WPKGLOGS=\\\\$ip\\wpkglogs
cscript  //Nologo \\\\$ip\\wpkg\\wpkg.js /synchronize /nonotify /quiet

EOF

$out =~ s/\n/\r\n/g;
$OUT = $out;

}