my $HALi = Win32::OLE->new('HALiCnt.HALi');
my $c = $HALi->{'Modes'}->Count();