|
|
@ -1,26 +1,25 @@ |
|
|
|
{ |
|
|
|
{ |
|
|
|
|
|
|
|
|
|
|
|
my $ip = $InternalInterface{'IPAddress'}; |
|
|
|
my $ip = $InternalInterface{'IPAddress'}; |
|
|
|
my $nt = $smb{'Workgrpup'}; |
|
|
|
my $nt = $smb{'Workgroup'}; |
|
|
|
my $pass = $wpkg{'UserPassword'}; |
|
|
|
my $pass = $wpkg{'UserPassword'}; |
|
|
|
|
|
|
|
|
|
|
|
my $out .=<<"EOF"; |
|
|
|
my $out .=<<"EOF"; |
|
|
|
|
|
|
|
\@echo off |
|
|
|
@echo off |
|
|
|
|
|
|
|
cls |
|
|
|
cls |
|
|
|
echo. |
|
|
|
echo. |
|
|
|
echo. _________________________________________________________ |
|
|
|
echo. _________________________________________________________ |
|
|
|
echo i\ _______________________________________________________\ |
|
|
|
echo i\\ _______________________________________________________\\ |
|
|
|
echo. i i i |
|
|
|
echo. i i i |
|
|
|
echo i i Mises a jour en cours. N'eteignez pas l'ordinateur i |
|
|
|
echo i i Mises a jour en cours. N'eteignez pas l'ordinateur i |
|
|
|
echo. i i i |
|
|
|
echo. i i i |
|
|
|
echo i i Il s'eteindra lui-meme a la fin des operations i |
|
|
|
echo i i Il s'eteindra lui-meme a la fin des operations i |
|
|
|
echo. i i i |
|
|
|
echo. i i i |
|
|
|
echo \i________________________________________________________i |
|
|
|
echo \\i________________________________________________________i |
|
|
|
echo. |
|
|
|
echo. |
|
|
|
echo. |
|
|
|
echo. |
|
|
|
net use \\\\$ip\\wpkg /user:$nt\\deploiement $pass >NUL |
|
|
|
net use \\\\$ip\\wpkg /user:$nt\\deploiement $pass >NUL |
|
|
|
net use \\\\$ip\\wpkglogs /user:$nt\deploiement $pass >NUL |
|
|
|
net use \\\\$ip\\wpkglogs /user:$nt\\deploiement $pass >NUL |
|
|
|
set SOFTWARE=\\\\$ip\\wpkg\\softwares |
|
|
|
set SOFTWARE=\\\\$ip\\wpkg\\softwares |
|
|
|
set SETTINGS=\\\\$ip\\wpkg\\settings |
|
|
|
set SETTINGS=\\\\$ip\\wpkg\\settings |
|
|
|
set WPKGLOGS=\\\\$ip\\wpkglogs |
|
|
|
set WPKGLOGS=\\\\$ip\\wpkglogs |
|
|
@ -32,3 +31,4 @@ $out =~ s/\n/\r\n/g; |
|
|
|
$OUT = $out; |
|
|
|
$OUT = $out; |
|
|
|
|
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|