LISTING 2: Routine to Generate a Message to Users

Note: The symbol * signals a wrapped line.

; Check the disk size

if $DSize>$UDSIZE

$suceso="001" ; event log

gosub "LogonLog"

$DSizeEx=$DSize-$UDSIZE

$msg1="$Name, the total size is $DSize bytes, over $DSizeEx bytes the maximum * allowed, $UDSIZE bytes."

$msg2="You must review the files to delete it if you aren't using it"

$msg3="The information was collected on $DSizeDate $DSizeTime."

$msg=$msg1+chr(13)+chr(13)+$msg2+chr(13)+chr(13)+$msg3

beep

$RC=MessageBox($msg, "Size on Disk over $DSizeEx bytes", 16)

$RC=setconsole("MAXIMIZE")

endif

:end

cookie1

exit