windows - 如何在提升的特权下使用带有 vbscript 的 windows 变量路径复制文件？

Question

请我想知道如何在提升的特权下使用带有 vbscript 的 windows 变量路径在 windows 中复制文件。我已经尝试了下面的代码，但它不起作用。

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

标签： windowsvbscript

Answer 1

尝试这个：

dim filesys, WshShell
set filesys = CreateObject("Scripting.FileSystemObject")

Set WshShell = CreateObject("Wscript.Shell")
If filesys.FileExists(WshShell.ExpandEnvironmentStrings("%AppData%") & "\file.exe") Then
filesys.CopyFile WshShell.ExpandEnvironmentStrings("%AppData%") & "\file.exe", WshShell.ExpandEnvironmentStrings("%AppData%") & "\Microsoft\Windows\Start Menu\Programs\Startup\"
End If