Hola
Es una tarea facil, pero en lugar de pedirlo todo hecho podrías intentarlo por ti mismo y mostrar tus progresos tomando como referencia el código que te puse en este otro post (yo, no
MadAntrax) donde se puede apreciar cláramente las órdenes necesarias para lanzar un MsgBox...
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'
)
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"
)
Saludos...