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 vote240 views1 answer
Columns dont autoresize on program start vb.net
VBA
3 votes205 views1 answer
Excel vba last row in range
VBA
1 vote221 views1 answer
Excel format cell as kilowatts
VBA
0 vote217 views1 answer
Hello world vb.net
VBA
0 vote250 views2 answers
S yyyy-MM-dd em vb net
VBA
1 vote225 views1 answer
Excel date to unix timestamp
VBA
5 votes244 views1 answer
Excel vba low word from Long Integer
VBA
0 vote189 views1 answer
Vba select file in folder
VBA
4 votes228 views2 answers
Excel vba last column with data
VBA
0 vote228 views1 answer
Vbnet round to nearnest thousand
VBA