echo off
CALL :GetDateTime
SET StartTEMPDATE=%TEMPDATE%
SET StartTEMPTIME=%TEMPTIME%
rem -↓↓↓---------------------------------------------------------------------------
pause
echo %StartTEMPDATE%
echo %StartTEMPTIME%
rem wevtutil qe Application /c:10 /rd:true /f:text
rem -↑↑↑---------------------------------------------------------------------------
rem IF NOT %RC% EQU 0 GOTO NG
IF NOT %ERRORLEVEL% EQU 0 GOTO NG
CALL :GetDateTime2 %StartTEMPDATE% %StartTEMPTIME%
SET event_Level=INFORMATION
SET event_ID=901
SET event_Description="%computername% HotBKUP %~n0 %1 Success %ERRORLEVEL% %StartTEMPDATE% %StartTEMPTIME% %TEMPSEC%s"
GOTO OK
:NG
CALL :GetDateTime2 %StartTEMPDATE% %StartTEMPTIME%
SET event_Level=ERROR
SET event_ID=902
SET event_Description="%computername% HotBKUP %~n0 %1 ERROR %ERRORLEVEL% %StartTEMPDATE% %StartTEMPTIME% %TEMPSEC%s "
:OK
echo %event_Level%_%event_ID%_%event_Description%
CALL :SetEVNTLOG %event_Level% %event_ID% %event_Description%
EXIT /B
rem *********************************************************************************
rem event log out
rem Input
rem Level
rem Description
rem *********************************************************************************
:SetEVNTLOG
SET event_Level=%1
SET event_ID=%2
SET event_Description=%3
SET event_Source="Acronis"
SET event_LogName=APPLICATION
EVENTCREATE /T %event_Level% /ID %event_ID% /D %event_Description% /SO %event_Source% /L %event_LogName%
IF %ERRORLEVEL% EQU 0 GOTO LOGEND
echo %ERRORLEVEL%
:LOGEND
EXIT /B
rem *********************************************************************************
rem Get start date time
rem Result
rem TEMPDATE
rem TEMPTIME
rem *********************************************************************************
:GetDateTime
rem FOR /F "tokens=1-3 delims=/" %%D IN ("%date%") DO set TEMPDATE=%%D%%E%%F
rem echo %TEMPDATE%
rem FOR /F "tokens=1-3 delims=:" %%D IN ("%time%") DO echo %%D%%E%%F
rem exit /b
SET TEMPDATE=%date:~-10,4%%date:~-5,2%%date:~-2,2%
SET TEMPTIME2=%time: =0%
SET TEMPTIME=%TEMPTIME2:~0,2%%time:~3,2%%time:~6,2%
EXIT /B
rem *********************************************************************************
rem Get end date time & GapTime
rem
rem Input
rem StartTEMPDATE
rem StartTEMPTIME
rem Result
rem TEMPDATE
rem TEMPTIME
rem TEMPSEC
rem *********************************************************************************
:GetDateTime2
SET StartTEMPDATE=%1
SET StartTEMPTIME=%2
SET TEMPDATE=%date:~-10,4%%date:~-5,2%%date:~-2,2%
SET TEMPTIME2=%time: =0%
SET TEMPTIME=%TEMPTIME2:~0,2%%time:~3,2%%time:~6,2%
rem ----------------------------------------------------
SET EndTEMPDATE=%TEMPDATE%
SET EndTEMPTIME=%TEMPTIME%
SET /a Gapdate=(%EndTEMPDATE%-%StartTEMPDATE%) * 3600 * 24
SET /a Esec=%EndTEMPTIME:~0,2% * 3600 + %EndTEMPTIME:~2,2% * 60 + %EndTEMPTIME:~4,2%
SET /a Ssec=%StartTEMPTIME:~0,2% * 3600 + %StartTEMPTIME:~2,2% * 60 + %StartTEMPTIME:~4,2%
SET /a TEMPSEC=%Gapdate% + (%Esec% - %Ssec%)
echo GetDateTime2=%TEMPSEC%
EXIT /B
rem *********************************************************************************
