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