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 vote278 views1 answer
Vbs send keys
VBA
0 vote314 views1 answer
Excel vba add reference programmatically
VBA
0 vote304 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA
0 vote318 views1 answer
Make your computer talk vbscript
VBA
3 votes280 views1 answer
Excel vba read registry key value
VBA
0 vote327 views1 answer
Excel vba protect scenarios
VBA
0 vote302 views1 answer
Vba cell all borders
VBA
1 vote274 views1 answer
How to do error handling in access vba
VBA
0 vote311 views1 answer
Vba string
VBA
4 votes267 views1 answer
Excel formula for last non-empty cell in a column
VBA