@echo off
REM Installation client PPD V3.1.39
REM ===============================
set CurrentDir=%~dp0

ver | find "Windows XP" > nul
if not errorlevel 1 goto verif_PPD15
ver | find "Windows 2000" > nul
if not errorlevel 1 goto verif_PPD15
goto error
:error
echo.
echo Warning: Peugeot Planet Diag requires Windows 2000 or Windows XP.
echo The installation cannot be run under this version of Windows.
echo.
goto fin
REM ------------------------------------------------------------------------
:verif_PPD15
REM test d'existance de PPD 1.5
if exist c:\app\ppdiag\ediag.properties goto backup_ancien
REM ------------------------------------------------------------------------
:verif_PPD30
REM test d'existance de PPD
if exist c:\app\ppdiag\persistent\ediag.properties goto backup_ancien
goto install_suite
REM ------------------------------------------------------------------------
:backup_ancien

cscript.exe "%currentDir%utils\old_config.vbs" //nologo //B

rem save_properties
if exist c:\app\ppdiag\ediag.properties goto save_PPD15
if exist c:\app\ppdiag\persistent\ediag.properties goto save_PPD30
goto backup_ancien_fin
:save_PPD15
xcopy c:\app\ppdiag\ediag.properties %temp%\ /R /Y >nul
goto backup_ancien_fin
:save_PPD30
xcopy c:\app\ppdiag\persistent\ediag.properties %temp%\ /R /Y >nul
goto backup_ancien_fin

:backup_ancien_fin
if not exist c:\app\ppdiag\ppd.bat goto next_backup_ancien_fin
start /b c:\app\ppdiag\ppd.bat stop >NUL
REM wait a little to be PPD has been stopped
ping 1.1.1.1 -n 5 -w 1000 >NUL
:next_backup_ancien_fin
if not exist c:\app\ppdiag_old\ rename c:\app\ppdiag ppdiag_old >nul
if exist c:\app\ppdiag rd c:\app\ppdiag /s /q
attrib +h c:\app\ppdiag_old

Rem Cette installation n'installe plus le cable ACTIA

REM ------------------------------------------------------------------------
:install_suite
REM ====================
REM début d'installation 
REM ====================

Rem Cette installation n'installe plus le cable ACTIA
rem echo Peugeot Planet Interface drivers installation in progress...
rem xcopy "%CurrentDir%cable\ACTIAUSB.inf" %SystemRoot%\inf\ /R /Y >nul
rem xcopy "%CurrentDir%cable\VCommUSB.sys" %SystemRoot%\system32\Drivers\ /R /Y >nul
rem attrib -r %SystemRoot%\inf\ACTIAUSB.inf 
rem attrib -r %SystemRoot%\system32\Drivers\VCommUSB.sys 
rem rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 %SystemRoot%\inf\ACTIAUSB.inf
rem echo.

rem Peugeot Planet Diag client installation
xcopy "%CurrentDir%ppdiag\*.*" c:\app\ppdiag\*.* /E /R /Y >nul
xcopy "%currentDir%utils\ppd.ico" c:\app\ppdiag\ /R /Y >nul
attrib -r c:\app\ppdiag\*.* /S
if not exist c:\app\ppdiag\log md c:\app\ppdiag\log

rem finalisation
%systemroot%\regedit /s "%currentDir%utils\PPDClient.reg"
if exist "%userprofile%\desktop\Java Web Start.lnk" del /F /Q "%userprofile%\desktop\Java Web Start.lnk"
cscript.exe "%currentDir%utils\gestcomm.vbs" //nologo //B
cscript.exe "%currentDir%utils\finish.vbs" //nologo //B

:fin