Option Explicit

Dim shell
Dim projectPath
Dim command

Set shell = CreateObject("WScript.Shell")
projectPath = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
command = "cmd.exe /c cd /d """ & projectPath & """ && uv run kvm-switch"

' Run hidden and do not wait.
shell.Run command, 0, False