13 lines
365 B
Plaintext
13 lines
365 B
Plaintext
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
|