Can Win32::OLE be used in PerlScript?
If so what is wrong with this?
<HTML>
<BODY>
<%@ Language=PerlScript %>
<%use Win32::OLE;
my $hlk = Win32::OLE->new("HOSTATL.InternalLogon");%>
<p>Start</p>
<p>
<%$Response->write(Win32::OLE->LastError);%>
</p>
<%my $returncode2 = $hlk->lGetReturnCode;%>
<p>
<%$Response->write("Return Code $returncode");%>
</p>
<hr>
<%my $objlogon = $hlk->bGetConnected("username", "password");%>
<p>Tryed to connect</p>
<p>
<%$Response->write(Win32::OLE->LastError);%>
</p>
<%my $returncode2 = $hlk->lGetReturnCode;%>
<p>
<%$Response->write("Return Code $returncode");%>
</p>
</BODY>
</HTML>
Thanks
Jay Flowers
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
