List 4-3　sample.vbs

  1： Set objCom1 = CreateObject("complussample.com1")
  2： Set objCom2 = CreateObject("complussample.com2")
  3： WScript.Echo objCom1.getMessage
  4： WScript.Echo objCom2.getMessage
  5： Set objCom2 = Nothing
  6： Set objCom1 = Nothing