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

8 votes271 views1 answer
Vba make a short integer from two bytes
VBA
1 vote170 views1 answer
S yyyy-MM-dd HH:mm:ss Short Date Local
VBA
0 vote159 views4 answers
Vgrive,deb
VBA
0 vote155 views1 answer
Arq linux
VBA
4 votes151 views2 answers
Excel vba last column with data
VBA
0 vote140 views1 answer
Change whcih control a user has selected vb
VBA
0 vote142 views1 answer
Excel vba disable copy paste
VBA
0 vote147 views1 answer
Get current url vb.net
VBA
1 vote159 views1 answer
Excel vba last row of range
VBA
0 vote146 views1 answer
Selecttoken em vbnet e json
VBA