Hi,
I actually found out what it is from a member off list but for anyone else interested..
Set objConnection = objConnections("My New Connection")in my VB code translates directly this:
$objConnection = $objConnections->{'My New Connection'};Thanks again,
joe wrote:
At a guess...
$objConnection = $objConnections('My New Connection');
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Devin Smith Sent: Wednesday, February 16, 2005 6:15 PM To: [email protected] Subject: OLE Question.
Hi list,
Not sure if this is off topic but I have a question about converting a VBScript into Perl(Script). I can't figure out how one would go from converting a few lines like the following to Perl:
In VBScript =========== Dim objConnections Dim objConnection
Set objConnections = CreateObject("AnObject.Connections") If IsObject(objConnections) Then If objConnections is Nothing Then WScript.echo "CreateObject failed." Else WScript.echo "CreateObject successful." End If End If
Set objConnection = objConnections("My New Connection")
In Perl =========== my $objConnections; my $objConnection;
$objConnections = Win32::OLE->new("AnObject.Connections") or die Win32::OLE->LastError; print "Creation successful.\n";
I don't know how here to set $objConnection.
Thanks in advance,
-- Devin Smith
-- Devin Smith _______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
