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 vote302 views1 answer
Change "location" of binding navigator vb
VBA
0 vote331 views1 answer
Vba integer to double
VBA
0 vote328 views1 answer
Excel vba paste all to each sheet in workbook
VBA
1 vote288 views1 answer
Excel vba hide zero values
VBA
0 vote317 views1 answer
Vba get workbook name
VBA
-1 vote289 views2 answers
How close excel through visual basic
VBA
-1 vote322 views1 answer
Vba code to add new column in table
VBA
0 vote341 views1 answer
Excel vba first column in range
VBA
0 vote324 views1 answer
Loop through lines in text file vb net
VBA
0 vote320 views1 answer
Send text to clipboard vb.net
VBA