@echo off
title Raccourci Poids Plume
cd /d "%~dp0"

rem Le chemin passe par une variable d environnement et non par la ligne de
rem commande : un dossier contenant une apostrophe (« d'images ») cassait
rem sinon la chaine de caracteres et le script echouait.
set "PP_DOSSIER=%~dp0"

echo.
echo   Creation du raccourci sur le Bureau...
echo.

powershell -NoProfile -ExecutionPolicy Bypass -Command ^
 "$dossier = $env:PP_DOSSIER.TrimEnd('\');" ^
 "$lanceur = Join-Path $dossier 'demarrer-sans-fenetre.vbs';" ^
 "if (-not (Test-Path -LiteralPath $lanceur)) { Write-Host '   ERREUR : fichiers introuvables dans ce dossier.'; Write-Host '   Placez ce script a cote de serveur.mjs.'; exit 1 };" ^
 "$bureau = [Environment]::GetFolderPath('Desktop');" ^
 "$w = New-Object -ComObject WScript.Shell;" ^
 "$a = $w.CreateShortcut((Join-Path $bureau 'Poids Plume.lnk'));" ^
 "$a.TargetPath = Join-Path $env:SystemRoot 'System32\wscript.exe';" ^
 "$a.Arguments = [char]34 + $lanceur + [char]34;" ^
 "$a.WorkingDirectory = $dossier;" ^
 "$a.IconLocation = (Join-Path $dossier 'icone.ico') + ',0';" ^
 "$a.Description = 'Preparer des photos pour le web';" ^
 "$a.Save();" ^
 "Write-Host ('   Raccourci cree : ' + (Join-Path $bureau 'Poids Plume.lnk'));" ^
 "Write-Host ('   Il pointe vers : ' + $dossier)"

if errorlevel 1 goto fin

echo.
echo   Double-cliquez sur l icone du Bureau : l outil demarre sans fenetre.
echo   Pour l arreter : bouton "Quitter" dans l interface.

:fin
echo.
pause
