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 vote125 views1 answer
Vba word open document read only
VBA
32 votes177 views2 answers
Excel vba column letter
VBA
1 vote119 views1 answer
Excel vba Populating a combobox on a userform from a range of cells
VBA
0 vote129 views1 answer
Select case vba
VBA
0 vote122 views1 answer
Vba file size
VBA
0 vote136 views1 answer
Test if form is open vb
VBA
3 votes127 views1 answer
Vba make long from two shorts
VBA
0 vote126 views1 answer
Telephon call in vba
VBA
1 vote130 views1 answer
Excel vba force recalculation
VBA
1 vote125 views1 answer
Excel vba to lower case
VBA