IWshExec.ProcessID Property

[José Roca]

The following example illustrates the use of the ProcessID property.

Code Select Expand


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