code:

---

;***** Find where the users My Documents folder is and backup if not on server.

; $Location is the location of where My Documents is located in the registry
; @HomeDrive is the drive location that User Manager has the Home drive as
; $Source is the Path that robocopy uses for Source
; $Dest is the Path that robocopy uses for Destination
; $File is the Filename that robocopy uses
; $Opti is the Options that robocopy uses
; $ShellCMD is the command line that is passed out to run

;***** Edit or Create a log of the backup.
; $FileName the path and name location of the log file
; $X line read from UserBackup.CSV
; $Found if the string is found or not found
; $LineToWrite the information of when the user did a backup

;DEBUG "ON"

$Location = ReadValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Personal")
If @ERROR = 0
  If Left($Location, 2) = @HomeDrive
    ? "The location of My Documents is on the server already no backup needed."
  Else
    $Source = $Location
    $Dest = Chr(34) + "F:\My Documents" + Chr(34)
    $Opti = "/R:3 /Z /Mir"
    $ShellCMD = "RoboCopy " + $Source + " " + $Dest + " " + $Opti

    Shell "%comspec% /c $ShellCMD"
  EndIf
EndIf


$FileName = "C:\Data\UserBackup.csv" ;eventully to be placed on server.
$X = ReadLine(1)
$Found = 0
$LineToWrite = %username% + "," + @Date + "," + @Time

OPEN(1, $FileName, 5) ;UserBackup file created to track when users backup.

While @Error=0
  If INSTR ($X, %UserName%) <> 0
    $X = WriteLine (1, $LineToWrite)
    $Found = 1
  EndIf

  $X = ReadLine(1)
Loop

If $Found = 0
  WriteLine (1, $LineToWrite)
EndIF

Close(1) ;Close UserBackup.csv file

Exit

 

---

code:

---

$FileName = "C:\Data\UserBackup.ini"
$Found = 0
$LineToWrite = "," + %username% + "," + @Date + "," + @Time

OPEN(1, $FileName, 5) ;UserBackup file created to track when users backup.

ReadProfileString ($FileName, "", %username%)
If @ERROR = 0
  WriteProfileString ($FileName, "", %username%, $LineToWrite)
  $Found = 1
Endif

If $Found = 0
  WriteLine (1, "%username%=" + $LineToWrite + @CRLF)
EndIF

Close(1) ;Close UserBackup.csv file

---

code:

---

$FileName = 'C:\Data\UserBackup.ini'
$LineToWrite = ''+@Date + ' ' + @Time
$rc = WriteProfileString ($FileName, @USERID, 'Logging', $LineToWrite)

---

code:

---

 ;***** Find where the users My Documents folder is and backup if not on server.

 ; $Location is the location of where My Documents is located in the registry
 ; @HomeDrive is the drive location that User Manager has the Home drive as
 ; $Source is the Path that robocopy uses for Source
 ; $Dest is the Path that robocopy uses for Destination
 ; $File is the Filename that robocopy uses
 ; $Opti is the Options that robocopy uses
 ; $ShellCMD is the command line that is passed out to run

 ;***** Edit or Create a log of the backup.
 ; $FileName the path and name location of the log file
 ; $X line read from UserBackup.CSV
 ; $Found if the string is found or not found
 ; $LineToWrite the information of when the user did a backup

 ;DEBUG "ON"

 $location = ReadValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Personal")
 IF @error = 0
       IF Left($location, 2) = @homedrive
             ? "The location of My Documents is on the server already no backup needed."
       ELSE
             $source = $location
             $dest = Chr(34) + "F:\My Documents" + Chr(34)
             $opti = "/R:3 /Z /Mir"
             $shellcmd = "RoboCopy " + $source + " " + $dest + " " + $opti

             SHELL "%comspec% /c $ShellCMD"
       ENDIF
 ENDIF

 ; -- to do the replacement, you should refer to the following post (final reply):
 ; -- http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic;f=2;t=001951#000001
 $filename = "C:\Data\UserBackup.csv" ;eventully yo be placed on server.
 $filename1 = "C:\Data\UserBackup.cs1"
 IF Open(1,$filename)
 ENDIF
 DEL $filename1
 IF Open(2,$filename1,5)
 ENDIF

 $line=ReadLine(1)
 WHILE (@error = 0)
       $found=Instr($line, @userid)
       IF ($found = 0)
             ? $line
             $linetowrite = @userid + "," + @date + "," + @time
             ? $linetowrite
       ELSE
             $result=$linetowrite
       ENDIF
       IF (WriteLine(2,$linetowrite+chr(13)+chr(10)) <> 0)
       ENDIF
       $line=ReadLine(1)
 LOOP
 ? "complete"
 $rc = Close(1) ;Close UserBackup.csv file
 $rc = Close(2) ;Close UserBackup.cs1 file
 COPY $filename1 $filename /h
 DEL  $filename1

 EXIT

---