OLE Question.

[Devin Smith]

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

_______________________________________________
ActivePerl mailing list
ActivePerl@xxxxxxxxxxxxxxxxxxxxxxxx
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs