vbscript在创建包含原始变量的新vbscript时遇到问题

我正在尝试制作一个vbs来创建一个新的vbs文件，但是我在创建第二个文件时遇到了一些问题

在第一个脚本的前面部分，它要求您输入所需的用户名，然后将用户名分配给名为user的变量

当它创建第二个脚本时，我希望用户名显示在一条消息中，说欢迎回来[在此处插入用户名]。请输入一个程序值

问题是，我无法将您的用户名放在新脚本代码中

尝试1

If VTCreate1 = 6 And VTCreate2 = 7 And VTCreate3 = 7 And VTCreate4 = 7 And VTCreate5 = 7 Then
Set objFile = objFS.CreateTextFile("C:\Users\Public\Desktop\Aeshnidae_1627374757.vbs")
objFile.WriteLine("vtcmd=inputbox(""Welcome back "")" & user & "("". Please input a program value."")")

尝试1导致新创建的脚本包含以下内容

vtcmd=inputbox("Welcome back ")Human(". Please input a program value.")

vtcmd=inputbox("Welcome back & user & . Please input a program value.")

尝试2

If VTCreate1 = 6 And VTCreate2 = 7 And VTCreate3 = 7 And VTCreate4 = 7 And VTCreate5 = 7 Then
Set objFile = objFS.CreateTextFile("C:\Users\Public\Desktop\Aeshnidae_1627374757.vbs")
objFile.WriteLine("vtcmd=inputbox(""Welcome back & user & . Please input a program value."")")

尝试2的结果如下

vtcmd=inputbox("Welcome back ")Human(". Please input a program value.")

vtcmd=inputbox("Welcome back & user & . Please input a program value.")

---

知道如何在消息中正确获取所需的用户名吗？

让我们从最终所需的输出行开始

vtcmd=inputbox("Welcome back xxxxxx. Please input a program value")

要将它放在字符串变量中（我们将在后面编写），我们需要引用该行并转义内部双引号

"vtcmd=inputbox(""Welcome back xxxxxx. Please input a program value"")"    

要替换占位符，我们需要剪切字符串

"vtcmd=inputbox(""Welcome back "     ". Please input a program value"")"
                   close quote ^     ^ open quote

并将变量与两个字符串连接起来

"vtcmd=inputbox(""Welcome back " & user & ". Please input a program value"")"

因此，最后的代码行是

objFile.WriteLine "vtcmd=inputbox(""Welcome back " & user & ". Please input a program value"")"

---

让我们从最终所需的输出行开始

vtcmd=inputbox("Welcome back xxxxxx. Please input a program value")

要将它放在字符串变量中（我们将在后面编写），我们需要引用该行并转义内部双引号

"vtcmd=inputbox(""Welcome back xxxxxx. Please input a program value"")"    

要替换占位符，我们需要剪切字符串

"vtcmd=inputbox(""Welcome back "     ". Please input a program value"")"
                   close quote ^     ^ open quote

并将变量与两个字符串连接起来

"vtcmd=inputbox(""Welcome back " & user & ". Please input a program value"")"

因此，最后的代码行是

objFile.WriteLine "vtcmd=inputbox(""Welcome back " & user & ". Please input a program value"")"