Как скопировать файл в appdata forlder пользователя с помощью vbscript?

Я использую следующий vbscript, но, похоже, не работает, чтобы скопировать файл.
Если я использую абсолютный путь к файлу он работает.

Как установить эти пути в windows 7 для работы.

Const DestinationFile = "%UserProfile%Desktopplrplus.dotm"
Const SourceFile = "%UserProfile%DesktopPLRPlusplrplus.dotm"

Set fso = CreateObject("Scripting.FileSystemObject")
    'Check to see if the file already exists in the destination folder
    If fso.FileExists(DestinationFile) Then
        'Check to see if the file is read-only
        If Not fso.GetFile(DestinationFile).Attributes And 1 Then 
            'The file exists and is not read-only.  Safe to replace the file.
            fso.CopyFile SourceFile, "%UserProfile%Desktopplrplus.dotm" True
        Else 
            'The file exists and is read-only.
            'Remove the read-only attribute
            fso.GetFile(DestinationFile).Attributes = fso.GetFile(DestinationFile).Attributes - 1
            'Replace the file
            fso.CopyFile SourceFile, "%UserProfile%Desktopplrplus.dotm", True
            'Reapply the read-only attribute
            fso.GetFile(DestinationFile).Attributes = fso.GetFile(DestinationFile).Attributes + 1
        End If
    Else
        'The file does not exist in the destination folder.  Safe to copy file to this folder.
        fso.CopyFile SourceFile, "%UserProfile%Desktopplrplus.dotm", True
    End If
Set fso = Nothing