Is there a way to read stdin without blocking script's execution using a vbscript?

I am trying to find a way read stdin without blocking my vbscript's execution but still no luck.

What I want to achieve is the following (written in sh shell script):

for i in {1..3}; do
read input;
echo $input;
sleep 1;
if [ "$input" == "done" ]; then
echo "process done";
exit;
fi
done

Tried the following in vbscript but script hangs in the first iteration waiting for `Enter` in order to proceed

input=""
for i=1 to 3
WScript.Echo i
WScript.sleep (100);
If WScript.StdIn.AtEndOfStream Then
input = input & WScript.StdIn.Readline()
If input = "done" Then
WScript.Echo "process done"
End if
End If
Next

Is there a way not to block my script while reading stdin?