如何在提升的权限下使用带有 vbscript 的 windows 变量路径复制文件？ [复制]答案

【问题标题】：How can I copy file using windows variable path with vbscript under elevated privillege? [duplicate]如何在提升的权限下使用带有 vbscript 的 windows 变量路径复制文件？ [复制]
【发布时间】：2020-02-09 15:48:12
【问题描述】：

我想知道如何在提升的特权下使用带有 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

【问题讨论】：

你怎么知道它不起作用？
我检查了文件目录，我发现在运行vbs脚本后文件没有显示，所以我使用ultrasearch软件按日期搜索文件，我没有找到它。

标签： windows vbscript

【解决方案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

【讨论】：

谢谢你，wasif，你的代码对我有用。如果我可以复制到驱动器和 netwofk 文件夹怎么办？代码会是什么样子？你能帮我解决这个问题吗？
只需在filesys.copyfile 方法的末尾添加一个, True 并将文件路径更改为unc 文件路径。请点击大勾号接受答案。感谢您对我的帮助！
我还是一头雾水，请您提供代码：复制文件 [".exe",".vbs"] 和文件夹 ["folder1", "folder2"] 从任何 windows 位置到 windows 变量路径，例如； [%AppData%,%Tmp%], 驱动器路径如 ["c:\","d:\"] 具有隐藏文件属性？
filesys.copyfile "//server/share/source", "//server/share/destination", True
你的意思是我可以这样做，例如复制文件：dim filesys, WshShell set filesys = CreateObject("Scripting.FileSystemObject") Set WshShell = CreateObject("Wscript.Shell") If filesys.FileExists(WshShell.ExpandEnvironmentStrings("%AppData%") & "*.fileextensionA", "*.fileextensionB","*.fileextensionC") 然后 filesys.CopyFile WshShell.ExpandEnvironmentStrings("%AppData%") & "* .fileextensionA", "*.fileextensionB","*.fileextensionC", WshShell.ExpandEnvironmentStrings("%AppData%") & "\Microsoft\Windows\Start Menu\Programs\Startup\" End If