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 vote367 views1 answer
Vbnet round to nearnest thousand
VBA
1 vote374 views1 answer
Excel vba get column number from column name
VBA
0 vote358 views1 answer
Windows Forms dark title bar
VBA
0 vote362 views1 answer
Excel vba first column in range
VBA
0 vote340 views1 answer
Vba open report
VBA
3 votes335 views1 answer
Extract the nth word from a text string
VBA
0 vote347 views1 answer
Find database connection string vb
VBA
0 vote334 views1 answer
Vba collection key list
VBA
0 vote351 views1 answer
Excel vba DisplayAlerts
VBA
1 vote331 views1 answer
Vba delete file
VBA