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 vote156 views1 answer
Excel vba assign shortcut key to button
VBA
1 vote152 views1 answer
Change the first item in a queue vb.net
VBA
1 vote170 views1 answer
Find and replace textbox
VBA
0 vote163 views1 answer
Create links in msgbox in vb
VBA
0 vote102 views1 answer
Vba select file in folder
VBA
1 vote167 views1 answer
Excel vba last row of range
VBA
0 vote148 views1 answer
Excel vba hide columns
VBA
0 vote161 views1 answer
Discern between file and folder given path vb.net
VBA
1 vote158 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
0 vote155 views1 answer
How to get the value of optionbutton in vba
VBA