访问Com的属性和方法时,如何降低系统的开销.

如下代码：

   holiday.bar.fox.qa = holiday.bar.fox.ac(1) 

   If  holiday.bar.fox.ka = holiday.bar.fox.abc Then  ....

下面是代码的执行步骤：
（1）变量holiday被解析为全局变量。
（2）变量bar 被解析为holiday的成员。一次Com的方法调用。
（3）变量fox 被解析为holiday.bar的成员。又一次Com的方法调用。
（4）变量ac被解析为holiday.bar.fox的成员。又一次Com的方法调用。
（5）调用holiday.bar.fox.ac(1)
 (6) 再次执行步骤（1）至（3）以解析qa.系统并不知道调用ac是否改变对象模型,因此
     必须再次执行步骤(1)至(3)以解析qa.
 (7)  将qa解析为holiday.bar.fox的成员,赋值.
 (8) 再次执行步骤(1)至(3) 以解析ka.
 (9) 再次执行步骤(1)至(3) 以解析abc.
这样一来,效率相当差.
以VBScript写此代码的快速方法是:
 Set myobj =  holiday.bar.fox '仅解析变量一次.
 myobj.qa=myobj.ac(1)
 If myobj.ka =myobj.abc Then ...
如果用VBScript 5.0 以上版本,还可以使用With 语句,如下:
With holiday.bar.fox
     .qa=.ac(1)
     if .ka=.abc Then ...
End With