Vbs run with cscript

Set oShell = CreateObject("WScript.Shell")

If Not LCase(Right(WScript.FullName, 12)) = "\cscript.exe" Then
  For Each Arg In WScript.Arguments
    If InStr(Arg, " ") Then Arg = """" & Arg & """"
      Str = Str & " " & Arg
  Next
  cmd = "cscript //nologo """ & WScript.ScriptFullName & """ " & Str
  oShell.Run cmd, 0, false
  WScript.Quit
End If

Similar codes

0 vote238 views1 answer
VB Error Code BC30201
VBA
0 vote251 views1 answer
Como ler subitem de um array em json usando vbnet
VBA
0 vote228 views1 answer
Vba type
VBA
0 vote225 views1 answer
Check if program is running vbnet
VBA
0 vote226 views1 answer
Vba find sub dictionary
VBA
0 vote241 views1 answer
Excel vba round to whole number
VBA
1 vote253 views1 answer
Find and replace textbox
VBA
0 vote265 views2 answers
Excel vba number format file size
VBA
0 vote236 views1 answer
Vbnet access System.InvalidOperationException: 'Update requires a valid UpdateCommand when passed DataRow collection with modified rows.'
VBA
0 vote248 views1 answer
.net crash app
VBA