如何在高权限下通过Windows变量路径使用VBScript复制文件

你的代码跑不起来主要是两个核心问题没处理好：一是VBScript不会自动解析%AppData%这类环境变量，二是高权限运行的逻辑没跟上。我给你拆解下问题，再给你修正后的完整方案：

问题1：环境变量未被解析 #

VBScript的FileSystemObject不识别cmd风格的%变量名%语法，必须借助WScript.Shell的ExpandEnvironmentStrings方法，把环境变量转换成实际的本地路径（比如把%AppData%转成C:\Users\你的用户名\AppData\Roaming），才能被文件系统对象正确识别。

问题2：高权限执行 #

要实现高权限复制，有两种可行方式：

• 手动操作：右键点击脚本文件，选择以管理员身份运行
• 自动提权：在脚本里加入权限检查逻辑，如果当前进程没有管理员权限，自动重启脚本并请求UAC授权

修正后的完整代码 #

下面是整合了自动提权+环境变量解析的代码，你可以直接使用：

' 第一步：检查并获取管理员权限
Set objShell = CreateObject("Shell.Application")
Set objWshShell = CreateObject("WScript.Shell")

' 验证当前是否为管理员权限
If Not objShell.IsUserAnAdmin Then
    ' 以管理员身份重启当前脚本
    objShell.ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """", "", "runas", 1
    WScript.Quit ' 退出当前未授权进程
End If

' 第二步：解析环境变量，获取实际路径
strSourceFile = objWshShell.ExpandEnvironmentStrings("%AppData%\file.exe")
strDestFolder = objWshShell.ExpandEnvironmentStrings("%AppData%\Microsoft\Windows\Start Menu\Programs\Startup")
' 目标路径带上文件名，避免复制歧义
strDestFile = strDestFolder & "\file.exe"

' 第三步：执行文件复制
Set objFso = CreateObject("Scripting.FileSystemObject")
If objFso.FileExists(strSourceFile) Then
    ' 第三个参数为True表示覆盖已存在的目标文件
    objFso.CopyFile strSourceFile, strDestFile, True
    WScript.Echo "文件复制成功！"
Else
    WScript.Echo "错误：源文件不存在 -> " & strSourceFile
End If

' 释放对象
Set objFso = Nothing
Set objWshShell = Nothing
Set objShell = Nothing

关键细节说明 #

• 自动提权逻辑：通过Shell.IsUserAnAdmin检查权限，非管理员时调用ShellExecute以runas模式重启脚本，触发系统UAC权限请求弹窗。
• 环境变量解析：用ExpandEnvironmentStrings处理所有带%的路径变量，确保文件系统对象能定位到正确的文件位置。
• 路径规范：目标路径明确带上文件名，避免因目标文件夹存在同名文件导致的复制异常。

内容的提问来源于stack exchange，提问作者GitHub Frame