How to create an activeX object in VB Script?