通过另一个 VBS 编写 VBS答案

【问题标题】：Writing a VBS via another VBS通过另一个 VBS 编写 VBS
【发布时间】：2018-12-19 15:23:01
【问题描述】：

我正在尝试通过另一个 VBS 创建一个 VBS，但无法处理引号，我很想知道这是否可能。

这是我在新 VBS 中需要的 1 行代码：

CreateObject("Wscript.Shell").Run """" & WScript.Arguments(0) & """", 0, False

不起作用的主要 VBS 代码：

    Dim oFSO, vbFile
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set vbFile = oFSO.CreateTextFile("try.vbs", True)
    vbFile.WriteLine ""CreateObject("Wscript.Shell").Run """" & WScript.Arguments(0) & """", 0, False""
    vbFile.Close

【问题讨论】：

如果需要写出引号字符使用； Chr(34)
@Sorceri 介意解释吗？我在开头和结尾都添加了它，但没有帮助
vbFile.WriteLine "CreateObject(" & Chr(34) & "Wscript.Shell" & Chr(34) & ").Run " 你应该可以从那里得到其余的
@Sorceri 只需添加几个引号，谢谢！
您应该发布您所做的作为答案；将帮助您获得更多积分，并允许您对 SO 采取更多行动以应对未来的问题/答案。 - 还将帮助其他任何人。

标签： vbscript

【解决方案1】：

感谢 Sorceri，我设法通过编写以下代码使其工作：

Dim oFSO, vbFile
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set vbFile = oFSO.CreateTextFile("try.vbs", True)
vbFile.WriteLine "CreateObject(" & Chr(34) & "Wscript.Shell" & Chr(34) & ").Run """""""" & WScript.Arguments(0) & """""""", 0, False"
vbFile.Close

【讨论】：