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

3 votes361 views1 answer
Vba make long from two words
VBA
0 vote323 views1 answer
Vba paste values
VBA
1 vote407 views1 answer
Excel vba convert text YYYYMMDD to date
VBA
0 vote327 views1 answer
Vbs write file
VBA
31 votes483 views1 answer
Vba how to convert a column number into an Excel column
VBA
1 vote357 views1 answer
Export datagridview to excel vb.net
VBA
4 votes326 views1 answer
Excel vba check cell not empty
VBA
2 votes334 views1 answer
Vba round number
VBA
0 vote360 views2 answers
S yyyy-MM-dd em vb net
VBA
0 vote323 views1 answer
Vbscript abs
VBA