Скрипт VBS

rem 1.Скопировать в папку
@echo off
 
SET dd1=%DATE%
SET tt1=%TIME%
 
echo ----- >> log.doc
echo Start %time% >> log.doc
echo 1.Kopiruem prog.pas in C:\Temp\  >>log.doc
copy prog.pas c:\temp 
 
rem Командный файл для компиляции 
rem консольного приложения prog.pas
path=C:\FPC\2.4.2\bin\i386-win32\;%path%
set app=prog
 
rem 2.Запустить программу в Pascal 3.Ждать !!!
rem start /wait fp.exe %app%.pas >log.doc
 
rem Удаление результатов предыдущей компиляции
if exist %app%.exe del %app%.exe
if exist %app%.o del %app%.o
 
rem Создание exe
echo Sozdaem prog.exe  >>log.doc
fpc.exe %app%.pas >errlog.doc
 
rem 2.Запустить программу 3.Ждать
echo 2.Zapuskaem exe i 3.gdem  >>log.doc
start /wait %app%.exe
 
rem 4.Удаление exe
echo 4.Udalyaem prog.exe in current folder  >>log.doc
del %app%.exe
 
echo %date%; %time%  >>log.doc
echo Rabota zavershena uspeshno!  >>log.doc
echo Stop %time% >> log.doc
 
SET tt2=%TIME%
SET hh1=%tt1:~0,2%
SET hh2=%tt2:~0,2%
SET mm1=%tt1:~3,2%
SET mm2=%tt2:~3,2%
SET ss1=%tt1:~6,2%
SET ss2=%tt2:~6,2%
 
if %ss2% LSS %ss1% SET /A ss=60+%ss2%-%ss1%
if %ss2% LSS %ss1% SET /A ss2=%ss2%-1
if %ss2% GEQ %ss1% set /A ss=%ss2%-%ss1%
if %mm2% LSS %mm1% SET /A mm=60+%mm2%-%mm1%
if %mm2% LSS %mm1% SET /A hh2=%hh2%-1
if %mm2% GEQ %mm1% set /A mm=%mm2%-%mm1%
set /A hh=hh2-hh1
 
 
ECHO %dd1%  %tt1:~0,8%  %s% %hh%:%mm%:%ss%>>log.doc
 
 
echo chislo zapyska
set /a k=0
for %%i in (prog.pas) do set /a k=k+1
if %errorlevel%==0 echo deistviya vipolnilis %k% raz >> log.doc
pause