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;
2003-05-03 edit ybiC: <code> tags