Export CSV list of installed applications (uses PGLST)

@rem Export CSV list of application in Program Files
@rem PGLST is required: http://www.office-neo.jp/pglst/pglst.html

@set YYYYMMDD=%DATE:/=%
@set MYDOCUMENTS=%USERPROFILE%\Documents
@set DESTDIR=%MYDOCUMENTS%\Backup\%YYYYMMDD%\Profiles

@rem Check if My Documents exists
@if not exist "%MYDOCUMENTS%" goto err_nodir

@rem Create destination directory
@if exist "%DESTDIR%" goto destdir_is_ready
@mkdir "%DESTDIR%"
@if not exist "%DESTDIR%" goto err_nodir
:destdir_is_ready

@pglst /ru /vw>%DESTDIR%\PGLST.csv
@goto bye

:err_nodir
@echo Directory not found>&2
@exit /b 1

:bye