Well I'm surprised that you cannot find with the OLE/COM viewer. Did you try regedit like I recommended? You can search with regedit more easily than you can OLE/COM viewer anyway.
But I don't' understand your problem: if your application is working, why do you care if you can find it in OLE/COM viewer? Re. shutdown: Check the documentation for Win32::OLE -- I remember there is a way to shut down an application. Now beware the some applications, like Microsoft Word, don't follow the rules. You can observer this by creating an instance of Microsoft word and $app->Visible = $true; When you release the application, the application (and its window, of course) is supposed to shut down but it does not. So maybe your application misbehaves in the same manor. There may be a function you can call like quit, or exit that will make the application shut down. Siegfried -----Original Message----- From: J aperlh [mailto:[EMAIL PROTECTED] Sent: Tuesday, May 31, 2005 6:48 PM To: Siegfried Heintze Cc: beginners@perl.org Subject: Re: A question about Win32:OLE Thanks for your help! I have a application installed on my system. I can start the application by using: my $app = Win32::OLE->GetActiveObject('Aaa.Bbb'); The problem is that I cannot find Aaa.Bbb in OLE/COM Object Viewer or OLE-Browser. I did a thorough search! Another question is: How do I shut the application down? On 6/1/05, Siegfried Heintze <[EMAIL PROTECTED]> wrote: > You can use regedit too. The OLE/COM Object Viewer is the favorite. > > Well, actually, the documentation/tutorial for the function you are trying > to call is the favorite. > > If you know the CLSID, you can call a function like CLSIDtoString (or > something like that) to get the progid. > > Siegfried > > > -----Original Message----- > From: J aperlh [mailto:[EMAIL PROTECTED] > Sent: Sunday, May 29, 2005 8:10 PM > To: beginners@perl.org > Subject: A question about Win32:OLE > > A question about Win32:OLE! > > Where can I get the program ID of an application? > Get it from OLE/COM Object Viewer or something else? > > my $app = Win32::OLE->new('Word.Application', 'Quit'); > ! > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > <http://learn.perl.org/> <http://learn.perl.org/first-response> > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > <http://learn.perl.org/> <http://learn.perl.org/first-response> > > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
