如何在VBScript中使用%USERNAME%实现通用路径的脚本生成？

嘿，这个问题很好解决！你只需要借助VBS里的WScript.Shell对象来解析系统环境变量，就能自动替换掉硬编码的用户名，让脚本在任何电脑上都能正常工作。

两种可行的修改方案： #

方案1：直接解析%USERNAME%环境变量

在你的脚本里添加WScript.Shell对象，用它的ExpandEnvironmentStrings方法把包含%USERNAME%的路径转换成实际的用户目录路径：

Option Explicit 
dim fso,ofile, objShell, startupPath
Const WR=2 

' 创建Shell对象用于解析环境变量
set objShell = WScript.CreateObject("WScript.Shell")
' 替换固定用户名为%USERNAME%，并解析为实际路径
startupPath = objShell.ExpandEnvironmentStrings("C:\Users\%USERNAME%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Start-up\file.vbs")

set fso = createobject("scripting.filesystemobject") 
set ofile= fso.opentextfile(startupPath, WR, true) 

ofile.write "Dim objshell" 
ofile.writeline "set objshell = wscript.createobject(""wscript.shell"")"
' 这里继续你的后续代码...

' 释放对象，避免内存占用
set ofile = nothing
set fso = nothing
set objShell = nothing

方案2：用%USERPROFILE%简化路径（更稳妥）

其实C:\Users\%USERNAME%等价于系统环境变量%USERPROFILE%，用这个变量的话，即使是旧版Windows（比如用户目录在Documents and Settings下）也能兼容，路径写法更简洁：

startupPath = objShell.ExpandEnvironmentStrings("%USERPROFILE%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Start-up\file.vbs")

关键说明： #

• ExpandEnvironmentStrings方法会自动把路径里的环境变量（比如%USERNAME%、%USERPROFILE%）替换成当前系统的实际值，完全不需要手动修改用户名。
• 记得在脚本结束时释放所有创建的对象，这是VBS脚本的良好编程习惯。

内容的提问来源于stack exchange，提问作者Some guy