Set objLib = CreateObject("CortalConsors.TradingAPI.VersionInfo")
name = objLib.GetAssemblyFullname() 
MsgBox name

##</code><code>##

#!perl
use Win32;
use Win32::OLE;
$objLib = Win32::OLE->new('CortalConsors.TradingAPI.VersionInfo');
#### Error: Can't resolve progID CortalConsors.TradingAPI.VersionInfo
$name = $objLib->GetAssemblyFullname();
Win32::MsgBox($name);