$date0 = @date,@time
for $i = 1 to 10
	? split(ctime(flipctime($date0[0],$date0[1]) + (86400*45)*$i))[0]
next

Break On

Dim $SO

$SO=SetOption('Explicit','On')

$SO=SetOption('NoVarsInStrings','On')

  

Dim $SetCounter,$Key,$KeyValue,$Delay

$Delay=3888000

$SetCounter=FlipcTime(@DATE,@TIME)

$Key=KeyExist('HKCU\Software\MyCompany\Schedule\45')

If $Key

	$KeyValue=Val(ReadValue('HKCU\Software\MyCompany\Schedule\45','time'))

		If $SetCounter > ($KeyValue+$Delay)

			; Shell 'application you want to run every 45 days'

			; Reset the counter to current time so you can check properly next time

			$KeyValue=WriteValue('HKCU\Software\MyCompany\Schedule\45','time',$SetCounter,REG_SZ)

			? 'Time is beyond the ' + $Delay + ' day period, going to run app now'

		EndIf

Else

	? 'Appears to be first time run, now setting registry value... '

	$KeyValue=WriteValue('HKCU\Software\MyCompany\Schedule\45','time',$SetCounter,REG_SZ)

	; Shell 'application you want to run every 45 days'

Endif

  

 

Function FlipcTime($date,$time,optional $tz)

	dim $y,$m,$d

	$date = split($date,"/")

	if ubound($date) <> 2 exit(1) endif

	$y=val($date[0]) $m=val($date[1]) $d=val($date[2])

	if $m<3

		$m=$m+12

		$y=$y-1

	endif

	$Date=$d+(153*$m-457)/5+365*$y+$y/4-$y/100+$y/400-306

	$time = split($time,":")

	select 

		case ubound($time)=1

			redim preserve $time[2]

			$time[2]=0

		case ubound($time)=2

		case 1

			exit(1)

	endselect

	$time = (val($time[0])*3600)+(val($time[1])*60)+val($time[2])

	$flipctime = IIF($tz,(($date-719163)*86400 + $time)-($tz*3600),($date-719163)*86400 + $time)

endfunction

Dim $OS, $Msg, $Answer, $RC

$OS=setOption('Explicit','off')
$OS=setOption('NoVarsInString','On') 
$OS=setOption('WrapAtEOL','On')

Dim $SetCounter, $Key, $KeyValue, $Delay, $KiXtartSchedule

$Delay=3888000
$SetCounter=FileTime(@Date,@Time)
$KiXtartSchedule="HKEY_CURRENT_USER\Software\LogOnScripts\Schedule\45"
$Key=KeyExist($KiXtartSchedule)
If $Key
    $KeyValue=Val(ReadValue($KiXtartScheduale,'time'))
    If SetCounter > ($KeyValue+$Delay)
       $Answer=MessageBox("what ever need to be said","Reminder",4180)
       If $Answer <>6
          $Msg=MessageBox("what ever need to be said",4112)
          $RC=LogOff(1)
        Else
          $Msg=MessageBox(What ever need to be said",64,5)
       EndIf   KeyValue=WriteValue$KiXtartSchedule,'time',$SetCounter,REG_SZ)
      If $Answer <>6
          $Msg=MessageBox("what ever need to be said",4112)
          $RC=LogOff(1)
        Else
          $Msg=MessageBox(What ever need to be said",64,5)
       EndIf   
If InGroup("Domain Users")
    MapDrive("F:", "jmmes", "Vol1")
    MapDrive("G:", "jmmes", "mCalas")
    MapDrive("H:", "jmmes", "caldata")
    MapDrive("I:", "jmmes", "s6system")
    MapDrive("J:", "jmmes", "winapp")
    ; K: Drive Mapped by OS as Home Share
    MapDrive("L:", "jmmes", "abas")
    MapDrive("M:", "jmmes", "vol1")
    MapDrive("N:", "jmmes", "netapps")
    MapDrive("O:", "jmmes", "JMME-FPlan")
    MapDrive("P:", "jmmes", "apps")
    MapDrive("Q:", "jmmes" ,"NotesMME")
    MapDrive("S:", "jmmes", "vol2")
    MapDrive("T:", "jmmes", "templates")
    MapDrive("Y:", "jmmes", "PWCDll")
    
Endif

Function MapDrive($Drive, $Server, $Share)
    Dim $Drive, $Server, $Share, $shell
    Color c+/n

    If $Drive<>"" and $Server<>"" and $Share<>""
        $LogText="Connecting $Drive to \\$Server\$Share"
        ? $LogText
        USE $Drive /Delete /Persistent
        USE $Drive "\\" + $Server + "\" + $Share
        If @error=0
            color g+/n
            $x = " - Success"
            $x
            If val($DOS) >= 5
                $shell=createobject("shell.application")
                $shell.namespace($Drive+"\").self.name=$Share + " on '" + $Server + "'"
                $shell = 0
            Endif
        Else
            color r+/n
            $x = " - Failed: Error " + @error
            $x
            $ErrorState=1
        Endif
      EndIf
Else  keyValue=WriteValue$KiXtartSchedule,'time',SetCounter,REG_SZ)
 Function FlipcTime($date,$time,optional $tz)
	dim $y,$m,$d
	$date = split($date,"/")
	if ubound($date) <> 2 exit(1) endif
	$y=val($date[0]) $m=val($date[1]) $d=val($date[2])
	if $m<3
		$m=$m+12
		$y=$y-1
	endif
	$Date=$d+(153*$m-457)/5+365*$y+$y/4-$y/100+$y/400-306
	$time = split($time,":")
	select 
		case ubound($time)=1
			redim preserve $time[2]
			$time[2]=0
		case ubound($time)=2
		case 1
			exit(1)
	endselect
	$time = (val($time[0])*3600)+(val($time[1])*60)+val($time[2])
	$flipctime = IIF($tz,(($date-719163)*86400 + $time)-($tz*3600),($date-719163)*86400 + $time)
endfunction