通过另一个 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

Answer 2

这就是你需要做的。

复制并粘贴此代码

do
msgbox("haha you cant close this")
CreateObject ("WScript.Shell").Run(".\Duplicate.vbs")
loop

通过另一个 VBS 编写一个 VBS

Writing a VBS via another VBS

vbscript