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
(SecurityProtocolType)3072 vb.net
VBA
0 vote158 views1 answer
Vba get relative cell address
VBA
0 vote158 views1 answer
Vb window.minimize
VBA
0 vote159 views1 answer
Vba change named range address
VBA
1 vote177 views1 answer
How to remove zeros in excel
VBA
5 votes196 views1 answer
Vba low word from Long Integer
VBA
0 vote161 views1 answer
Vbnet access System.InvalidOperationException: 'Update requires a valid UpdateCommand when passed DataRow collection with modified rows.'
VBA
0 vote172 views1 answer
Arq linux
VBA
-1 vote165 views1 answer
Vba code to add new column in table
VBA
0 vote171 views1 answer
.net dark title bar
VBA