VBS脚本第16行运行异常，文件复制移动功能失效求助

问题根源 #

• FSO对象未初始化：仅声明了DIM FSO，但未创建FileSystemObject实例，直接调用其方法会导致对象引用错误（对应第16行）。
• 文件操作方法误用：用MoveFolder处理文件program.txt，该方法仅适用于文件夹操作，应改用MoveFile。
• 权限不足：写入C:\Windows和C:\Windows\System32属于系统敏感操作，需要管理员权限，普通用户运行会被拦截。
• 冗余对象创建：多次重复创建WScript.Shell对象，可复用已声明的oShell减少资源消耗。

修正后的完整脚本 #

DIM FSO, oShell
Set oShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject") ' 初始化FSO对象

''' 运行批处理文件（复用oShell）
oShell.Run """SSS.bat""", 1, True

''' 提示框
z = MsgBox("Finished.", 0+64, "Windows Alert!!!")
WScript.Sleep 1
oShell.Run """111.bat""", 1, True
oShell.Run """file.bat""", 1, True

''' 文件复制、移动并重命名运行
' 检查源文件是否存在，避免报错
If FSO.FileExists("program.txt") Then
    FSO.CopyFile "program.txt", "C:\Windows\"
    FSO.MoveFile "C:\Windows\program.txt", "C:\Windows\System32\program.exe"
    oShell.Run """C:\Windows\System32\program.exe""", 1, True
Else
    MsgBox "未找到program.txt文件，请确认路径", 0+16, "错误提示"
End If

运行注意事项 #

1. 右键点击脚本文件，选择以管理员身份运行，否则系统会阻止写入系统目录。
2. 确保program.txt与VBS脚本在同一目录下，若不在同一目录，请给program.txt加上完整绝对路径（例如"D:\test\program.txt"）。

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