'Writing a VBS via another VBS

I'm trying to create a VBS via another VBS, but cant handle the quotation marks, and would love to know if it's even possible.

That's the 1 line I need in my new VBS:

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

Main VBS code that doesn't work:

    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
vbscript


Solution 1:[1]

Thanks to Sorceri, I managed to make it work by writing the following code:

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

Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source
Solution 1 Apex

Related Questions