[scripts]
Applications=2005/03/05
Hardware=2005/03/25
Security=2005/03/15
Software=2005/03/08
 

Break On
Dim $SO,$Pause
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('WrapAtEOL','On')
 

Dim $Applications, $Hardware, $Security, $Software
Dim $LastRunApplications, $LastRunHardware, $LastRunSecurity, $LastRunSoftware
$Applications = ReadProfileString (@ScriptDir+'\'+'lastrun.ini', 'scripts', 'Applications')
$Hardware = ReadProfileString (@ScriptDir+'\'+'lastrun.ini', 'scripts', 'Hardware')
$Security = ReadProfileString (@ScriptDir+'\'+'lastrun.ini', 'scripts', 'Security')
$Software = ReadProfileString (@ScriptDir+'\'+'lastrun.ini', 'scripts', 'Software')
 

$LastRunApplications = DateCalc(@DATE,$Applications)
$LastRunHardware = DateCalc(@DATE,$Hardware)
$LastRunSecurity = DateCalc(@DATE,$Security)
$LastRunSoftware = DateCalc(@DATE,$Software)
 

If $LastRunApplications > 7
  ? 'Applications script last ran on '+$Applications+' which was '+$LastRunApplications+' days ago'
  ? 'It is now time to run the Applications script again' ?
  ; Run the applications script and update the lastrun.ini 
Else
  ? 'The applications script does not need to be run at this time.' ?
EndIf
 

If $LastRunHardware > 7
  ? 'Hardware script last ran on '+$hardware+' which was '+$LastRunhardware+' days ago'
  ? 'It is now time to run the Hardware script again' ?
  ; Run the applications script and update the lastrun.ini 
Else
  ? 'The Hardware script does not need to be run at this time.' ?
EndIf
 

If $LastRunSecurity > 7
  ? 'Security script last ran on '+$security+' which was '+$LastRunSecurity+' days ago'
  ? 'It is now time to run the Security script again' ?
  ; Run the security script and update the lastrun.ini 
Else
  ? 'The Security script does not need to be run at this time.' ?
EndIf
 

If $LastRunsoftware > 7
  ? 'Software script last ran on '+$software+' which was '+$LastRunSoftware+' days ago'
  ? 'It is now time to run the Software script again' ?
  ; Run the Software script and update the lastrun.ini 
Else
  ? 'The Software script does not need to be run at this time.' ?
EndIf
 

Function DateCalc($date1, $DateOrMod, optional $SingleDigit)
  Dim $_intDate1, $_intYear1, $_intMonth1, $_intDay1
  Dim $_intDate2, $_intYear2, $_intMonth2, $_intDay2
  $date1 = Split($date1,'/')
  If UBound($date1) <> 2
    Exit 1
  EndIf
  $_intYear1  = Val($date1[0])
  $_intMonth1 = Val($date1[1])
  $_intDay1   = Val($date1[2])
  If $_intMonth1 < 3
      $_intMonth1 = $_intMonth1 + 12
      $_intYear1  = $_intYear1  - 1
  EndIf
  $_intDate1 = $_intDay1 + ( 153 * $_intMonth1 - 457 ) / 5 + 365 * $_intYear1 +
               $_intYear1 / 4 - $_intYear1 / 100 + $_intYear1 / 400 - 306
  Select
      Case VarType($DateOrMod) = 3
          $_intDate2  = $_intDate1 + $DateOrMod
          If InStr($_intDate2,'-') $_intDate2 = Val(SubStr($_intDate2,2,len($_intDate2)-1)) EndIf
          $_intYear2  = ( 100 * ( ( ( 100*($_intDate2+306)-25)/3652425)
                                   - ( ((100*($_intDate2+306)-25)/3652425)/4)
                                 ) + (100*($_intDate2+306)-25)
                         ) / 36525
          $_intMonth2 = (   5 * ( ( ( 100*($_intDate2+306)-25)/3652425)
                                   - ( ((100*($_intDate2+306)-25)/3652425)/4)
                                   + ($_intDate2+306) - 365 * $_intYear2 - $_intYear2 / 4
                                 ) + 456
                         ) / 153
          $_intDay2   = ( ( ( 100*($_intDate2+306)-25)/3652425)
                                   - ( ((100*($_intDate2+306)-25)/3652425)/4)
                                   + ($_intDate2+306) - 365 * $_intYear2 - $_intYear2 / 4
                         )         - ( 153 * $_intMonth2 - 457
                                      ) / 5
          If $_intMonth2 > 12 $_intYear2 = $_intYear2 + 1 $_intMonth2 = $_intMonth2 - 12 EndIf
          If Not $SingleDigit
              If Len($_intYear2 ) < 4
                  $_ = Execute("for $i=1 to 4-Len($$_intYear2) $$_intYear2 = '0' + $$_intYear2 
next")
              EndIf
              $_intMonth2 = Right("0" + $_intMonth2,2)
              $_intDay2   = Right("0" + $_intDay2,2)
          EndIf
          $DateCalc = ''+$_intYear2+'/'+$_intMonth2+'/'+$_intDay2
      Case VarType($DateOrMod) = 8
          $DateOrMod = Split($DateOrMod,'/')
          If UBound($DateOrMod) <> 2
              Exit 1
          EndIf
          $_intYear2  = Val($DateOrMod[0])
          $_intMonth2 = Val($DateOrMod[1])
          $_intDay2   = Val($DateOrMod[2])
          If $_intMonth2 < 3
              $_intMonth2 = $_intMonth2 + 12
              $_intYear2  = $_intYear2  - 1
          EndIf
          $_intDate2 = $_intDay2 + ( 153 * $_intMonth2 - 457 ) / 5 + 365 * $_intYear2 +
                       $_intYear2 / 4 - $_intYear2 / 100 + $_intYear2 / 400 - 306
          $DateCalc  = $_intDate1 - $_intDate2
          ;comment the next line If you wish to return negative results also !!! 
          If InStr($DateCalc,'-') $DateCalc = Val(SubStr($DateCalc,2,Len($DateCalc)-1)) EndIf
      Case 1
          Exit 1
  EndSelect
EndFunction