Hi
I ran your code and added the following:
sub LogInit{
my $appname = $_[0];
my $module = $_[1];
my $apploglevel = $_[2];
$LogObj = Win32::OLE->new('LOGGERHELPER.UILogHelp');
print "Ref is ", ref $LogObj, "\n";
print Win32::OLE->LastError(), "\n" unless ($LogObj);
$Log0bj->{LogLevel} = $apploglevel;
$Log0bj->{AppName} = $appname;
$Log0bj->{Module} = $module;
Win32::MsgBox('my log is "'.$LogObj.'"');
return $LogObj;
the Reference is null, and the last error is:
Ref is
Win32::OLE(0.1702) error 0x800401f3: "Invalid class string"
Can't call method "LogMessage" on unblessed reference at CLUILogger.pm
+ line 42.
Perhaps you need to import the LOGGERHELPER.UILogHelp constants in the Win32::OLE call?
- j