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 vote168 views1 answer
Nested if else in vb.net
VBA
0 vote177 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote167 views1 answer
Vba static variable
VBA
3 votes192 views1 answer
Extract word in a text in excel
VBA
0 vote166 views1 answer
Menus act like radio buttons vb.net
VBA
0 vote169 views1 answer
Excel vba first working day month
VBA
0 vote179 views1 answer
Vbscript check if string contains
VBA
0 vote161 views1 answer
Enable macros on opening workbook vba
VBA
0 vote165 views1 answer
Vba dropdown event
VBA
0 vote169 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA