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 vote128 views1 answer
Average vba
VBA
1 vote115 views1 answer
Excel format cell as kilowatts
VBA
0 vote129 views4 answers
Jwt token vb.net validation
VBA
1 vote150 views1 answer
Perform http request in vb.net
VBA
0 vote119 views1 answer
Excel vba center userform
VBA
1 vote123 views1 answer
Vba date to unix timestamp
VBA
0 vote152 views1 answer
Find control with name vb
VBA
4 votes127 views1 answer
Excel vba how to reset usedrange
VBA
2 votes127 views1 answer
Vba file from path
VBA
3 votes155 views2 answers
Vba date to string
VBA