Option Explicit

Dim shell
Dim scriptDirectory
Dim command

Set shell = CreateObject("WScript.Shell")
scriptDirectory = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\"))
command = "powershell.exe -NoProfile -ExecutionPolicy Bypass -WindowStyle Hidden -File " _
  & Chr(34) & scriptDirectory & "launcher.ps1" & Chr(34)

shell.Run command, 0, False