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 vote171 views1 answer
Vbide vbproject reference
VBA
0 vote238 views1 answer
Iterate all file in a folder vba
VBA
0 vote238 views1 answer
Method showalldata of object _worksheet failed vba
VBA
-1 vote240 views1 answer
Vba sendkeys
VBA
0 vote218 views1 answer
Vba shape transparent
VBA
0 vote213 views1 answer
Change whcih control a user has selected vb
VBA
0 vote199 views1 answer
Vba argument is set
VBA
0 vote210 views1 answer
Afficher un message d'erreur vba
VBA
0 vote221 views1 answer
Compare dates vb
VBA
0 vote216 views1 answer
Vba run command
VBA