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 vote129 views1 answer
Remove first character from string vb
VBA
0 vote138 views1 answer
Convert number to minutes in vba
VBA
1 vote126 views1 answer
If inputbox cancel vba
VBA
0 vote136 views1 answer
Vba type variable
VBA
7 votes138 views1 answer
Vba array declaration
VBA
0 vote144 views2 answers
S yyyy-MM-dd em vb net
VBA
0 vote130 views1 answer
Vb test if reference is null
VBA
8 votes248 views1 answer
Vba make a short integer from two bytes
VBA
0 vote130 views1 answer
Excel vba extract year
VBA
8 votes152 views1 answer
Run command pormpt in background windows
VBA