Foro de elhacker.net

    @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
    )