LOCAL pWsh3 AS IWshShell3
LOCAL pWshExec AS IWshExec
pWsh3 = NEWCOM "WScript.Shell"
IF ISNOTHING(pWsh3) THEN EXIT FUNCTION
pWshExec = pWsh3.Exec(UCODE$("calc"))
PRINT "Process ID: " pWshExec.ProcessID
DO
IF pWshExec.Status <> 0 THEN EXIT DO
SLEEP 100
LOOP
PRINT "Status: " pWshExec.Status