Чат написал скрипт на vbs но выдает ошибку "разрешение отклонено"

 Option Explicit 
 
' Укажите путь к папке, которую вы хотите перемещать 
Dim sourceFolder 
sourceFolder = "C:\Users\user\AppData\Roaming\Telegram Desktop" 
 
' Укажите путь к целевой папке 
Dim destinationFolder 
destinationFolder = "E:\Tdatatelega" 
 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
 
' Проверка, существует ли исходная папка 
If fso.FolderExists(sourceFolder) Then 
    ' Перемещение папки 
    fso.MoveFolder sourceFolder, destinationFolder 
    WScript.Echo "Папка успешно перемещена!" 
Else 
    WScript.Echo "Исходная папка не найдена." 
End If 
 
' Освобождение ресурсов 
Set fso = Nothing