Dim pcbApp
Set pcbApp = GetObject(, "MGCPCB.ExpeditionPCBApplication")
Dim pcbDoc
Set pcbDoc = pcbApp.ActiveDocument

Dim key
key = pcbDoc.Validate(0)
Dim licenseServer
Set licenseServer = CreateObject("MGCPCBAutomationLicensing.Application")
Dim licenseToken
licenseToken = licenseServer.GetToken(key)

msgbox licenseToken


##</code><code>##

use strict;
use warnings;
use Win32::OLE;

my $pcbApp;
eval {$pcbApp = Win32::OLE->GetActiveObject('MGCPCB.ExpeditionPCBApplication')};
die "Expedition not installed" if $@;
die "Expedition not running"   unless defined $pcbApp;
my $pcbDoc = $pcbApp->ActiveDocument;
die "No active document." unless $pcbDoc;

my $key = $pcbDoc->Validate(0);
my $licenseServer = Win32::OLE->new('MGCPCBAutomationLicensing.Application');
die "Automation license acquisition failed: " . Win32::OLE::LastError() unless defined $licenseServer;


##</code><code>##

Automation license acquisition failed: Win32::OLE(0.1709) error 0x8007007e: "The specified module could not be
found"