Set shell = CreateObject("WScript.Shell")
folder = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
shell.CurrentDirectory = folder

cmd = "cmd /c where py >nul 2>&1 && py -3 server.py || python server.py"
shell.Run cmd, 0, False