BREAK ON
 CLS
 $default = ReadValue ("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles","DefaultProfile")
 $appd = ReadValue('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', 'AppData')
 $profilepath = $appd+"\Microsoft\Outlook\"
 ??$profilepath
 ;?'CHECK FOR VALID CHARACTERS FOR FILENAMES'
 ;??
 $yr=@year
 $mo=RIGHT(100+@monthno,2)
 ;?$MO
 $md=RIGHT(100+@mdayno,2)
 ;?$MD
 ;?JOIN(SPLIT(@TIME,":"),"")
 ; -- note: Removed the Time as your will not have the same time throughout the day
 ; -- Also, of note: the ":" colon is not a valid character in a file name as in the file structure, the colon is used for drive letters

 IF EXIST("%SYSTEMDRIVE%\ALFASCRIPT\*"+$yr+$mo+$md+".bak")
    RETURN ; RETURN maybe better than EXIT as RETURN takes you back to where left off
 ELSE
    DEBUG ON
    COPY $profilepath+"*.NK2" "%SYSTEMDRIVE%\ALFASCRIPT\*"+$yr+$mo+$md+".bak"
 ENDIF

 BREAK ON
 CLS
 DIM $servername, $nk2, $profilepath, $searchstring, $sharepath, $programpath, $cmdstring, $runline, $cmdline
 ;
 ;Edit Variables
 ;
 $yr=@year
 $mo=RIGHT(100+@monthno,2)
 ;?$MO
 $md=RIGHT(100+@mdayno,2)
 ;?$MD
 ;?JOIN(SPLIT(@TIME,":"),"")
 ; -- note: Removed the Time as your will not have the same time throughout the day
 ; -- Also, of note: the ":" colon is not a valid character in a file name as in the file structure, the colon is used for drive letters

 $servername = ho00060lp57
 ;For example $ServerName = "Server1" or "Server1.yourdomain.com"
 $default = ReadValue ("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles","DefaultProfile")
 $appd = ReadValue('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', 'AppData')
 $profilepath = $appd+"\Microsoft\Outlook\"
 $searchstring = "zactek@@msn.com"

 $sharepath = "\\" + $servername + "\nk2view\"
 $programpath = $sharepath + "nk2view.exe"

 ;This section fills in the default NK2 path
 IF NOT EXIST($profilepath)
    $profilepath = "%USERPROFILE%\Application Data\Microsoft\Outlook\Outlook.NK2"
 ENDIF

 IF EXIST("%SYSTEMDRIVE%\ALFASCRIPT\*"+$yr+$mo+$md+".bak")
       RETURN ; RETURN maybe better than EXIT as RETURN takes you back to where left off
 ELSE
    IF EXIST($appd+'\Microsoft\Outlook\*.nk2')
       COPY $profilepath+"*.NK2" "%SYSTEMDRIVE%\ALFASCRIPT\*"+$yr+$mo+$md+".bak"
       $rc=WshPipe('%comspec% /c dir /b "'+$profilepath+'*.NK2"',1)
       FOR EACH $line IN $rc
          IF NOT instr($line, "File Not Found")
             $cmdstring = $programpath + ' /nk2file "' + $profilepath+$line + '"'
             $runline = $cmdstring + ' /delete ' + $searchstring
             SHELL $runline
          ENDIF
       NEXT
     ENDIF
 ENDIF

 ?'Process is complete'
 GET $

 ;
 ;Function:
 ;   WshPipe()
 ;
 ;Author:
 ;   Christopher Shilt (christopher.shilt@relizon.com)
 ;
 ;Version:
 ;   1.3
 ;
 ;Version History:
 ;
 ;   13 Feb 2004  Version 1.3 - Removed Status Loop.
 ;
 ;   18 June 2003 Version 1.2 - Cleaned up code. Added error checking for support of the
 ;                              WScript.Shell.Exec method.
 ;
 ;   14 June 2002 Version 1.0 - Original Version.
 ;
 ;Action:
 ;   Runs an application in a child command-shell, providing access to the StdOut/StdErr
 ;   streams. Pipes the output to an array and returns the ExitCode of the command to the
 ;   @ERROR macro.
 ;
 ;Syntax:
 ;   WshPipe(COMMAND, optional NOECHO)
 ;
 ;Parameters:
 ;   COMMAND : REQUIRED. String value indicating the command line used to run the script.
 ;                       The command line should appear exactly as it would if you typed
 ;                       it at the command prompt.
 ;
 ;   NOECHO  : OPTIONAL. Suppress the command's output to the console, ouput is still
 ;                       stored in an array.
 ;
 ;Remarks:
 ;
 ;Returns:
 ;   Output of COMMAND in an array, ExitCode of the COMMAND in the @ERROR macro. By
 ;   default, the output is echoed to the screen but can be suppressed.
 ;
 ;Dependencies:
 ;   KiX 4.02
 ;   WSH 5.6 (Included with Microsoft Internet Explorer 6.0. Also available for download
 ;           from Microsoft's MSDN website.)
 ;
 ;Example:
 ;
 ; ; Display all KiX files in C:\ directory
 ; $rc=WshPipe("dir c:\*.kix")
 ; @ERROR " | " @SERROR ?
 ;
 ; ; Display all KiX files in C:\ directory, but suppress output to screen
 ; $rc=WshPipe("%comspec% /c dir c:\*.kix",1)
 ; @ERROR " | " @SERROR ?
 ;
 ; ; Display all KiX files in C:\ directory, suppress output to screen. Then use FOR/NEXT
 ; ; to exclude data.
 ; $rc=WshPipe("%comspec% /c dir c:\*.kix",1)
 ; for each $line in $rc
 ;    if not instr($line, "File Not Found")
 ;       ? $line
 ;    endif
 ; next
 ; @ERROR " | " @SERROR ?
 ;
 ;Source
 FUNCTION WshPipe($shellcmd, OPTIONAL $noecho)
       DIM $oexec, $output
       $oexec = CreateObject("WScript.Shell").exec($shellcmd)
       IF NOT VarType($oexec)=9 $wshpipe="WScript.Shell Exec Unsupported" 
             EXIT 10 
       ENDIF
       $output = $oexec.stdout.readall + $oexec.stderr.readall
       IF NOT $noecho $output 
       ENDIF
       $wshpipe=Split(Join(Split($output,CHR(13)),''),CHR(10))
       EXIT($oexec.exitcode)
 ENDFUNCTION

:nk2
Dim $servername, $default, $appd, $profilepath, $searchstring, $sharepath, $programpath, $cmdstring, $runline, $rc, $line
 ;*********Edit Variables*****************
 $iteration = A1
 $yr=@year
 $mo=Right(100+@monthno,2)
 $md=Right(100+@mdayno,2)
 $servername = server1
 $profilepath = %appdata%\Microsoft\Outlook\
 $searchstring = "username@@domain.com"
 $sharepath = "\\" + $servername + "\nk2view\"
 $programpath = $sharepath + "nk2view.exe"
 ;***************************************
 If Not Exist($profilepath)
    $profilepath = "%USERPROFILE%\Application Data\Microsoft\Outlook\Outlook.NK2"
 EndIf
 If Exist("%SYSTEMDRIVE%\SHARENAME\*.bak*")
       Return
     Else
   If Exist($profilepath+'*.nk2')
       Copy $profilepath+"*.NK2" "%SYSTEMDRIVE%\SHARENAME\*.bak"+"_"+$iteration+"_"+$yr+$mo+$md
       $rc=WshPipe('%comspec% /c dir /b "'+$profilepath+'*.NK2"',1)
       For Each $line in $rc
          If Not InStr($line, "File Not Found")
             $cmdstring = $programpath + ' /nk2file "' + $profilepath+$line + '"'
             $runline = $cmdstring + ' /delete ' + $searchstring
             Shell $runline
          EndIf
       Next
     EndIf
 EndIf

;************************************************************************************
  Function WshPipe($shellcmd, OPTIONAL $noecho)
       Dim $oexec, $output
       $oexec = CreateObject("WScript.Shell").exec($shellcmd)
       If Not VarType($oexec)=9 $wshpipe="WScript.Shell Exec Unsupported" 
             Exit 10 
       EndIf
       $output = $oexec.stdout.readall + $oexec.stderr.readall
       If Not $noecho $output 
       EndIf
       $wshpipe=Split(Join(Split($output,Chr(13)),''),Chr(10))
       Exit($oexec.exitcode)
 EndFunction
Return 

$appd = ReadValue('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', 'AppData')