Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @echo off
- rem Froz 21.09.2016
- set BIN=%~dp0bin
- set DST=D:\PDF_cmdtools
- set CMD1=PDF_rotate_left.cmd
- set CMD2=PDF_rotate_right.cmd
- set CMD3=PDF_split.cmd
- set CMD4=PDF_merge.cmd
- set LNK1=вPDF влево.lnk
- set LNK2=вPDF вправо.lnk
- set LNK3=вPDF разделить.lnk
- set LNK4=вPDF сложить.lnk
- set JM=jre-*-windows-i586.exe
- set SM=sejda-console*.zip
- rem -----------------------------------------------------------------
- echo.
- echo Для работы нужен пакет Java Runtime.
- :jch
- set/P J=Установить свежий Java Runtime ? ( y-да / n-уже установлен / q-выход ):
- if -%J%==-y goto jins
- if -%J%==-n goto go
- if -%J%==-q echo Выход.& goto:eof
- goto jch
- :jins
- echo Установка %JE% (нужны права администратора)...
- for %%j in ("%BIN%\%JM%") do set JE="%%j"
- if -%JE%==- echo пакет Java Runtime (файл по маске %JM%) не найден, выходим.& pause & goto:eof
- start /wait "" %JE%
- echo Если не появилось окно с установкой Java - скопируйте и запустите вручную
- echo с локального диска echo файл %JE% с правами администратора.
- :go
- for %%s in ("%BIN%\%SM%") do (
- set SE="%%s"
- set SEF=%%~ns
- )
- set SEC=%SEF:~0,-4%
- if -%SE%==- echo пакет sejda-console не найден, выходим.& pause & goto:eof
- if not exist "%DST%" md "%DST%"
- "%BIN%\7z.exe" x %SE% -o"%DST%" -aoa
- for /d %%f in ("%DST%\%SEC%\*.*") do move %%f "%DST%"
- rd "%DST%\%SEC%"
- copy "%BIN%\*.cmd" "%DST%" /Y
- set TRG1=%DST%\%CMD1%
- set TRG2=%DST%\%CMD2%
- set TRG3=%DST%\%CMD3%
- set TRG4=%DST%\%CMD4%
- set EV="%temp%\$%~n0$.vbs"
- chcp 1251 >nul
- echo Set wsc = WScript.CreateObject("WScript.Shell")>>%ev%
- echo Set lnk = wsc.CreateShortcut(wsc.SpecialFolders("SendTo") ^& "\%LNK1%")>>%ev%
- echo lnk.targetpath = "%TRG1%">>%ev%
- echo lnk.Save>>%ev%
- echo Set lnk = wsc.CreateShortcut(wsc.SpecialFolders("SendTo") ^& "\%LNK2%")>>%ev%
- echo lnk.targetpath = "%TRG2%">>%ev%
- echo lnk.Save>>%ev%
- echo Set lnk = wsc.CreateShortcut(wsc.SpecialFolders("SendTo") ^& "\%LNK3%")>>%ev%
- echo lnk.targetpath = "%TRG3%">>%ev%
- echo lnk.Save>>%ev%
- echo Set lnk = wsc.CreateShortcut(wsc.SpecialFolders("SendTo") ^& "\%LNK4%")>>%ev%
- echo lnk.targetpath = "%TRG4%">>%ev%
- echo lnk.Save>>%ev%
- chcp 866 >nul
- %ev% & del %ev%
- echo Готово.
- pause
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement