I think what you're looking for is "GetActiveObject".

I played around with this briefly several months ago, but a never had a use for it, so I never pursued it. Most of my research success came from http://msdn.microsoft.com and the OLE-Browser from ActiveState.

here's a bit of code that reads the url of all open browsers before closing them:

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Internet Controls';
my $app;
my $count = 0;
while(defined ($app = Win32::OLE->GetActiveObject('InternetExplorer.Ap
+plication'))){
  $count++;
  $app->{'Visible'} = 1;
  my $result = $app->{'LocationURL'};
  print $result . "\n";
  $app->Quit;
  undef $app;
  sleep 1;
}
print "Total windows: $count\n";

# $app->{'TheaterMode'} = 1;
# $app->{'FullScreen'} = 1;
# $app->Quit;
[download]

2003-05-03 edit ybiC: <code> tags