Lago
17 lines
411 B
Plaintext
17 lines
411 B
Plaintext
Option Explicit
|
|
|
|
Dim shell
|
|
Dim fso
|
|
Dim projectPath
|
|
Dim launcherPath
|
|
Dim command
|
|
|
|
Set shell = CreateObject("WScript.Shell")
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
projectPath = fso.GetParentFolderName(WScript.ScriptFullName)
|
|
launcherPath = fso.BuildPath(projectPath, "start_kvm_switch.cmd")
|
|
command = "cmd.exe /c """ & launcherPath & """"
|
|
|
|
' Run hidden and do not wait.
|
|
shell.Run command, 0, False
|