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 vote280 views1 answer
Openfiledialog specific folder
VBA
0 vote259 views1 answer
Remove first character from string vb
VBA
-1 vote249 views1 answer
System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'
VBA
0 vote267 views1 answer
Vba loop through textboxes
VBA
0 vote287 views1 answer
How to format a textbox as date vb net
VBA
0 vote265 views1 answer
Change whcih control a user has selected vb
VBA
0 vote289 views4 answers
Jwt token vb.net validation
VBA
1 vote253 views1 answer
Vbscript convert ascii code to character
VBA
-1 vote323 views1 answer
Vba sendkeys
VBA
2 votes261 views1 answer
Vba array contains
VBA