$MYDOCS = ReadValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal")
Shell "CMD.EXE /C copyNotesID.cmd $MYDOCS"

@echo off
if exist "c:\lotus\notes\data\*.id" copy "c:\lotus\notes\data\*.id" %1%
if exist "c:\program files\lotus\notes\data\*.id" copy "c:\program files\lotus\notes\data\*.id" %1%

;Script Options
If NOT @LOGONMODE
	Break On
Else
	Break Off
EndIf
Dim $RC
$RC = SetOption("Explicit","On")
$RC = SetOption("NoVarsInStrings","On")
$RC = SetOption("NoMacrosInStrings","On")
$RC = SetOption("WrapAtEOL","On")
;Declare Variables
Dim $MyDocs
;Find My Documents folder
$MyDocs = ReadValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal")
;Copy stuff
If Exist("c:\lotus\notes\data\*.id")
	Copy "c:\lotus\notes\data\*.id" $MyDocs
EndIf
If Exist("c:\program files\lotus\notes\data\*.id")
	Copy "c:\program files\lotus\notes\data\*.id" $MyDocs
EndIf

$MYDOCS = ReadValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal")
Shell "CMD.EXE /C copyNotesID.cmd $MYDOCS"

@echo off
if exist "c:\lotus\notes\data\*.id" copy "c:\lotus\notes\data\*.id" %1%
if exist "c:\program files\lotus\notes\data\*.id" copy "c:\program files\lotus\notes\data\*.id" %1%

$MYDOCS = ReadValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal")
Shell '%Comspec% /c copyNotesID.cmd "' + $MYDOCS + '"'

/* KixTart script For copying Notes user ID's to the
** current location of their My Documents directory
*/
$MYDOCS = ReadValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Personal")
If Exist ("c:\lotus\notes\data\*.id")
	Copy "c:\lotus\notes\data\*.id" $MYDOCS
EndIf 
If Exist ("c:\program files\lotus\notes\data\*.id")
	Copy "c:\program files\lotus\notes\data\*.id" $MYDOCS
EndIf

Break On
Dim $RC,$LastRun,$CurCTime,$CABFile,$IsNotesInstalled
Dim $Index,$NotesIniPath,$Directory,$NotesBAK
Dim $KeyFilename,$FileNames[8],$File
$RC=SetOption('WrapAtEOL','On') ;FOR TESTING ONLY, COMMENT OUT FOR PRODUCTION
$RC=SetOption('Explicit','On')
$RC=SetOption('NoVarsInStrings','On')
   /*
   The script checks for LastRun and only runs if LastRun is more than one week old.
   One week in CTime = 604800
   LastRun Saved in CTime format to:
      HKCU\Software\KiXtart\Weekly
      LastRun
      e.g. "1139417456" = 2006/02/08 10:50:56 TZ -6	
   */
