通过另一个VBS写入VBS

Question

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

这就是我在新的VBS中需要的一句话：

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

Answer 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