16 lines
576 B
Plaintext
16 lines
576 B
Plaintext
' Satsuma launcher. Starts the converter with no visible window.
|
|
Option Explicit
|
|
|
|
Dim sh, fso, here, target, src, cmd
|
|
Set sh = CreateObject("WScript.Shell")
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
|
|
If WScript.Arguments.Count < 2 Then WScript.Quit 1
|
|
|
|
here = fso.GetParentFolderName(WScript.ScriptFullName)
|
|
target = WScript.Arguments(0)
|
|
src = WScript.Arguments(1)
|
|
|
|
cmd = "powershell.exe -NoProfile -ExecutionPolicy Bypass -WindowStyle Hidden -File """ & here & "\Convert.ps1"" -Target """ & target & """ -Source """ & src & """"
|
|
sh.Run cmd, 0, False
|