RE: Known issues with Win32::OLE?

Brian Raven <[email protected]> Thu, 23 Aug 2012 10:34:52 +0100
Newsgroups gmane.comp.lang.perl.active-perl
Message-ID <F4203BE2BBEC5F4AB88CE7503B82EAB005D81EB5BD@pcacoexm01.europe.nyx.com>
> -----Original Message-----
> From: [email protected] [mailto:activeperl-
> [email protected]] On Behalf Of Philip Prindeville
> Sent: 22 August 2012 22:52
> To: [email protected]
> Subject: Known issues with Win32::OLE?
>
> I was originally going to check the list archives before posting, but I
> get a 403 from pipermail on the website, so can't do that.
>
> I'm running ActiveState perl (community version) on Win7-x64 updated,
> and wrote the following simple/stupid test program.
>
> #!/usr/bin/perl -w
>
> use strict;
> use warnings;
>
> sub obj_cb($)
> {
>   my $obj = shift;
>   my $class = Win32::OLE->QueryObjectType($obj);
>   printf STDERR "%s=>%s\n", $obj, $class; }
>
> my $count = Win32::OLE->EnumAllObjects(\&obj_cb);
>
> printf STDERR "count=%d\n", $count;
>
> exit 1;
>
> and running it (both as myself and as Administrator) I get:
>
> count=0
>
> Anyone have a simple/stupid program that detects whatever programs are
> present that are manipulable via OLE?
>
> I'm trying to get up to speed on Win32::OLE so I can write some test-
> automation tools to exercise our products' GUIs.

I may be missing something, but if you want to test a GUI, wouldn't something like Win32::GuiTest be more useful?


--
Brian Raven




Please consider the environment before printing this e-mail.

This e-mail may contain confidential and/or privileged information. If you are not the intended recipient or have received this e-mail in error, please advise the sender immediately by reply e-mail and delete this message and any attachments without retaining a copy.

Any unauthorised copying, disclosure or distribution of the material in this e-mail is strictly forbidden.
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs