parent
84c6b4928c
commit
6ade3d068f
5 changed files with 67 additions and 4 deletions
@ -0,0 +1,5 @@ |
|||||||
|
#!/usr/bin/perl -w |
||||||
|
|
||||||
|
use esmith::Build::CreateLinks qw(:all); |
||||||
|
|
||||||
|
templates2events("/home/e-smith/files/shares/wpkg/files/settings/wpkg/wpkg.bat", qw(wpkg-update bootstrap-console-save)); |
@ -0,0 +1,51 @@ |
|||||||
|
{ |
||||||
|
|
||||||
|
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; |
||||||
|
|
||||||
|
} |
Loading…
Reference in new issue