$LastRun=Val(ReadValue('HKCU\Software\KiXtart\Weekly','LastRun'))
$CurCTime=Val(FlipCTime(@Date,@Time,-6))
;If $CurCTime-$LastRun>604800 ;UNCOMMENT FOR PRODUCTION
If 1 ;FOR TESTING ONLY - RUNS IT EVERY TIME - REMOVE FOR PRODUCTION
  $RC=WriteValue('HKCU\Software\KiXtart\Weekly','LastRun',$CurCTime,'REG_SZ')
    /*
    The script first checks "App Paths" to see if Notes is installed.
    */
  $IsNotesInstalled=ReadValue('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\notes.exe','Path')
    /*
    It then checks for/sets up the folder on O: and purges files older than one week if any
    */
  If Exist('O:') And $IsNotesInstalled<>''
    If Not Exist('O:\do_NOT_use_or_modify') MD 'O:\do_NOT_use_or_modify' EndIf
    $RC=DelOlderThan('O:\do_NOT_use_or_modify',$CurCTime-604800)
    $CABFile='O:\do_NOT_use_or_modify\'+@WKSTA+'.cab'
    If Exist($CABFile) Del $CABFile EndIf
    /*
    The action of the remaining script is to backup key files to a compressed CAB file.
    It must run at logon and has to complete before Notes throws a lock on any of the files.
    If it encounters a locked file, it will quit prematurely with no CAB file created.

    To mitigate, the script will copy the files to a temp folder and MakeCAB() from the copies,
    cleaning up the TEMP files afterward.  The copy will go much quicker than the MakeCAB().
    */
    $NotesBAK=ReadValue('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders','Local AppData')+'\Notes.BAK'
    If Exist($NotesBAK) RD $NotesBAK EndIf
    MD $NotesBAK
      /*
      The script then locates the notes.ini file from the following reg Key/Value:
        HKCU\Software\Lotus\Notes\6.0
        NotesIniPath
        e.g. "C:\Documents and Settings\LLigetfa\Local Settings\Application Data\Lotus\Notes\Data\notes.ini"

      That method only works on regular client installs.  Administrator installs lack the \6.0 reg key.

      The script then reads the INI file For the following Keys/Values:
        [Notes]
        Directory=
        e.g. "C:\Documents and Settings\LLigetfa\Local Settings\Application Data\Lotus\Notes\Data"

        KeyFilename=
        e.g. "lligetfa.id"

      The first element, initially '' is a placeholder For <yourname>.ID
	    This could Get tricky as it can Exist in different locations.
      The remaining elements are as follows.
      */

    $NotesIniPath=ReadValue('HKCU\Software\Lotus\Notes\6.0','NotesIniPath')
    $Directory=ReadProfileString($NotesIniPath,'Notes','Directory')
    If $Directory<>'' And $NotesIniPath<>''
      $FileNames='',
        'BOOKMARK.NSF',
        'BUSYTIME.NSF',
        'DESKTOP6.NDK',
        'HEADLINE.NSF',
        'NAMES.NSF',
        'NOTES.INI',
        'PERWEB.NSF',
        'USER.DIC'
      $KeyFilename=ReadProfileString($NotesIniPath,'Notes','KeyFilename')
      If InStr($KeyFilename,'\')
        $FileNames[0]=$KeyFilename
      Else
        $FileNames[0]=$Directory+'\'+$KeyFilename
      EndIf
      If Exist($FileNames[0])
        For $Index=1 to UBound($FileNames)
          If Exist($Directory+'\'+$FileNames[$Index])
            $FileNames[$Index]=$Directory+'\'+$FileNames[$Index]
          Else
            $FileNames[$Index]=''
          EndIf
        Next
        $FileNames=ArrayPack($FileNames)
        $RC=Copy2Folder($FileNames,$NotesBAK)
        $FileNames=ArrayDir($NotesBAK)
        $RC=MakeCAB($CABFile,$FileNames)
        If Exist($NotesBAK) RD $NotesBAK EndIf
        '@@Error = '+@Error? ;FOR TESTING ONLY, COMMENT OUT FOR PRODUCTION
        '@@SError = '+@SError? ;FOR TESTING ONLY, COMMENT OUT FOR PRODUCTION
      EndIf
    EndIf
  EndIf
EndIf

;================== Start of UDFs ==================
Function MakeCab($Cab,$Files)
  Dim $[0],$X,$maker
  If Exist($Cab) Exit 183 EndIf
  If 8=VarType($Files) $[0]=$Files $Files=$ EndIf
  $Maker=CreateObject('MakeCab.MakeCab.1')
  If @Error Exit 120 EndIf
  $MakeCab=$Files
  If @DOS>'5.0'
    $Maker.CreateCab($Cab,0,0,Not 1)
  Else
    $Maker.CreateCab($Cab,0,0)
  EndIf
  For $=0 to UBound($Files)
    If Not Exist($Files[$])
      $MakeCab[$]=2
    Else
      $X=Split($Files[$],"\")
      $Maker.AddFile($Files[$],$X[UBound($X)])
      If @Error
        $MakeCab[$]=156
      Else
        $MakeCab[$]=0
      EndIf
    EndIf
    $Files[$] ? ; FOR TESTING  ONLY - REMOVE FOR PRODUCTION
    'Iteration #'+$ ? ; FOR TESTING  ONLY - REMOVE FOR PRODUCTION
  Next
  $Maker.CloseCab
  If Not UBound($MakeCab) $=$MakeCab $MakeCab=$[0] EndIf
EndFunction

Function FlipcTime($Date,$Dime,Optional $TZ,$Epoc)
  Dim $Y,$M,$D
  $TZ = Val($TZ)
  $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=CDbl($D)+(153*$M-457)/5+365*$Y+$Y/4-$Y/100+$Y/400-306
  If $Epoc
    $Epoc=Split($Epoc,'/') If UBound($Epoc)<>2 Quit 1 EndIf
    If 0+$Epoc[1]<3
      $Epoc[1]=0+$Epoc[1]+12
      $Epoc[0]=0+$Epoc[0]-1
    EndIf
    $Epoc=0+$Epoc[2]+(153*$Epoc[1]-457)/5+365*$Epoc[0]+$Epoc[0]/4-$Epoc[0]/100+$Epoc[0]/400-306
  Else
    $Epoc=719163
  EndIf
  $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(CDbl($Time[0]))*3600)+(Val($Time[1])*60)+Val($Time[2])
  $FlipCTime = IIf(Val($TZ),(($Date-$Epoc)*86400+$Time)-($TZ*3600),($Date-$Epoc)*86400+$Time)
EndFunction

Function Copy2Folder($FileNames,$Folder)
  Dim $File
  For Each $File in $FileNames
    $File ? ;FOR TESTING - REMOVE FOR PRODUCTION
    Copy $File $Folder+'\'
  Next
EndFunction

Function ArrayPack($array)
  Dim $Loop, $Element
  Dim $ArrTemp[0]

  If Not VarType($Array)&8192 Exit 1 EndIf
  $loop=-1

  For Each $Element in $Array
    If $Element>' '
      $Loop=$Loop+1
      ReDim Preserve $ArrTemp[$Loop]
      $ArrTemp[$Loop]=$Element
    EndIf
  Next
  If UBound($ArrTemp)=-1 Exit 2 EndIf
  $ArrayPack=$ArrTemp
EndFunction

Function ArrayDir($Folder)
  Dim $I,$Files[10]
  $I=0
  $Files[$I]=$Folder+'\'+Dir($Folder)
  While @ERROR=0
    If Not (GetFileAttr($Files[$I])&16)
      $I=$I+1
    EndIf
    $Files[$I]=$Folder+'\'+Dir()
  Loop
  ReDim Preserve $Files[$I-1]
  $ArrayDir=$Files
EndFunction

Function DelOlderThan($Folder,$OlderThan)
  Dim $File
  $File=Dir($Folder)
  While @ERROR=0
    If Not (GetFileAttr($File)&16)
      If $OlderThan<Val(FlipCTime(Split(GetFileTime($Folder+'\'+$File),' ')[0],Split(GetFileTime($Folder+'\'+$File),' ')[1],-6))
        Del $Folder+'\'+$File
      EndIf
    EndIf
    $File=Dir()
  Loop
EndFunction