Math 如何使用VBScript计算已知大小的对象与相机之间的距离？

我知道物体的尺寸和相机的一切。距离结果每秒至少需要更新4次

摄像机信号来自一个与笔记本电脑有无线局域网连接的机器人。笔记本电脑运行一个应用程序，为机器人操作员显示各种仪表板。我必须使用这个特定的应用程序，它只支持自定义仪表板仪表的VBScript

如何从相机馈送获取图像数据，然后计算距离？我对VBScript了解不多。

d=（FL*RHO*IH）/（OH*SH）

---

d=到物体的距离（mm）
FL=焦距（mm）
RHO=物体的实际高度（mm）
IH=图像高度（像素）
OH=物体高度（像素）
SH=传感器高度（mm）

通过相机观看时测量物体的尺寸，并使用三角学外推距离？