VBscript and Process Responding to flag a script exit?

Question

Hey All
I work for a small game company called The Good Mood Creators and I am trying to build a software kit that can be handed to someone, and with minimal effort on their part. Copy the folder to their PC, plug in an xbox controller, click the BEGIN.*** and play
while our testing tools and streaming software have a chance to successfully start.
FYI I do not program for our game..
The tool I am including with this kit is a controller emulator (XBCE) that allows us to print controller input directly to the screen.
I am using Open Broadcasting Software to stream gameplay to a private twitch channel via a simple batch called in this vb.
My problem is that XBCE often hangs, and with some computers requires reinstalling .NET frameworks as well as the full directx distribution before updating again to get it to start. When it works however, XBCE will hang once started 1/10 times or so, then
randomly a few times in a row. I don't want the remote playtester to start recording video before the tools are started. So I wrote a script that checks to see if the program is running a short time after its been started.
<job>
<script language="VBScript">
Option Explicit
On Error GoTo 0
Dim os
Dim wmi
Dim procs
set os=CreateObject("WScript.Shell")
set wmi = GetObject ("winmgmts:")
os.CurrentDirectory = "C:\Users\Public\TESTPC-remote\"
os.run "XBCE.exe"
While True
    Set procs = wmi.ExecQuery("select * from Win32_Process Where Name = 'XBCE.exe'")
    If procs.Count > 0 Then
        Wscript.echo "Initiate Good Mood?"        
        os.run "DATA\Mekazoo.exe"
        WScript.Sleep 1000
        os.run "DATA\obsSTART.bat"
        WScript.Sleep 1000
        WScript.Quit
    Else
        WScript.Echo "Good Mood Initialization Had Failed! Please Close All Running Applications And Try Again"
        WScript.Quit
    End If
Wend
</script>
</job>
But when its hung and not responding to the task manager, the process XBCE.exe is still getting listed in Win32 Processes. The script believes all is good and initializes the stream, but XBCE wont show up on the recording because it has crashed and windows
is waiting for me to wait or close.
I have searched but to no avail have I found a way to check if the task manager thinks if XBCE is hung, then proceed to quit the script. That's all I really need. If its not hung proceed, if it's hung quit. Can someone please help?
Edit
I have updated the code above to reflect my current progress with this question and so you dont have to dig through my terrible formatting.

Answer 1

I have a few questions that I haven't got the vocabulary to figure out I guess.
-Is there anyway to automate changing the execution policy?
I tried sending powershell two commands from a ps1. Set-ExecutionPolicy Restricted and Set-ExecutionPolicy Unrestricted. Obviously it blocks the script from running to change from restricted. So I either needed a way through the problem or around it. I could
ask the person playtesting to Win+R powershell.exe and type Set-ExecutionPolicy to Unrestricted and then include a line in the script to change it back once everything has started. The problem with this is the user having to change the executionpolicy
every time they try to play, and the biggest reason I dont like this is that the user has to mess with powershell at all. That was my way around the problem.
My way through the problem was to find a way to bypass the execution policy. I tried running a few lines of code I picked up here in cmd as a batch file and a javascript file. The line I ran was:
http://stackoverflow.com/questions/9271681/how-to-run-powershell-script-even-if-set-executionpolicy-is-banned
powershell.exe -ExecutionPolicy Bypass -NoLogo -NonInteractive -NoProfile -WindowStyle Hidden -File <C:\Users\Public\TESTPC-remote\switchrun.ps1>
Batch through cmd gave me bad syntax, JS basically said the same thing and suggested adding semicolons to fix the problems.
-What is the script syntax to start a diagnostic process and then check to see if its true?
I can not figure out how to write the script to both start XBCE as a diagnostic process and then immediately after see if its responding. I can send the command to start but powershell doesnt move to the next line.
$p=[System.Diagnostics.Process]::Start('C:\Users\Public\TESTPC-remote\XBCE.exe')
While $p.Responding = True
Invoke and start both cause powershell to stop..
-Can I use this command and chain the start commands together?
While writing the script I have now I thought about the possibility of running a program, check to see if responding equals true as a case to start the next program, or else stop the previous process and close the session. Here's my gibberish with that:
$p=[System.Diagnostics.Process]::Start('C:\Users\Public\TESTPC-remote\XBCE.exe')
While $p.Responding = True
$p=[System.Diagnostics.Process]::Start('C:\Users\Public\TESTPC-remote\Mekazoo.exe')
Else Stop-Process ('XBCE.exe')
Exit-PSSession
While $p.Responding = True
$p=[System.Diagnostics.Process]::Start('C:\Users\Public\TESTPC-remote\OBS.exe')
Else Stop-Process ('Mekazoo.exe', 'XBCE.exe')
Exit-PSSession
I have more questions but honestly with how many people have viewed my question vs answered it's clear I'm just an idiot and need to read more.. but Ill keep posting.
Youneed to drop back andlearn a bit more about how software based systems wotj and how progrmming systems work.
THe code you posted cannot funciton because it makes no technical sense.
We cannot answer every little questionfor you. You need to spend time learning the basics and ask quesitons when a real issue confuses you.
You cannot use a non-existent variable in a loop test becase it wil always evaluate to false and the loop will never execute.  This si programming 101.
Execution policy IS automated via Group Policy. Please as you domain admmisn or Netowrk Admmin to explain the to you. 
Your original question has been answered.  If you have another issue please open a new topic.
¯\_(ツ)_/¯