Как я могу скопировать файл с помощью переменной Windows path с vbscript под повышенными привилегиями?

---

Пожалуйста, я хотел бы знать, как я могу копировать файлы в windows, используя переменный путь windows с vbscript под повышенными привилегиями.

Что я уже пробовал:

dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("%AppData%\file.exe") Then
filesys.CopyFile "%AppData%\file.exe", "%AppData%\Microsoft\Windows\Start Menu\Programs\Startup\"
End If 

Dim objFso, strSourcePath, strDestPath
strSourcePath = "%AppData%\file.exe"
strDestPath = "%AppData%\Microsoft\Windows\Start Menu\Programs\Startup\"
Set objFso = CreateObject("Scripting.FileSystemObject")
If objFso.FileExists(strSourcePath) then
    objFso.CopyFile strSourcePath, strDestPath, True
End If
Set objFso = Nothing

Спасибо

---