@Echo OFF
 
Set "NombreDelSoft=MiBatch"
 
REG.exe Query "HKLM\Software\%NombreDelSoft%" /V "ExpirationDate" 1>NUL 2>&1 || (
	Echo CreateObject^("WScript.Shell"^).RegWrite "HKLM\Software\%NombreDelSoft%\ExpirationDate", DateAdd^("m", 1, Date^), "REG_SZ" > "%TEMP%\SetTrialDate.vbs"
	Wscript.exe "%TEMP%\SetTrialDate.vbs"
	Del /Q "%TEMP%\SetTrialDate.vbs" 2>NUL
)
 
For /F "Tokens=3" %%# in (
	'REG.exe Query "HKLM\Software\%NombreDelSoft%" /V "ExpirationDate" 2^>^&1 ^| MORE +1'
) Do (
	Set "ExpirationDate=%%#"
)
 
IF %Date:~6,4%%Date:~3,2%%date:~0,2% GEQ %ExpirationDate:~6,4%%ExpirationDate:~3,2%%ExpirationDate:~0,2% (
	Echo MsgBox "El tiempo de prueba para esta aplicación ha expirado" ^& vbnewline ^& "Fecha de expiración: %ExpirationDate%", 16, "%NombreDelSoft%" > "%TEMP%\DisplayTrialExpiration.vbs"
	Start /B Wscript.exe "%TEMP%\DisplayTrialExpiration.vbs"
	Exit /B 1
)