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 vote256 views1 answer
Search for text in every worksheet excel visual basic
VBA
1 vote236 views1 answer
Vba date to unix timestamp
VBA
6 votes245 views1 answer
Excel vba get the path of current workbook
VBA
0 vote246 views1 answer
Vba array dimensions
VBA
1 vote242 views1 answer
Vba login website
VBA
0 vote250 views4 answers
Vgrive,deb
VBA
0 vote249 views1 answer
Vba string
VBA
1 vote244 views1 answer
If inputbox cancel vba
VBA
0 vote211 views1 answer
Vba code to open a file with login rights
VBA
0 vote224 views1 answer
Vba copy paste value only
VBA